Найти заменить MS Word на Macro

Я написал макрос, который заменяет путь к файлу текущим расположением файлов в 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"

Есть ли у кого-нибудь предложения, в чем может быть проблема?