word批处理字符串替换

Question

word批处理字符串替换
桃，苹果，香蕉，橙，梨......，替换成peach, apple, banana, orange, pear......

多天未有人回答，竟让我在网上找到一个软件“Replace 批量字符串替换助手”，该软件很适合使用，有下列好处：
1、小：9.95kb
2、输入方便：分别在两个编辑框输入“被替换字符串”和“需要替换成的字符串”，可以输入大量被替换和需要替换成的字符串，确认无误后，点击“运行”完成替换！复制粘贴到Word，OK!
3、既可以编辑替换字符串，也可以添加多个文件同时替换字符串。
4、通过导出导入替换规则，可以多次使用同一套替换规则。
5、还有一大优点：免费！

有需要者，值得一试。

虽然已得较好软件，但，好心有好报是我的座右铭，给分阁下的同时，再给奖励分50，以表示我真诚的谢意！！

Answer 1

请尝试如下步骤：

1、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；

2、粘贴如下代码：
Option Explicit

Sub BatchReplace()
Dim oDict, strKey

Set oDict = CreateObject("Scripting.Dictionary")

oDict.Add "桃", "peach"
oDict.Add "苹果", "apple"
oDict.Add "香蕉", "banana"
oDict.Add "橙", "orange"
oDict.Add "梨", "pear"

' ......
' 在这里可以根据需要增加更多的替换规则
' ......

For Each strKey In oDict.Keys
Selection.Find.Execute FindText:=strKey, ReplaceWith:=oDict(strKey), Replace:=wdReplaceAll
Selection.StartOf wdStory
Next

MsgBox "完成！"
End Sub

3、根据需要在上述代码中注释地地方增加更多的替换规则；

4、键入F5运行看到“完成！”结束；

5、键入ALT+Q退出VBA编辑器返回Word文档，检查替换结果是否满足要求。

Answer 2

把光标放在文章开头，点下左键，然后按Ctrl+H，在“查找内容”里输入“桃”，在“替换为”里输入“peach”，然后点全部替换。
然后再在“查找内容”里输入“苹果”，在“替换为”里输入“apple”，点全部替换。
以此类推，把你要替换的东西全都换掉。

Answer 3

在Word的右上角有“查找与替换”按钮，每次只能全部替换一样字符串。如果字数少的话，还可以将文本复制到文本文档中在执行“查找与替换”功能。

Answer 4

只能一个一个地查找替换。

Answer 5

自动同时啊~~插入控件估计可以吧，用程序编写一个~你可以试试