Word 宏中的引号答案

【问题标题】：Quotation marks in Word macrosWord 宏中的引号
【发布时间】：2017-02-17 15:37:07
【问题描述】：

我正在尝试使用 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

【问题讨论】：

How do I put double quotes in a string in vba?的可能重复
谢谢，Orphid。我查看了其他帖子，但要么我不理解他们推荐的解决方案，要么它不适用于我的情况。
Chr(34) 的用法如下所示：.Replacement.Text = "From " & Chr(34) & "Out NoteBook" & Chr(34)。
@Orphid VTC 重复。

标签： vba ms-word double-quotes

【解决方案1】：

我相信我已经弄清楚了。解决方法是用两个双引号来表示单双引号的输出。由于这些必须放在一组双引号内（例如，.Replacement.Text = "From ""Our NoteBook"""），因此您最终会得到很多引号！

【讨论】：