求助：如何用替换的方式将“第X图”替换为“图X”

maoecr1 · 发表于 2019-7-1 14:57

如题，如何用替换的方式将“第X图”替换为“图X”，比如，将第1图替换为图1，将第12图替换为图12，不太会使用通配符及正则表达式，麻烦各位老师！

zhanglei1371 · 发表于 2019-7-1 15:10

第([0-9]@)图===>图\1

maoecr1 · 发表于 2019-7-1 16:51

zhanglei1371 发表于 2019-7-1 15:10
第([0-9]@)图===>图\1

试了下，好像不行哎

maoecr1 · 发表于 2019-7-1 16:52

maoecr1 发表于 2019-7-1 16:51
试了下，好像不行哎

试了下，好像不行哎

413191246se · 发表于 2019-7-2 01:13

楼主，张磊老师的解答是正确的，你要勾选“使用通配符”，点击“全部替换”，注意查找框和替换为框中字符。

maoecr1 · 发表于 2019-7-5 14:43

哎？这次试了下又OK了，多谢各位了

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

如上述的问题，还是想在问一下，在word文档里，如何将“第X图”修改为“图X”？？忘赐教

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

* 楼主，你好！——这是一个通配符替换中涉及到分组替换的问题。将查找元素用半角括号分组，比如：查找框中输入“(俱)(乐)(部)”，分为三组），在“替换为”框中用斜杠字符"\"表示对应的分组，即“\1\2\3”。“\1”代表“(俱)”，“\2”代表“(乐)”，“\3”代表“(部)”。可以替换为“\2\3\1”，也可以替换为“\3\1\2”，也可以替换为“\1\3”或“\2\3”或“\2\1”等，甚至更多如“\1\3\2\3\1\2\3\1”等。

* 不过，用代码会比在替换框中试验更保险一点。因为用代码 Word 不会崩溃，而在替换框中反复试验有时会崩溃的，从 Word2003 到 2019 均如此（刚开始不熟练可以在替换框中试验，注意勾选“使用通配符”）。

* 楼主，你的问题的解决代码如下：

Sub FindReplaceIt222()
ActiveDocument.Content.Find.Execute "(第)([0-9]{1,})(图)", , , 1, , , , , , "\3\2", 2
End Sub

* 测试文本：

替换问题2

如上述的问题，还是想在问一下，在word文档里，如何将“第3图”(第三图)修改为“图三”？？望赐教！

如上述的问题，还是想在问一下，在word文档里，如何将“第15图”(第十五图)修改为“图十五”？？望赐教！

如上述的问题，还是想在问一下，在word文档里，如何将“第397图”(第三九七图)修改为“图三九七”？？望赐教！

413191246se · 发表于 2020-12-25 15:12

楼主，你的问题解答两遍了。。。请再看一遍吧。。。

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