vba - 使用 VBA 在 Word 2010 页眉中插入两个字段

Question

我正在尝试在页眉中插入两个字段。我可以在当前选择中插入它们（参见下面的代码），但我不希望在插入字段之前不必选择页眉。这可以做到吗？

Sub insertFields()
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="DOCPROPERTY LastSavedTime ", PreserveFormatting:=True
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="FileName", PreserveFormatting:=True
End Sub

Answer 1

如果您指定文档的部分以放置字段以及标题的类型（或） wdHeaderFooterPrimary，您可以使用以下代码：wdHeaderFooterFirstPagewdHeaderFooterEvenPages

Dim myRange As Range
Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldEmpty, Text:="DOCPROPERTY LastSavedTime ", PreserveFormatting:=True

回应评论的附加信息

您可以使用将Collapse插入点放置在范围的开始或结束位置的方法在标题中插入多个字段。添加适当的附加代码以插入空格、格式或回车：

myRange.Collapse wdCollapseEnd
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldEmpty, Text:="FileName", PreserveFormatting:=True