word批处理字符串替换

发布网友发布时间：2022-04-24 01:18

共5个回答

热心网友时间：2023-10-17 22:25

请尝试如下步骤：

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

热心网友时间：2023-10-17 22:25

热心网友时间：2023-10-17 22:26

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

热心网友时间：2023-10-17 22:26

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

热心网友时间：2023-10-17 22:27

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

热心网友时间：2023-10-17 22:26

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

热心网友时间：2023-10-17 22:27

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

热心网友时间：2023-10-17 22:28

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

热心网友时间：2023-10-17 22:28

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