求 VBA 的操作实例集 word 的

資深大佬 : hongxii 47

如题感谢各位想把扫出来的文档综合整理一下格式对 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

大佬有話說 (9)

主資深大佬 : hongxii

好吧刚刚把 ThisDocument 的换成了 ActiveDocument
就成功显示了

害我实在是太菜了
还是求各种 word 的 vba 操作实例集合谢谢老哥们

資深大佬 : depress

微软官方： https://docs.microsoft.com/zh-cn/office/vba/api/overview/word

一个博客： http://www.exceloffice.net/archives/category/vba/word-vba

vba 这种东西，需要实现什么就搜什么，提前学没啥用

資深大佬 : loading

vba 这么简单，看着语法写就行了。

資深大佬 : forgottencoast

这不是 vba 的问题，这是 Word api 的问题。

主資深大佬 : hongxii

老哥说的是确实是这样

主資深大佬 : hongxii

@loading 话是这么说有个实例干起来效率总能提升很多总比在那边死扣文档强

主資深大佬 : hongxii

@depress 感谢

主資深大佬 : hongxii

@forgottencoast 老哥说的是就是 api 有个实例的话分分钟事儿就完了咋也用不着系统性的全部学完不是

主資深大佬 : hongxii

@depress 老哥第二个网址棒棒哒！！！