全角符号替换为半角符号的宏替换代码

《全角符号替换为半角符号的宏替换代码》由会员分享，可在线阅读，更多相关《全角符号替换为半角符号的宏替换代码（15页珍藏版）》请在金锄头文库上搜索。

1、全角符号替换为半角符号的宏替换代码全角符号替换为半角符号的宏替换代码Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “ “.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSo

2、undsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “ “.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = Fal

3、se.MatchAllWordForms = FalseEnd WithSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “ “.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWor

4、dForms = FalseEnd WithApplication.WindowState = wdWindowStateNormalSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “，“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = Tr

5、ue.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “。“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWild

6、cards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “.Replacement.Text = “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.Ma

7、tchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “？“.Replacement.Text = “?“.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLik

8、e = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “、“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.Ma

9、tchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “；“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordFo

10、rms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “：“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseE

11、nd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = ChrW(8220).Replacement.Text = “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd With

12、Selection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = ChrW(8221).Replacement.Text = “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelecti

13、on.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “.Replacement.Text = “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute

14、Replace:=wdReplaceAllWith Selection.Find.Text = “.Replacement.Text = “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdRepla

15、ceAllWith Selection.Find.Text = “【“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Se

16、lection.Find.Text = “】“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “、“.Replacement.Text = “ “.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSounds