在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 后，第二个 Collapse 不起作用，单词 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