如何用VB在WORD中删掉特定字符之间的文字？

我是大菜鸟2

原文示例：
       假定WORD中原文是一首诗，但文字中插入了多余的文字，多余文字的特点是：1）首尾均是尖嘴括号，即尖嘴括号是多余文字的标志。2）多余文字的长度、内容随机， 就像下面这样：
           <HP>锄禾日<Y/>当午，汗<P%偶尔会有汉字出现TT>滴禾下土，谁<S1057/>知盘中<1234QQ%TT>餐，粒粒皆<P/多余几个字P>辛苦。</S>

求一段VB程序，删掉这些多余文字，还原诗歌本来面目。

托马斯转体720度鞠躬！

limonet

查找：\<*\>
替换：
勾选通配符

我是大菜鸟2

limonet 发表于 2024-10-20 21:17
查找：\
替换：
勾选通配符

谢谢你，我要用VB实现，不是用查找和替换菜单选项。

fandonglong

Sub 替换()
ActiveDocument.Content.Find.Execute "\<*\>", , , 1, , , , , , "", 2
End Sub