有什么编辑器，支持基于字典的搜索替换吗？

[lada04]

例如一篇文章，需要把“鱼塘”替换成“福气”，“怪想”替换成“派件”（随便举得例子）……大概有 110 多个替换关系

普通编辑器，要手动做 110 多次替换。有没有编辑器，能基于替换关系的字典，直接一次性替换？

当然字典肯定有约定的格式，这没关系，用正则处理一下符合他的格式，也总比手动替换来得快

有朋友可能说自己写个小脚本……楼主文科生不会写…

[ps1aniuge]

https://www.v2ex.com/t/482614
win,linux 通用的替换脚本。ps 找算替 欢迎收藏。如果不会用，我可以给你写脚本。

[laycher]

Everedit

[huawuya]

http://nullice.com/Gasoft/Siphonink/index.html#fu 我想你需要的是这个软件里的批量替换功能。

[EricXuu]

notepad++

[zifuir]

word 里的宏，搜句 vba，就能实现你要的效果

[Lax]

简单文本格式的话直接 sed 吧

[jin7]

powershell 写个脚本.

[wandero]

@lada04

Office 套装用 VBA 宏可以比较方便的实现

操作
在 xls 中 A 列和 B 列 分别填好被替换内容和替换内容，在 Word 中运行宏

注意
确定 xls 文件路径和 活动工作表名称正确设置
确定 VBA 编辑器-工具-引用 中 Microsoft Excel 14.0 Object Library 勾选
单个单元格内容不能超过 254 字符

代码（搬运自 ExcelHome ）

```
Sub 按表替换()
'首先引用 ms excel
'运行前关闭所有 excel 程序
Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
Set ex = New Excel.Application
Set boo = ex.Workbooks.Open("d:\e\f.xls") '文件路径
ex.Visible = False '设置 EXCEL 对象可见（或不可见）
Set shee = boo.Worksheets("Sheet1") '设置活动工作表
With shee
For i = 1 To .Range("b65536").End(xlUp).Row
ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将 excelA 列替换为 B 列内容
Next
End With
boo.Close
ex.Quit
Set boo = Nothing
Set ex = Nothing
End Sub
```