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

《全角符号替换为半角符号的宏替换代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、AllWordForms=FalseEndWithSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="".Replacement.Text="".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndW

3、ithSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="".Replacement.Text="".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithApplication.WindowS

4、tate=wdWindowStateNormalSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="，".Replacement.Text="".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=Fal

5、se.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="。".Replacement.Text="".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms

6、=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="《".Replacement.Text="<".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelect

7、ion.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="》".Replacement.Text=">".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteRep

8、lace:=wdReplaceAllWithSele