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

我是大菜鸟2 · 发表于 2024-10-20 19:46

本帖最后由我是大菜鸟2 于 2024-10-20 20:32 编辑

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

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

托马斯转体720度鞠躬！

limonet · 发表于 2024-10-20 21:17

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

我是大菜鸟2 · 发表于 2024-10-21 14:35

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

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

fandonglong · 发表于 2024-10-21 20:57

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

我是大菜鸟2 · 发表于 2024-10-27 20:45

fandonglong 发表于 2024-10-21 20:57
Sub 替换()
ActiveDocument.Content.Find.Execute "\", , , 1, , , , , , "", 2
End Sub

非常感谢！学习了其中的语法，受教了！！

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

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

评分