word批量将英文状态下双引号转变为中文状态下双引号

点击下方卡片：立即关注+星标，推荐大家把本公众号设置为星标，重要内容不错过！

今天在写标书的时候，复制一大段文字过来之后发现一个棘手的问题，就是全文很多英文的双引号，想批量替换成中文的双引号，网上搜了教程发现并不能实现，几经探索，发现一个好办法！

采用宏批量处理

（1）按Alt+F11，打开VBA编辑器；
（2）点击“插入”→“模块”，粘贴以下代码：

Sub ReplaceEnglishQuotesWithChinese()

    Dim rng As Range

    Dim i As Long

    Dim quoteCount As Long

    quoteCount = 0

    Set rng = ActiveDocument.Content

    With rng.Find

        .Text = Chr(34)  ‘ 英文双引号

        .Forward = True

        .Wrap = wdFindStop

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

        Do While .Execute

            quoteCount = quoteCount + 1

            rng.Text = IIf(quoteCount Mod 2 = 1, ““”, “””)

            rng.Collapse wdCollapseEnd

        Loop

    End With

End Sub

（3）直接关闭 VBA 编辑器，回到word文档界面；
（4）按Alt+F8，选择ReplaceEnglishQuotesWithChinese，点击运行，就会自动将文档中所有英文双引号成对替换为中文左引号“和右引号”。

完美解决！

END