Question

我正在尝试使用Word宏来查找和替换某些文本。我的原始文本的一部分是斜体（我们的笔记本），我希望替换文本将这些斜体字用引号括起来（“我们的笔记本”）并删除斜体。我的“坏”代码如下所示。对此有一个简单的解决方法吗？

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "From Our Notebook"
    .Replacement.Text = "From "Our NoteBook""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With

Answer 1

我相信我已经弄明白了。解决方案是使用两个双引号来表示单个双引号的输出。因为这些必须进入一组双引号（例如，.Replacement.Text =＆＃34; From＆＃34;＆＃34;我们的NoteBook＆＃34;＆＃34;＆＃34;），你结束了加上很多引号！

Word宏中的引号

1 个答案: