到字段代码的宏

Question

我现在有一个Normal。点宏，用于计算当前部分的字数:

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。