word代替字符串
- 作者: 凤七丶
- 来源: 51数据库
- 2020-06-05
1. 在WORD中替换"任意字符"是什么意思
在WORD中替换"任意字符"意思是把文档内所有的字符替换成想要的格式。
具体步骤如下：
我们需要准备的材料分别是：电脑、Word文档。
1、首先我们打开需要编辑Word文档，点击打开开始子菜单栏中的“替换”。
2、然后我们在弹出来的窗口中点击打开左下角更多中的特殊格式，选择“任意字符”。
3、如果我们要把所有字符删除，替换为的输入框就为空白，之后点击“全部替换”，即可删除所有的字符。
2. 怎样在Word2010文档中替换字符
我们在利用Word编辑文档时，有时候对文档中个别的词汇感觉不满意想要替换。或者参考的内容中有错误的词语。在使用word2010过程中，我们可以使用“查找和替换功能”，这能节省我们很多的时间，针对这一问题，我们编辑了下面的内容。具体操作步骤如下：
第一步、我们打开word2010文档窗口，然还在最上端的“开始”菜单选项卡中点击“编辑”分组中的“替换按钮
第二步、在打开的“查找和替换”对话框中，点击“替换”选项卡，然后在“查找内容”编辑框中输入要查找的内容，然后在“替换为”编辑框中，输入要替换的内容，如果你希望逐个替换的话，就点击替换按钮即可！如果希望快捷点的话，就点击“全部替换
3. WORD 替换字符串顺序
简单的说下，把
1.【解析】A（后面是汉字的解析内容，下同）
2.【解析】BC
3.【解析】BD
4.【解析】ACD
5.【解析】D
6.【解析】ABCD
7.【解析】CD
单独拷贝到一个word中，然后使用表格——转换--文本转换为表格，使用】做为分隔符，这样就会形成如下的表格
1.【解析 A（后面是汉字的解析内容，下同）
2.【解析 BC
3.【解析 BD
4.【解析 ACD
5.【解析 D
6.【解析 ABCD
7.【解析 CD
表格线出不来，你照做就能出来7行两列的表格，
之后拷贝到excel中把两列的顺序调换下，并在后面一列中加入】即可（这个不用教了吧）之后选中表格，拷贝到文本文件中就会把表格样式去掉，不过会多一些空格出来。这个使用下替换把多余的空格替换掉就行了，我一般会用把连个空格替换成一个，这个看你最好需要的格式而定，之后拷到原文件的对应位置就可以了
4. word如何批量替换字符
要想自动化地一次过，采用VBA编程方式可以实现，编程思路是：
参考如下，你可以新建一个宏，将下列代码粘贴入该宏中，运行之后就可以圆满地实现你的目的了。设置了三个变量数组和一个循环变量，修改它们，可以实现其他目的。
代码如下：
=============================
Dim OriginalArr(1 To 4) As String '待查找7a686964616fe58685e5aeb931333238666364的内容的数组，根据需要查找内容的数量，将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
============
5. 在word文档中任意字符批量替换
不行的，EXCEL中也就是说你把他们放在了一个格里面，现在想把他们放在一列中是吧，
你可以把他们复制e799bee5baa6e997aee7ad9431333236366230到WORD中解决后放回去，
但是在WORD中用替换的话，不知道有没有自动分割的功能，你是一大堆东西，替换也就是把每个字换为 字+“回车” ，那也要点间隔号，还不如直接打回车呢，所以我认为没办法，要是有什么好办法的话，我也多张点知识，这不算灌水吧 呵呵
----------------------------
对了，我又想了下，在WORD中的文本匡不是有竖排的吗， 你试下插入个竖排的，然后把你的那些东西放进去，不知道成不，我在网吧，没WORD，呵呵，无奈了，想学习也不成
---------------------------------------
兄弟看这里
前面的我都说错了，呵呵，我回家试了下，有办法的，哎~~ 都是我平时不努力还给你说错了，我就不删除我上面说错的拉，让人批评一下也是给自己个教训，呵呵
你直接选种你要边的那些东西，CTRL+H替换，在里面点出高级，然后在点高级里面的特殊，里面有个任意字符，点下，然后“替换为”那里再点“特殊”哪个东西，点替换文本，就好拉 OK
我还试过呢，绝对可以，着是在WORD中，EXCEL不能，你可以把EXCEL中的复制到WORD中，然后变了以后再复制回去就好拉，哈哈
以前都是我的错，哎~~ 看来还是努力不够啊，继续加油咯！！！
一起学习
