如何使用vba修改word文档的文件头呢？在文件头里面写上任意字符串

[fuhj02]

如何使用vba实现对Word文档在保存时在doc文件头部增加“Hello World"，而在打开时正常显示doc文件内容!

[Arqui]

Option Explicit

Private WithEvents myApplication As Application
Public myDocument As Document

Private Sub Document_Open()
Set myApplication = Application
Set myDocument = ActiveDocument
End Sub

Private Sub myApplication_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.TypeText Text:="HelloWorld"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub