昨天说可以用word的大纲功能写PPT的提纲和整理资料，今天突然反应过来，PPT做完后把这些搜集的资料删减一下，其实也可以直接当讲稿用。
但是有个问题，word直接打印是打印不了大纲视图的，只会打印出没有层级的视图，看起来不方便
上网搜了一下，找到一段VB代码，执行后就可以打印大纲视图了，贴在下面备用：
Sub PirntTheOutline()
Dim lLevel As Long
lLevel = InputBox("请输入要打印的标题级别", "标题级别", "例如：4")
ActiveWindow.ActivePane.View.Type = wdOutlineView
ActiveWindow.View.ShowHeading (lLevel)
' 按默认打印设置
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
' 弹出打印对话框。
'Dialogs(wdDialogFilePrint).Show
End Sub