把这个宏做成菜单上的快捷方式才好用,一次只替换一对西文的双引号。
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
|