将西文双引号替换成中文双引号的Word宏

把这个宏做成菜单上的快捷方式才好用，一次只替换一对西文的双引号。

Sub 替换中文双引号()

Selection.Find.ClearFormatting

With Selection.Find

.Text = """"

.Replacement.Text = ChrW(8220) & ChrW(8221)

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:=ChrW(8220)

Selection.Find.ClearFormatting

With Selection.Find

.Text = """"

.Replacement.Text = ChrW(8220) & ChrW(8221)

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:=ChrW(8221)

End Sub