这是一个创建于 2157 天前的主题，其中的信息可能已经有所发展或是发生改变。
如题 感谢各位 想把扫出来的文档综合整理一下格式 对 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  | 1 hongxii OP 好吧 刚刚把 ThisDocument 的换成了 ActiveDocument 就成功显示了 害 我实在是太菜了 还是求各种 word 的 vba 操作实例集合 谢谢老哥们 |
 | 2 depress 2020-01-30 16:54:51 +08:00  3 微软官方： https://docs.microsoft.com/zh-cn/office/vba/api/overview/word 一个博客： http://www.exceloffice.net/archives/category/vba/word-vba vba 这种东西，需要实现什么就搜什么，提前学没啥用 |
 | 3 loading 2020-01-30 16:58:08 +08:00 vba 这么简单，看着语法写就行了。 |
 | 4 forgottencoast 2020-01-30 17:09:35 +08:00 这不是 vba 的问题，这是 Word api 的问题。 |
| 5 hongxii OP 老哥说的是 确实是这样 |
| 8 hongxii OP @forgottencoast 老哥说的是 就是 api 有个实例的话分分钟事儿就完了 咋也用不着系统性的全部学完不是 |
Select Language