在一篇文档中用vba将不同字符替换为同一个字符

suidehan

求大神举个例子：
在一篇word中，想把“我们，大家好，你，x”四个词汇都替换为“hello”，用VBA怎么写呢？

先谢过了。

suidehan

文档中会有很多的这四个词，是把这篇文档中所有的这个四个词都替换掉。
还有如果有几十个不同的词，都要替换为同一个词，怎么写呢？

凌空一羽

Sub lkyy()
Dim doc As Document
Set doc = ActiveDocument
With doc.Content.Find
    .Execute "我们，大家好，你，x", , , , , , , , , "Hello", 2
End With
End Sub

cuanju

Array("我们", "大家好", "你", "x") '可以自行增加或修改这几个词
ReplaceWith:="hello", '也可以改成替换为不是hello的其他词
‘==============================================
Sub d1()
    Dim arr
    arr = Array("我们", "大家好", "你", "x")
    For i = 0 To UBound(arr)
        ActiveDocument.Content.Find.Execute FindText:=arr(i), ReplaceWith:="hello", Replace:=wdReplaceAll
    Next
End Sub

suidehan

cuanju 发表于 2020-3-1 10:51
Array("我们", "大家好", "你", "x") '可以自行增加或修改这几个词
ReplaceWith:="hello", '也可以改成替 ...

你是好人，你是大神，谢谢你哦

suidehan

凌空一羽 发表于 2020-2-28 09:45
Sub lkyy()
Dim doc As Document
Set doc = ActiveDocument

感觉不行呢

suidehan

cuanju 发表于 2020-3-1 10:51
Array("我们", "大家好", "你", "x") '可以自行增加或修改这几个词
ReplaceWith:="hello", '也可以改成替 ...

是将每一个词都替换为hello，这样应该有四个hello，
这下您能理解么

cuanju

suidehan 发表于 2020-3-1 15:55
是将每一个词都替换为hello，这样应该有四个hello，
这下您能理解么

按照你希望的方式写了一个代码。
此代码和我之前写的代码效果相同。之前写的通过遍历数组的方式，把"我们", "大家好", "你", "x"……几个关键词放入数组，比较简洁。
===============================
Sub d2()
    ActiveDocument.Content.Find.Execute FindText:="我们", ReplaceWith:="hello", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute FindText:="大家好", ReplaceWith:="hello", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute FindText:="你", ReplaceWith:="hello", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute FindText:="x", ReplaceWith:="hello", Replace:=wdReplaceAll
End Sub

suidehan

cuanju 发表于 2020-3-2 09:02
按照你希望的方式写了一个代码。
此代码和我之前写的代码效果相同。之前写的通过遍历数组的方式，把"我 ...

我觉得还是前面那个循环好，因为在文档中不知道提要替换几个，用数组更便于扩展，也直观，谢谢