Word里为什么不能区分中文的左右双引号？

chncwk

我想把「、」分别替换为 “、”
但结果全都被替换为西文的"了
有没有从根本上精确替换的法子？

遥控器78

可以替换呀，是不是你替换时输入法没选对

413191246se

1. Sub aaaa替换双引号()
   
2.     Dim arr, i&
   
3.     arr = Array("「", "」")
   
4.     For i = 0 To UBound(arr)
   
5.         With ActiveDocument.Content.Find
   
6.             .ClearFormatting
   
7.             .Text = arr(i)
   
8.             .Forward = True
   
9.             .MatchWildcards = True
   
10.             Do While .Execute
    
11.                 With .Parent
    
12.                     .Font.Color = wdColorRed '红色（此行代码可删除）
    
13.                     If i = 0 Then .Text = Chr(-24144) Else .Text = Chr(-24143)
    
14.                     .Font.NameFarEast = "宋体"
    
15.                     .Start = .End
    
16.                 End With
    
17.             Loop
    
18.         End With
    
19.     Next
    
20. End Sub

复制代码

cuanju

Sub d3()
    Rem 方框引号改为双引号
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "「" '左引号
        .Replacement.Text = Chr(-24144)
        With .Replacement
            .ClearFormatting
            .Font.Name = "宋体"
        End With
        .Execute Format:=True, Replace:=wdReplaceAll
    End With
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "」" '右引号
        .Replacement.Text = Chr(-24143)
        With .Replacement
            .ClearFormatting
            .Font.Name = "宋体"
        End With
        .Execute Format:=True, Replace:=wdReplaceAll
    End With
End Sub