如果取消了“直引号替换为弯引号”前面的勾仍然出错，那大概就是字体问题了。
这个页面看到的雅黑字体就是这样，看起来都是差不多的斜双杠。其实放大了看还是有区别的，前引号上小下大，后引号上大下小。
给你一段 word 宏代码，不考虑“直引号替换为弯引号”前面的勾是否取消。可以用在不太长的文档中，自动处理全文单双引号，跨段的双引号也能正确处理。
注意：本段代码中，英文单引号是不处理的，单引号跨段也不处理。如果是处理太长的文档会比较卡，需要另写代码，只在框选区域内执行。
此外，把代码粘贴到宏编辑器中时，系统可能会把单引号部分的中文单引号换成英文单引号，导致单引号处理出错，需要在编辑器中手动修改几处单引号。在编辑器里代码中有淡绿色文本提示，提示文本可以删除。
Sub 引号()
= False
With
.Execute FindText:="‘", replacewith:="’", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8221), replacewith:=ChrW(8220), Replace:=wdReplaceAll' 本行FindText:="‘"中的单引号换成中文前单引号，replacewith:="’"中的单引号换成中文后单引号
End With
Dim P&
With Selection
P = .
End With
Text = ChrW(8220)
With
Do While .Execute(FindText:=Text) = True
Y = Y + 1
Loop
End With
With
.Text = "’(*)’"'两处都换成中文后单引号
. = "‘\1’"'配对中文单引号
.MatchWildcards = True
End With
Replace:=wdReplaceAll
unit:=wdStory
For N = 1 To P
wdParagraph
With
.Text = ChrW(8220) & "(*)" & ChrW(8220)
. = ChrW(8220) & "\1" & ChrW(8221)
End With
Replace:=wdReplaceAll,Wrap:=wdFindStop
unit:=wdParagraph
Next N
unit:=wdStory
For S = 1 To Y
With
.Text = "[" & ChrW(8220) & ChrW(8221) & "]"
. = "^&"
.Forward = True
.MatchWildcards = True
End With
= wdWidthFullWidth
Next S
unit:=wdStory
End Sub
痴货小逗逗
