word字符统计

Question

怎么用VBA实现
选择某页文件,
然后统计该页的所有字符数.

Answer 1

Sub TTT()
    MsgBox ActiveDocument.Range.Characters.Count
End Sub

Answer 2

Sub Macro1()
    Selection.GoTo wdGoToPage, wdGoToNext, , "10"
    Selection.MoveDown wdLine, ActiveDocument.PageSetup.LinesPage, wdExtend
    MsgBox Selection.Characters.Count
End Sub

Answer 3

假设设置纸张的大小为宽5厘米,高4厘米,
执行:
    Selection.GoTo wdGoToPage, wdGoToNext, , "10"
    Selection.MoveDown wdLine, ActiveDocument.PageSetup.LinesPage, wdExtend
为什么选择的不是第10页的内容,而是多页呢?
怎么样正好选择一页,然后统计该页的字符数

Answer 4

文件的页数:
Sub macro1()
MsgBox ActiveDocument.BuiltInDocumentProperties("Number of pages")
End Sub