想用代码删除“系”，但“系统”及“体系”中的系不删除

maoecr1 · 发表于 2020-12-18 15:44

请问各位，想用代码删除“系”，但“系统”及“体系”中的系不删除，用代码的话应该怎么实现呢，如果用替换功能把“系”替换掉的话，“系统”及“体系”中的系也会被删掉，忘赐教！！

maoecr1 · 发表于 2020-12-18 15:45

以上指的是word文档中的文字

413191246se · 发表于 2020-12-19 00:09

Sub FindReplaceIt()
ActiveDocument.Content.Find.Execute "([!体])(系)([!统])", , , 1, , , , , , "\1\3", 2
End Sub

413191246se · 发表于 2020-12-19 00:17

本帖最后由 413191246se 于 2020-12-22 10:14 编辑

略。。。。

413191246se · 发表于 2020-12-19 00:20

本帖最后由 413191246se 于 2020-12-23 01:41 编辑

略。。。。

maoecr1 · 发表于 2020-12-22 09:19

413191246se 发表于 2020-12-19 00:20
* 请使用新测试文本：

替换问题

谢谢老师，还想再问一下，这个自己怎么做调整呢，上面只是我举的例子，实际中有可能还有“关系”中的系，或者其他情况中的系不能删除，这样的话，我怎样做调整呢，我改成了([!关][!体])(系)([!统])这样，测试了一下好像不可以啊，另外请问一下“, , , 1, , , , , , "\1\3", 2”这些数字都是啥意思啊

413191246se · 发表于 2020-12-22 10:17

楼主，“\1\3”这是 Word 查找和替换中通配符分组的写法，你可以在网络上查找“Word通配符查找”关键词。
Sub FindReplaceIt()
ActiveDocument.Content.Find.Execute "([!关派体])(系)([!统列])", , , 1, , , , , , "\1\3", 2
End Sub

maoecr1 · 发表于 2020-12-22 13:38

目标效果如图所示

maoecr1 · 发表于 2020-12-22 13:39

实测效果如图所示

maoecr1 · 发表于 2020-12-22 13:41

413191246se 发表于 2020-12-22 10:17
楼主，“\1\3”这是 Word 查找和替换中通配符分组的写法，你可以在网络上查找“Word通配符查找”关键词。
...

请您看一下8,9楼的图片，有一些单独的“系”貌似没有被替换掉，由于看不懂您的代码，所以也不知道怎么修改，只能再次麻烦您了，另外为什么那些标点符号貌似也会变动的样子

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