vba - 宏到域代码

Question

我目前有一个 Normal.dot 宏，用于计算当前部分的字数：

Sub SectionWordCount()
  Dim SectionWordCount As String
  SectionWordCount = ActiveDocument.Sections _
  (Selection.Information(wdActiveEndSectionNumber)). _
    Range.ComputeStatistics(wdStatisticWords)
MsgBox "The current section has " & SectionWordCount & " words."
End Sub

是否可以将此宏链接到我文档中的“域代码”？或者使用任何其他形式的 VBA 巫术使这个计数出现在文档中？

我在 Windows 8 上使用 Word 2013。

再次感谢大家。

Answer 1

以下是如何将变量链接到域代码。

在 Word 文档中，DOCVARIABLE在文本内插入一个字段。如果我将此变量称为“wrdCount”，则字段代码如下所示：

{DOCVARIABLE wrdCount \* MERGEFORMAT}

然后在 VBA 中将值分配给您的文档并更新字段代码：

 ActiveDocument.Variables("wrdCount").Value = SectionWordCount
 ActiveDocument.Fields.Update

如果您跟踪文档多个部分的字数，则需要DOCVARIABLE为每个部分单独设置一个。