全角的＂引号如何用宏替换为全角的右引号”

4461

如使用文字识别的文本中引号成了全角的 ＂ ，这是和全角左右引号不同的符号，WORD无法自动替换成全角的左右引号。下面是识别后的文本：

会意。四＂口＂表示众器物的口，＂犬＂守护着，以防遗弃。本义就是＂器物＂。不同质地、不同用途的器具都可称为＂器＂，如＂木器＂、＂金器＂、＂陶器＂、＂食器＂、＂洒器＂、＂兵器＂等本义器之延用现在，古今写法也变化不大。＂器＂作为异体，见于《玉篇·㗊部》。

在WORD中直接使用查找＂替换可以完成”的，但是在VBA中却无法替换。因为在录入.Text = "＂"时，会自动修改为.Text = """"。

求高手帮助指点，谢谢！

limonet

用这个可以。
Sub 替换()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^u65282"
        .Replacement.Text = ChrW(8220)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

4461

limonet 发表于 2022-3-8 22:01
用这个可以。
Sub 替换()
    Selection.Find.ClearFormatting

感谢老师的解惑，谢谢！