文字字串中Word中的VBA页码

Question

我以前从未使用过这样的问题板，所以如果我错了，我深表歉意..

我有一个Word文档，需要在VBA中插入“ Y的第X页” ...但是我需要将其插入文本字符串中。问题是我需要将其作为一个字段，以便在他们向文档中添加更多页面时进行更新

我的标题看起来像这样

For j = 1 To ActiveDocument.Sections.Count
    With ActiveDocument.Sections(j)
       .Headers(wdHeaderFooterPrimary).Range.Text = strfirstline & Chr(9) & "Section " & strfileLeft & Chr(13) _
       & strsecondline & Chr(9) & "Page " & "WHAT DO I PUT HERE" & " of " & "WHAT DO I PUT HERE" & Chr(13) _
       & strthirdline & Chr(9) & strthirddate & Chr(13) _
    & strfourthline & Chr(9) & "Issued for " & strissuedfor & Chr(13) & Chr(13)

Answer 1

也许尝试一下？

ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).Range.Select
        With Selection
            .TypeText Text:="Page "
            .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE ", PreserveFormatting:=True
            .TypeText Text:=" of "
            .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="NUMPAGES ", PreserveFormatting:=True
        End With

第4行和第6行为您插入值。

您还可以尝试插入{ PAGE }和{NUMPAGES}来查看是否可行。 PAGE是当前页面； NUMPAGES是文档中的总数。