如何搜索文档并更改指定字符

【问题标题】：How to search document and change specify characters如何搜索文档并更改指定字符
【发布时间】：2012-12-31 17:38:55
【问题描述】：

我搜索了一个 vba 代码来做某事，但一无所获。我喜欢：

通过输入框指定 2 个字符。例如 SearchBox=ChrW(1820) 和 ReplaceBox=ChrW(0710)
搜索文档，得到第一个词和这个词的第一个字符。
如果在 SearchBox 中指定了第一个字符，则

一个。检查此单词中是否存在字符 = ChrW(1820) 或 ChrW(1821) 或 ChrW(1820)

b.如果第一个字符 = 存在字符则

c。用 ReplaceBox 中指定的其他字符更改第一个字符

d。否则：什么都不做
转到下一个单词并检查相同（循环）
完成文档并发送消息“50 个字符已更改”

我知道这有点混乱，但我是来给你解释的。所以请帮忙。

【问题讨论】：

【解决方案1】：

我有我的答案的解决方案：

For Each w In ActiveDocument.Words
    If Left(w, 1) = "a" Then 'Check if words start with "a" then
       'Check if exist letters "a" or "b" after first character then
        If InStr(2, w, "a") Or InStr(2, w, "b") Then w.Text = "A" & Mid(w, 2) 
           'Change the first Character with "A"
    End If
Next

但现在我不能对单词的最后两个字符做同样的事情。我有测试：

If Right(w, 2) = "au" Then
 If InStr(2, w, "a") Then w.Text = "AU" & Right(w, 2)

但不工作。请问有什么解决办法吗？

还有一个...如何在End If 之前制作Else，因为我有问题。当我制作Else 时出现错误"End If without If"

【讨论】：