word字符统计,该如何处理

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

[解决办法]
Sub TTT()
MsgBox ActiveDocument.Range.Characters.Count
End Sub

[解决办法]
Sub Macro1()
Selection.GoTo wdGoToPage, wdGoToNext, , "10 "
Selection.MoveDown wdLine, ActiveDocument.PageSetup.LinesPage, wdExtend
MsgBox Selection.Characters.Count
End Sub

[解决办法]
文件的页数:
Sub macro1()
MsgBox ActiveDocument.BuiltInDocumentProperties( "Number of pages ")
End Sub