如何获取word段落内容并将关键字设置下划线

麟韵

  

子程序名	返回值类型	公开	备 注
Word_固定字添加下划线
参数名	类 型	参考	可空	数组	备 注
段落索引	整数型
查找文本	文本型
是否添加下划线	逻辑型

变量名	类 型	静态	数组	备 注
范围对象	对象
段落对象	对象
查找对象	对象
查找成功	整数型
段落文本	文本型
段落数	整数型

段落数 ＝ 集_文档.读对象型属性 (“Paragraphs”, ).读数值属性 (“Count”, )
调试输出 (段落数)
段落对象 ＝ 集_文档.读对象型属性 (“Paragraphs”, ).对象型方法 (“Item”, 段落索引)
范围对象 ＝ 段落对象.读对象型属性 (“Range”, )
范围对象.读属性 (“Characters”, “Count”)
段落文本 ＝ 到文本 (范围对象.读属性 (“Characters.Count”, ))
调试输出 (段落文本)
查找对象 ＝ 范围对象.读对象型属性 (“Find”, )
查找对象.写属性 (“Text”, 查找文本)
查找对象.写属性 (“Forward”, 真)
查找对象.写属性 (“Wrap”, 0)
查找对象.写属性 (“MatchCase”, 假)
查找对象.写属性 (“MatchWholeWord”, 假)
查找对象.写属性 (“MatchWildcards”, 假)
查找对象.对象型方法 (“Execute”, )
查找成功 ＝ 到数值 (查找对象.读属性 (“Found”, ))
如果真 (查找成功 ＝ 1)
范围对象 ＝ 查找对象.读对象型属性 (“Parent”, )
如果 (是否添加下划线 ＝ 真)
范围对象.读对象型属性 (“Font”, ).写属性 (“Underline”, 1)
范围对象.读对象型属性 (“Font”, ).写属性 (“Underline”, 0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 Word_固定字添加下划线, , 公开<br /> .参数 段落索引, 整数型<br /> .参数 查找文本, 文本型<br /> .参数 是否添加下划线, 逻辑型<br /> .局部变量 范围对象, 对象<br /> .局部变量 段落对象, 对象<br /> .局部变量 查找对象, 对象<br /> .局部变量 查找成功, 整数型<br /> .局部变量 段落文本, 文本型<br /> .局部变量 段落数, 整数型<br /> <br /> 段落数 ＝ 集_文档.读对象型属性 (“Paragraphs”, ).读数值属性 (“Count”, )<br /> 调试输出 (段落数)<br /> 段落对象 ＝ 集_文档.读对象型属性 (“Paragraphs”, ).对象型方法 (“Item”, 段落索引)<br /> 范围对象 ＝ 段落对象.读对象型属性 (“Range”, )<br /> 范围对象.读属性 (“Characters”, “Count”)<br /> 段落文本 ＝ 到文本 (范围对象.读属性 (“Characters.Count”, ))<br /> 调试输出 (段落文本)<br /> <br /> 查找对象 ＝ 范围对象.读对象型属性 (“Find”, )<br /> 查找对象.写属性 (“Text”, 查找文本)<br /> 查找对象.写属性 (“Forward”, 真)<br /> 查找对象.写属性 (“Wrap”, 0)<br /> 查找对象.写属性 (“MatchCase”, 假)<br /> 查找对象.写属性 (“MatchWholeWord”, 假)<br /> 查找对象.写属性 (“MatchWildcards”, 假)<br /> 查找对象.对象型方法 (“Execute”, )<br /> 查找成功 ＝ 到数值 (查找对象.读属性 (“Found”, ))<br /> <br /> .如果真 (查找成功 ＝ 1)<br />     范围对象 ＝ 查找对象.读对象型属性 (“Parent”, )<br />     .如果 (是否添加下划线 ＝ 真)<br />         范围对象.读对象型属性 (“Font”, ).写属性 (“Underline”, 1)<br />     .否则<br />         范围对象.读对象型属性 (“Font”, ).写属性 (“Underline”, 0)<br />     .如果结束<br /> <br /> .如果真结束

现在的问题是 可以正常获取 段落数量 但是无法获取到某一段落的具体内容，所以无法就行下一步关键字下划线的操作。
求大佬解答一下我的疑惑

麟韵

已经解决了，但是可能多次调用COM 所以会有点卡，期待大神优化一下

  

子程序名	返回值类型	公开	备 注
Word_固定字添加下划线
参数名	类 型	参考	可空	数组	备 注
段落索引	整数型
查找文本	文本型
是否添加下划线	逻辑型

变量名	类 型	静态	数组	备 注
段落对象	对象
查找对象	对象
段落文本	文本型
匹配范围	对象
匹配文本	文本型
计数	整数型

计数 ＝ 0
段落对象 ＝ 集_文档.读对象型属性 (“Paragraphs”, ).对象型方法 (“Item”, 段落索引).读对象型属性 (“Range”, )
' 段落文本 ＝ 段落对象.文本方法 (“Text”, )
查找对象 ＝ 段落对象.读对象型属性 (“Find”, )
查找对象.写属性 (“Text”, 查找文本)
查找对象.写属性 (“Forward”, 真)
查找对象.写属性 (“Wrap”, 0)
查找对象.写属性 (“MatchCase”, 假)
查找对象.写属性 (“MatchWholeWord”, 假)
查找对象.写属性 (“MatchWildcards”, 假)
查找对象.对象型方法 (“Execute”, )
匹配范围 ＝ 查找对象.读对象型属性 (“Parent”, )
匹配文本 ＝ 匹配范围.文本方法 (“Text”, )
判断循环首 (匹配文本 ＝ 查找文本 且 计数 ＜ 到整数 ( #最大查找次数 ))
如果 (是否添加下划线 ＝ 真)
匹配范围.读对象型属性 (“Font”, ).写属性 (“Underline”, 1)
匹配范围.读对象型属性 (“Font”, ).写属性 (“Underline”, 0)

查找对象.对象型方法 (“Execute”, )
匹配范围 ＝ 查找对象.读对象型属性 (“Parent”, )
匹配文本 ＝ 匹配范围.文本方法 (“Text”, )
计数 ＝ 计数 ＋ 1
判断循环尾 ()

.版本 2<br /> <br /> .子程序 Word_固定字添加下划线, , 公开<br /> .参数 段落索引, 整数型<br /> .参数 查找文本, 文本型<br /> .参数 是否添加下划线, 逻辑型<br /> .局部变量 段落对象, 对象<br /> .局部变量 查找对象, 对象<br /> .局部变量 段落文本, 文本型<br /> .局部变量 匹配范围, 对象<br /> .局部变量 匹配文本, 文本型<br /> .局部变量 计数, 整数型<br /> <br /> 计数 ＝ 0<br /> 段落对象 ＝ 集_文档.读对象型属性 (“Paragraphs”, ).对象型方法 (“Item”, 段落索引).读对象型属性 (“Range”, )<br /> ' 段落文本 ＝ 段落对象.文本方法 (“Text”, )<br /> <br /> 查找对象 ＝ 段落对象.读对象型属性 (“Find”, )<br /> 查找对象.写属性 (“Text”, 查找文本)<br /> 查找对象.写属性 (“Forward”, 真)<br /> 查找对象.写属性 (“Wrap”, 0)<br /> 查找对象.写属性 (“MatchCase”, 假)<br /> 查找对象.写属性 (“MatchWholeWord”, 假)<br /> 查找对象.写属性 (“MatchWildcards”, 假)<br /> <br /> 查找对象.对象型方法 (“Execute”, )<br /> 匹配范围 ＝ 查找对象.读对象型属性 (“Parent”, )<br /> 匹配文本 ＝ 匹配范围.文本方法 (“Text”, )<br /> .判断循环首 (匹配文本 ＝ 查找文本 且 计数 ＜ 到整数 (#最大查找次数))<br />     .如果 (是否添加下划线 ＝ 真)<br />         匹配范围.读对象型属性 (“Font”, ).写属性 (“Underline”, 1)<br />     .否则<br />         匹配范围.读对象型属性 (“Font”, ).写属性 (“Underline”, 0)<br />     .如果结束<br /> <br />     查找对象.对象型方法 (“Execute”, )<br />     匹配范围 ＝ 查找对象.读对象型属性 (“Parent”, )<br />     匹配文本 ＝ 匹配范围.文本方法 (“Text”, )<br />     计数 ＝ 计数 ＋ 1<br /> .判断循环尾 ()

mnin

是这样吗？

mnin

修改了一下

麟韵

mnin 发表于 2025-6-28 19:36
修改了一下

谢谢大佬。思路比我的简单好多，学习了。。就是如果关键字很多会卡界面，我用线程操作没有任何反应，能麻烦您给一下例程码