vba - 仅将格式应用于替换文本的一部分

Question

我想在我的 word 文档中的斜线之后添加一个软连字符，并且该软连字符应该具有特定的格式（例如 Font.Spacing = -100 和白色字体颜色）。

搜索并用“/^-”替换“/”只完成了工作的第一部分。斜杠不应像连字符一样格式化。

只需进行第二次搜索并用“^-”替换是行不通的，因为正常的连字符不会得到这种特殊格式 - 只有斜杠后的软连字符应该。

到目前为止，我的代码替换了斜杠：

Sub ReplaceSlash()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "/"
        .Replacement.Text = "/^-"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub