使用VBA宏替换word 2007文档中的单个字符

Question

我需要编写一个宏来替换所选字符串中的特定字符和其他特定字符。也就是说，例如，我可能想用b替换所有a，用c替换所有b，依此类推。

我写了这个测试宏只是为了看看我是否可以替换字符。它被卡在无限循环中，用“1”替换选择中的第一个字符。

Dim obChar As Range   'Define a range variable
For Each obChar In Selection.Characters
  obChar.Text = "1"
Next obChar

我做错了什么？

Answer 1

尝试反向循环：

Dim i As Integer

For i = Selection.Characters.Count To 1 Step -1
    Selection.Characters(i).Text = "1"
Next i