VBA MS-Word：查找和替换“^ 13”总是添加另一个“^ 13”

Question

我创建了一个新文档并尝试编写一个简单的查找和替换过程，该过程将找到int并将其替换为^13，但每次运行它时，它只会添加另一个^p并且不要替换它。会出现什么问题？这是我的代码：

^13

我甚至使用Do While .Find.Execute(FindText:="^13", Forward:=True, MatchWildcards:=False, _ replacewith:="^p", Replace:=wdReplaceAll, Wrap:=wdFindContinue) Exit Do Loop ，^p或chr(13)，但结果仍然相同。

Answer 1

您可以使用此算法执行此操作（在所有使用的步骤中查找替换过程）：

1. 将符号^更改为另一个未在文档中使用的符号^，例如@@@@@@;

2. 将anothersymbol13更改为anothersymbolp，例如@@@@@@ 13至@@@@@@ p;

3. 将anothersymbol更改为^^（两个^）以替换回符号^，例如@@@@@@到^^

注释如果你通过word界面使用你的查找替换程序，使用菜单，你会收到错误 - 这不是一个有效的特殊字符替换盒子