如何在 Visual basic 6.0中 操作Word 文档 页眉 和页脚?

Question

如何在 Visual basic 6.0中 操作Word 文档  页眉 和页脚?
比如要 完成对页眉 和页脚的拷贝,粘贴,删除,替换?

Answer 1

在VBA中 ,试验成功的代码如下:
Sub Macro1()
      Dim MyDoc As Document '  定义文档对象     
       Set MyHeader = Selection.Sections(1).Headers(1).Range '定义页眉
       Set MyFooter = Selection.Sections(1).Footers(1).Range '定义页脚
       
       MyHeader.Copy  '拷贝页眉
      
       Set MyDoc = Documents.Add '新建文档(注意：同时当前激活的文档为新文档)
       With ActiveDocument '对激活的文件进行操作 首先对页眉操作
       '打开页眉页脚
           .ActiveWindow.View.SeekView = 9  '页眉
           With Application.Windows(MyDoc).Selection
               .Paste
               '粘贴其中内容’并删除最后一个段落标记
               .Paragraphs(.Paragraphs.Count).Range.Delete
           End With
    
           '关闭页眉页脚
           .ActiveWindow.View.SeekView = 0
           .ActiveWindow.View.Type = 3
       End With
       
       ThisDocument.Activate '使ThisDocument文档变为激活文档
       MyFooter.Copy '拷贝页脚       MyDoc.Activate '使MyDoc文档变为激活文档
       
       With ActiveDocument
       '打开页眉页脚
           .ActiveWindow.View.SeekView = 10  '页脚
           With Application.Windows(MyDoc).Selection
               .Paste
               '粘贴其中内容’并删除最后一个段落标记
               .Paragraphs(.Paragraphs.Count).Range.Delete
           End With
    
           '关闭页眉页脚
           .ActiveWindow.View.SeekView = 0
          .ActiveWindow.View.Type = 3
       End With
End Sub问题是如何转换为VB代码