求 VBA 的操作实例集 word 的

如题 感谢各位 想把扫出来的文档综合整理一下格式 对 VBA 不是那么熟悉 目前想要显示每段的文本 但还是失败了 以下内容运行发现 P 的个数只有 1 但是实际上有 10 来段才对 MsgBox 的结果也是空白 所以求个 word 的 VBA 操作实例集合 好照猫画虎 或者求相关网站介绍 MSDN 的 vba 页面地址已有 但是都没有相关的实例 大海捞针

Sub FindTheWord()
  '显示所有段落的内容
  Dim p As Paragraph, s As String, page As Long
  page = 0
  For Each p In ThisDocument.Paragraphs
    page = page + 1
    s = p.Range.Words(1).Texts
    MsgBox (s)
  Next
  MsgBox ("段落数" & page)
End Sub