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

时间:2019-07-02 15:31:16

标签: vba ms-word find-replace

我想在我的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

0 个答案:

没有答案