word文档中的查找与替换 word文档中查找替换

发布日期：2020-12-31

word文档中的“查找和替换”问题文档中本来有某个字,可是使用“

录制宏试下。

操作步骤如下： Su cutc() Fo i = 1 To Len(ThisDocument.Content) cha = Mid(ThisDocument.Content, i, 1) If Asc(cha) = 127 And Asc(cha) = 0 Then Selection.InsetAfte cha End If Next i End Su 打开你那个文档，并且在文档的最后面把汉字提取出来，最后你把上面的原文删除即可。

或者这个宏也可以新建一个文档，然后把原文中的汉字插入到新文档中也足以满足你的要求了。

使用宏，在工具菜单中选择宏—Visual Basic 编辑器，在左边工程窗中，选择你的文件，在模块处点右键增加新模块，将上面的内容拷贝进去，保存，直接运行也可以，也可以退出编辑，在工具菜单中选择宏—宏，在宏清单里找到cutc，点运行就可以。

几点：1.将光标置于文档尾 2.在运行前保存原文