读书人

怎么使用vb.net修改word文档的页眉

发布时间: 2013-07-04 11:45:55 作者: rapoo

如何使用vb.net修改word文档的页眉
之前没有做过类似的使用,所以对vb.net操作word一窍不通,如何修改word文档中已存在的页眉中的文字,请知道的老师给指点一下,谢谢。
[解决办法]
知道录取宏吗?录制了宏将代码直接复制过来,就可以用了。下面是我录制的,你看着修改

Sub 宏1()
'
' 宏1 宏
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveDocument.AttachedTemplate.BuildingBlockEntries(" 空白").Insert Where:= _
Selection.Range, RichText:=True
Selection.TypeBackspace
Selection.TypeText Text:="强大的宏"
ActiveDocument.Save
ActiveDocument.Save
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

读书人网 >VB Dotnet

热点推荐