WORD中批量转换中英文标点符号

WORD中批量转换中英文标点符号先记下一个东西：全角情况下，WORD中的空格为方格形状；半角情况下，空格为小黑点形状。打开word,工具→宏→VisualBasic编辑器,在主窗体复制以下内容后粘贴,保存.关闭编辑器,在工具→宏→宏里调用.SubToggleInterpunction()'中英文标点互换DimChineseInterpunction()AsVariant,EnglishInterpunction()AsVariantDimmyArray1()AsVariant,myArray2()AsVariant,strFindAsString,strRepAsStringDimmsgResultAsVbMsgBoxResult,NAsByte'定义一个中文标点的数组对象ChineseInterpunction=Array(、,。,，,；,：,？,！,……,—,～,（,）,《,》)'定义一个英文标点的数组对象EnglishInterpunction=Array(,,.,,,;,:,?,!,…,-,~,(,),,)'提示用户交互的MSGBOX对话框msgResult=MsgBox(您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!,vbYesNoCancel)SelectCasemsgResultCasevbCancelExitSub'如果用户选择了取消按钮,则退出程序运行CasevbYes'如果用户选择了YES,则将中文标点转换为英文标点myArray1=ChineseInterpunctionmyArray2=EnglishInterpunctionstrFind=“(*)”strRep=\1CasevbNo'如果用户选择了NO,则将英文标点转换为中文标点myArray1=EnglishInterpunctionmyArray2=ChineseInterpunctionstrFind=(*)strRep=“\1”EndSelectApplication.ScreenUpdating=False'关闭屏幕更新ForN=0ToUBound(ChineseInterpunction)'从数组的下标到上标间作一个循环WithActiveDocument.Content.Find.ClearFormatting'不限定查找格式.MatchWildcards=False'不使用通配符'查找相应的英文标点,替换为对应的中文标点.Executefindtext:=myArray1(N),replacewith:=myArray2(N),Replace:=wdReplaceAllEndWithNextWithActiveDocument.Content.Find.ClearFormatting'不限定查找格式.MatchWildcards=True'使用通配符.Executefindtext:=strFind,replacewith:=strRep,Replace:=wdReplaceAllEndWithApplication.ScreenUpdating=True'恢复屏幕更新EndSub