現在、現在のセクションの単語数をカウントする 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を使用しています。
改めまして、皆様。