求VBA实现word文档多个有相同标识的不同句子划下划线

gxlzlxs · 发表于 2021-9-29 11:34

求VBA实现word文档多个有相同标识的不同句子划下划线
如下面的文字段：

（一）研究人员指出，术语“生物降解”这个词的使用是不规范的。一些生产厂家说，这些产品如果在物理上发生了变化，则是可以生物降解的，它们一旦与其它物质混合，便会自然消失或者可以支持生物的成长。研究人员认为，真正的生物降解物质在需氧条件下可以分解成二氧化碳和水。在厌氧条件下它们则可以分解成甲烷和二氧化碳。然而，经他们试验的每个产品都不能降解，也不能达到上述标准。
（二）从事写作的人，应当像追求真理一样去追求语言，应当把语言大量储存起来。应当经常把你的语言放在纸上，放在你的心里，用纸的砧、心的锤来锤炼它们。要熟悉你的语言，像熟悉你的军队，一旦用兵，你就知道谁可以担任什么角色，连战连捷。写作，实际就是检阅你的军队，把那些无用的、在战场上不活跃的分子，当场抹去它们的名字，叫能行的来代替吧。所谓要慎重，就是指的这个。
（三）酒可以渲染气氛，有助于谈兴，故浪漫倜傥的诗人无不喜欢这个调儿。二十来岁即位列“初唐四杰”之冠的王勃，据说他在写《滕王阁》七言古诗和《滕王阁序》时，先磨墨数升，继而酣饮，然后拉起被子覆面而睡，醒来后抓起笔一挥而就，一字不易。李白当年奉诏为玄宗写《清平调》时，也是在烂醉之下用水泼醒后完成的。“钟鼓馔玉不足贵，但愿长醉不复醒。古来圣贤皆寂寞，惟有饮者留其名”，他的《将进酒》字字都含酒香。饮者留其名。”他的《将进酒》字字都含酒香。如果把他所有写酒的诗拿去压榨，也许可以榨出半壶高粱酒来。
…………
…………

word文档中有以上文段有N个这种自然段，许多段中有如上红色字体有“……”开头和结尾标识的句子，现在要批量以VBA代码一次性将这些有标识的句子加上“下划线”，请求大师帮助！！、

求大神！！

zhanglei1371 · 发表于 2021-9-29 16:45

Sub ff()
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
.Text = "\<u\>*\</u\>"
.Replacement.Text = ""
.MatchWildcards = 1
Do While .Execute
Selection.Font.Underline = wdUnderlineSingle
Loop
End With
End Sub

复制代码

gxlzlxs · 发表于 2021-10-16 08:37

zhanglei1371 发表于 2021-9-29 16:45

感谢！感谢！感谢！感谢！感谢！

		自动登录	找回密码
密码			免费注册