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

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

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=Fa

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

3、ordForms=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=Fals

4、eEndWithApplication.WindowState=wdWindowStateNormalSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="，".Replacement.Text="".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.Matc

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

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

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

8、e=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSele