vba - 错误替换双引号而不是双角引号VBA Word

Question

标签： vbams-word

Answer 1

可能您已打开电源.AutoFormatAsYouTypeReplaceQuotes，并且您的 Word 正在将 chr(171) («) 更改为“”。

如果您只想为功能 Find&Replace 关闭此功能，请执行以下操作：

Sub ReplaceDoubleAngleQuotes()

Dim userSmartQuotes As Boolean

userSmartQuotes = Options.AutoFormatAsYouTypeReplaceQuotes
Options.AutoFormatAsYouTypeReplaceQuotes = False

With Selection.Find
 .ClearFormatting
 .Text = Chr(171) & Chr(32)
 .Replacement.ClearFormatting
 .Replacement.Text = Chr(171)
 .Execute Replace:=wdReplaceAll, Forward:=True, _
 Wrap:=wdFindContinue
End With

Options.AutoFormatAsYouTypeReplaceQuotes = userSmartQuotes

End Sub

如果您只想将其关闭（不返回主设置），请放置

Options.AutoFormatAsYouTypeReplaceQuotes = False

一开始就是这样。