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

1、先记下一个 xx：全角情况下，WORD中的空格为方格形状；半角情况下，空格为小黑点形 状。打开word,工具亠宏TVisual Basic编辑器，在主窗体复制以下内容后粘 贴保存关闭编辑器，在工具亠宏亠宏里调用.Sub Togglel nterpu nctio n()中英文标点互换Dim ChineseInterpunction() As Variant, EnglishInterpunction() As VariantDim myArray1() As Variant, myArray2() As Variant, strFind As String, strRep As StringDi

2、m msgResult As VbMsgBoxResult, N As Byte定义一个中文标点的数组对象I! HChineselnterpunction = Array(、, ？ , ！, / 5555I!), , )3/ 3定义一个英文标点的数组对象I! II. HEnglishlnterpunction = Array(,., , ?, !, ,.,(, ), )提示用户交互的MSGBOX对话框msgResult = MsgBox（您想中英标点互换吗？按丫将中文标点转为英文标点，按 N将英文标点转为中文标点!, vbYesNoCancel）Select Case msgResultCas

3、e vbCancelExit Sub 如果用户选择了取消按钮 ,则退出程序运行Case vbYes如果用户选择了 YES则将中文标点转换为英文标点myArray1 = ChineseInterpunction myArray2 = EnglishInterpunction strFind = “ (*) ”strRep =IIHH1III!Case vbNo如果用户选择了 NO则将英文标点转换为中文标点myArray1 = EnglishInterpunctionmyArray2 = ChineseInterpunctionstrFind = (*)strRep = 1”“End Select

4、Applicati on. Scree nUpdat ing = False 关闭屏幕更新For N = 0 To UBou nd(Chi nesel nterpu nctio n)从数组的下标到上标间作一个循 环 With ActiveDocument.Content.Find.ClearFormatting 不限定查找格式 .MatchWildcards = False 不 使用通配符 查找相应的英文标点 ,替换为对应的中文标点 .Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAllEnd WithNextWith ActiveDocument.Content.Find .ClearFormatting 不限定查找格式 .MatchWildcards = True 使用通配符.Execute findtext:=strFind, replacewith:=strRep, Replac