excel 或者word如何实现多个字的替换

hqhyue

比如一个文档中我要把“1”替换成”一“ ；”2“替换成”二“以此类推，由于我要替换的东西比较多，而且比较经常使用，如何用比较快捷的方法完成，而不是一个一个的全部替换？
谢谢大家！！

dajiahaoxinku12

上传附件看看吧，不知道是什么样的           

小子颜

excel可以用ctrl+F 弹出 查找页面，然后旁边有个替换。然后把你替换的1卸载上面，一再写在下面的一行，选着你要替换的页面，如果是一列里面的，就选定一列，点替换，就替换掉了。如果替换错了，点返回。试试就知道了

小子颜

操作看看，看看我讲的你明白没有。把你要替换的字体打进去，然后点击替换两个字。word暂时我没试过。

huguifang

如果是word，

ALT+F11打开VBE，插入－－模块，再插入－－过程，然后把上面的代码复制到 过程 sub ....end sub之间，运行即可。

Set myRange = ActiveDocument.Content
arr = Array("1", "2") '这里自己添加
brr = Array("一", "二") '这里自己添加
For i = LBound(arr) To UBound(arr)
myRange.Find.Execute FindText:=arr(i), _
    ReplaceWith:=brr(i), Replace:=wdReplaceAll
Next

只对所选择的文本部分进行替换操作

试试把ActiveDocument.Content改成Selection

收录的本论坛的技巧。

335139092

huguifang 发表于 2013-4-15 22:19
如果是word，

ALT+F11打开VBE，插入－－模块，再插入－－过程，然后把上面的代码复制到 过程 sub ....en ...

你好 请问需要  将“缓冲间” 替换为“缓冲间1”
但是内容中  含有“缓冲间2”  这时替换后会变成“缓冲间12”
请问这个能怎么限定 只识别“缓冲间”  而不识别“缓冲间2”