Word中用“查找”“替换”一次就实现英文标点符号全部替换中文标

1.Word中用“查找”“替换”一次就实现英文标点符号全部替换中文标

你可以录制宏来完成这一系列的动作，方便以后使用， 2007在视图--宏里，点宏里的录制宏，ctrl+H打开替换，把每个替换做一次，完成后点宏--停止，下次要用直接点宏--宏名就可以了 这是我做好的一个宏，你可以复制到宏里 Sub 宏2（) ' ' 宏2 宏 ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "," .Replacement.Text = "," .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "." .Replacement.Text = "。

" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ":" .Replacement.Text = ":" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ";" .Replacement.Text = ";" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = """" .Replacement.Text = ChrW(8220) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "<" .Replacement.Text = "《" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ">" .Replacement.Text = "》" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane. = 7 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ">" .Replacement.Text = "》" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .HanjaPhoneticHangul = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With End Sub。