word批处理字符串替换

来源：百度知道 编辑：UC知道 时间：2024/06/25 22:33:34
word批处理字符串替换
桃，苹果，香蕉，橙，梨......，替换成peach, apple, banana, orange, pear......

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

有需要者，值得一试。

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

请尝试如下步骤：

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文档，检查替换结果是否满足要求。

把光标放在文章开头，点下左键，然后按C