扫描识别文档中的引号全角＂，如何使用宏替换成半角引号“

4461

求助大侠的帮忙：在WORD2016中无法使用宏来替换全角的引号——＂——（不是正常的左引号或右引号）。在录入宏时.Text = "＂"会自动改成.Text = """"。

limonet

给个附件试试。

蜀中草莽

对，宏里面就是那样写的！

4461

limonet 发表于 2022-3-1 22:09
给个附件试试。

如使用文字识别后的文本如下：
会意字。四“口”表示众器物的口，＂犬”守护着，以防丢失。本义就是＂器具”。段玉裁说“器乃凡器统称”是对的。不同质地、不同用途的器具都可称为＂器”，如“木器”、“金器”、“陶器”、“食器”、"洒器”、“兵器”等等器之本义延用至今，古今写法也变化不大。＂器”作为异体，见于《玉篇·㗊部》。

其中的引号（＂）如何通过VBA替换成（“）。
现在WORD2016无法使用如下的宏进行替换：
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "＂"
        .Replacement.Text = ChrW(8220)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
因为在录入.Text = "＂"时，会自动修正为.Text = """"。

4461

如使用文字识别后的文本如下：
会意字。四“口”表示众器物的口，＂犬”守护着，以防丢失。本义就是＂器具”。段玉裁说“器乃凡器统称”是对的。不同质地、不同用途的器具都可称为＂器”，如“木器”、“金器”、“陶器”、“食器”、"洒器”、“兵器”等等器之本义延用至今，古今写法也变化不大。＂器”作为异体，见于《玉篇·㗊部》。

其中的引号（＂）如何通过VBA替换成（“）。
现在WORD2016无法使用如下的宏进行替换：
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "＂"
        .Replacement.Text = ChrW(8220)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
因为在录入.Text = "＂"时，会自动修正为.Text = """"。

4461

如使用文字识别后的文本如下： 会意字。四“口”表示众器物的口，＂犬”守护着，以防丢失。本义就是＂器具”。段玉裁说“器乃凡器统称”是对的。不同质地、不同用途的器具都可称为＂器”，如“木器”、“金器”、“陶器”、“食器”、"洒器”、“兵器”等等器之本义延用至今，古今写法也变化不大。＂器”作为异体，见于《玉篇·㗊部》。  其中的引号（＂）如何通过VBA替换成（“）。 现在WORD2016无法使用如下的宏进行替换：     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "＂"         .Replacement.Text = ChrW(8220)         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = True         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With 因为在录入.Text = "＂"时，会自动修正为.Text = """"。