2

現在、現在のセクションの単語数をカウントする 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 ブードゥー教を使用して、このカウントをドキュメントに表示しますか?

Windows8でWord2013を使用しています。

改めまして、皆様。

4

1 に答える 1

2

変数をフィールド コードにリンクする方法は次のとおりです。

Word 文書でDOCVARIABLE、テキスト内にフィールドを挿入します。この変数を「wrdCount」と呼ぶと、フィールド コードは次のようになります。

{DOCVARIABLE wrdCount \* MERGEFORMAT}

次に、VBA でドキュメントに値を割り当て、フィールド コードを更新します。

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

ドキュメントの複数のセクションの単語数を追跡する場合は、セクションDOCVARIABLEごとに個別の が必要になります。

于 2014-07-28T16:08:14.983 に答える