查找用宏替换MS Word

Question

我编写了一个宏，用Word 2016中的当前文件位置替换文件路径。

Dim i As Long, j As Long
Dim s As String
s = ActiveDocument.Path
Dim sa As String
sa = Replace(s + "\test1.xlxs", "\", "\\")

For Each myStoryRange In ActiveDocument.StoryRanges
    With myStoryRange.Find
        .Text = "C:*test1.xlsx"
        .Replacement.Text = sa
        .MatchWildcards = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
Next myStoryRange


End Sub

这将显示错误“替换文本包含超出范围的组号”

“ sa”变量中包含正确的字符串，我在运行时检查了此字符串。 当我更换时

.Replacement.Text = sa

同

.Replacement.Text = "bla"

有用。 在运行时，“ sa”的示例为“ C：\\\\ Users \\\\ Me \\\\ Documents \\\\ test1.xlsx”

有人有什么建议可能是什么问题吗？

Answer 1

查找和替换文本时，通配符和反斜杠不能很好地配合使用-反斜杠有其特殊的用途。

在这种情况下，要替换反斜杠，请使用等效的ASCII： "^92^92"而不是"\\\\" 。