当前位置:首页 » 办公资讯 » 怎样把word文档中名字统一替换

怎样把word文档中名字统一替换

发布时间: 2022-04-06 21:50:42

word如何批量替换字符

要想自动化地一次过,采用VBA编程方式可以实现,编程思路是:

参考如下,你可以新建一个宏,将下列代码粘贴入该宏中,运行之后就可以圆满地实现你的目的了。设置了三个变量数组和一个循环变量,修改它们,可以实现其他目的。

代码如下:
=============================
Dim OriginalArr(1 To 4) As String '待查找的内容的数组,根据需要查找内容的数量,将4改变成相应的量即可
Dim ReplaceArr(1 To 4) As String '替换成的内容的数组,根据需要替换内容的数量,将4改变成相应的量即可
Dim TempString(1 To 4) As String '中间变量数组,根据需要替换内容的数量,将4改变成相应的量即可
Dim i As Integer
OriginalArr(1) = "张三" '内容可以根据需要自设置,其余同
OriginalArr(2) = "李四"
OriginalArr(3) = "王五"
OriginalArr(4) = "何六"
ReplaceArr(1) = "李四"
ReplaceArr(2) = "张三"
ReplaceArr(3) = "何六"
ReplaceArr(4) = "王五"
TempString(1) = "temp1"
TempString(2) = "temp2"
TempString(3) = "temp3"
TempString(4) = "temp4"
For i = 1 To 4 '根据数组OriginalArr的个数设置这里的循环变量的最大值
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = OriginalArr(i)
.Replacement.Text = TempString(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

For i = 1 To 4
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = TempString(i)
.Replacement.Text = ReplaceArr(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

============

⑵ 怎样批量替换文件夹中的多个word文档的命名。

1,首先从电脑上下载2345好压,下载后安装。

⑶ 求解:如何把word文档中的某个特定字全部替换为另一个字

1、以Word2010版本为例,如图要把该文档中的“读”字全部替换为“写”,首先全选要参与替换的文字;

⑷ 如何批量修改Word文档的文件名

1,首先从电脑上下载2345好压,下载后安装。

⑸ 怎么用word文档把一篇文章内的原人名替换成另一个名字(除了复制粘贴有没有更快捷的方法)

采用查找替换,很快的。在替换中把小红,替换为小溪,即可。编辑--替换--输入相关内容--确定。

⑹ 如何把word里的名字批量修改

先全选Word文档-右键-重命名-输入文件名确定,其他文档会自动改为名字+(1)开始的数字,下图Word文档就是重命名后的结果:

⑺ 在Word下,如何批量更改文件名

这个简单,可以批量在原文件名前、后增加字符,删除原来的字符,大小写转换,末尾加页码等

wordAID

⑻ 请问如何使用word,将文中的张三、李四等人名统一替换为王五

点Ctrl+H,进行查找并替换,先把查找输入张三,下面的替换全部写成王五,再把查找改为李四,下面替换王五不变,文档中所有数据就被替换。
高级→(勾选)使用通配符 查找输入 [张三李四] 替换框输入 王五,点全部替换

热点内容
马路上汽车的噪音在多少分贝 发布:2023-08-31 22:08:23 浏览:1742
应孕棒多少钱一盒 发布:2023-08-31 22:08:21 浏览:1239
标准养老金一年能领多少钱 发布:2023-08-31 22:05:05 浏览:1526
湖北通城接网线多少钱一个月 发布:2023-08-31 21:59:51 浏览:1605
开随车吊车多少钱一个月 发布:2023-08-31 21:55:06 浏览:1366
京东付尾款怎么知道前多少名 发布:2023-08-31 21:52:58 浏览:1687
在学校租铺面一个月要多少钱 发布:2023-08-31 21:52:09 浏览:1823
2寸有多少厘米 发布:2023-08-31 21:50:34 浏览:1458
知道电压如何算一小时多少电 发布:2023-08-31 21:46:20 浏览:1446
金手镯54号圈周长是多少厘米 发布:2023-08-31 21:44:28 浏览:1619