WORD高级替换技巧

来源：百度知道 编辑：UC知道 时间：2024/06/08 05:38:45
Tensions 紧张
Bangladesh 孟加拉国
reportedly 根据传说，根据传闻
explore for natural gas 勘探天然气
disputed waters 有争议的水域
truck 卡车
a gun battle 枪战
curfew 宵禁

把他转化为
Tensions 1紧张
Bangladesh 1孟加拉国
reportedly 1根据传说，根据传闻
explore for natural gas 1勘探天然气
disputed waters 1有争议的水域
truck 1卡车
a gun battle 1枪战
curfew 1宵禁

有什么办法批量替换 在中文前面加字符。

高分求怎样替换。

做下面之前，前先备份一下，你的这个word文档。
（EXCEL宏有弄过一点，WORD的宏，这是第一次，很多函数不熟，下面的不简练）

在word下按ALT+F11
然后在左边的project(你的文件名) 比如:project (新建 Microsoft Word 文档)
下面的Microsoft word对象中,双击 ThisDocument

然后将下列两行单引号间的代码贴上去,你可以修改inch="1"这一行
'''''''''''''''''''''''''''''''''''''''''''''''''''
Sub insertchar()
Dim i, line As Integer
Dim para, para2 As String
Dim a As Long
Dim inch As String

inch = "1" '要插入的字符,你可以修改这个
line = 1
Do
ActiveDocument.Paragraphs(line).Range.Select
Selection.HomeKey Unit:=wdLine
para = ActiveDocument.Paragraphs(line).Range
For i = 1 To Len(para)
a = AscW(Mid(para, i, 1))