用代码将文中的“第X图”全部修改为“图X”

maoecr1 · 发表于 2020-12-25 09:58

如题，我想把文中所有的"第X图"改成"图X"的格式，其中X是序号，X可以使1-3位的数字，比如第1图，第12图，第123图，想用代码转换一下格式，改成，图1，图12，及图123烦请各位老师指教！

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

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

maoecr1 · 发表于 2020-12-25 16:56

413191246se 发表于 2020-12-25 15:02
Sub aaaaPicX()
ActiveDocument.Content.Find.Execute "(第)([0-9]@)(图)", , , 1, , , , , , "\3\2", ...

多谢，厉害

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