在word文档中配置页脚（页码和文本）

Question

我正在尝试使用 Excel 实际运行良好的 Word 文档。然而，页脚的配置是一个谜。

页脚应包含日期（来自变量 VDate 的字符串）、垂直线 | 和 Page X of Y。这是我到目前为止编写的代码：

...
VDate = "31.03.2022"    'String

Set WordRange = objDoc.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary).Range

WordRange.Delete

With WordRange
    .Text = VDate & "  |  Page "
    .Collapse wdCollapseEnd
    .Fields.Add WordRange, wdFieldPage        '<-- works until here
    .Collapse wdCollapseEnd
    .InsertAfter " of "
    .Fields.Add WordRange, wdFieldNumPages
End With
...

添加第一个字段 wdFieldPage 后，第二个折叠不起作用，单词 of 直接插入 Page 之后，第二个字段 wdFieldNumPages 紧随其后第一个字段，导致此：

"31.03.2022 | Page of 11"

有人可以帮忙吗？非常感谢！

Answer 1

在 .Collapse wdCollapseEnd 作品后放一个 .MoveEnd:

VDate = "31.03.2022"    'String

Set WordRange = objDoc.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary).Range

WordRange.Delete

With WordRange
    .Text = VDate & "  |  Page "
    .Collapse wdCollapseEnd
    .Fields.Add WordRange, wdFieldPage
    .Collapse wdCollapseEnd
    .MoveEnd
    .InsertAfter " of "
    .Collapse wdCollapseEnd
    .MoveEnd
    .Fields.Add WordRange, wdFieldNumPages
End With

在word文档中配置页脚（页码和文本）

Configure a footer in a word document (page numbers and text)

excel

vba

ms-word