这是一个创建于 1785 天前的主题，其中的信息可能已经有所发展或是发生改变。
如题 感谢各位 想把扫出来的文档综合整理一下格式 对 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