WORD中批量转换中英文标点符号 WORD中批量转换中英文标点符号 编辑整理： 尊敬的读者朋友们： 这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（WORD中批量转换中英文标点符号）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。 本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为WORD中批量转换中英文标点符号的全部内容。 WORD中批量转换中英文标点符号 WORD中批量转换中英文标点符号 先记下一个东西:全角情况下，WORD中的空格为方格形状；半角情况下，空格为小黑点形状。 打开word，”工具”→”宏”→”Visual Basic 编辑器”，在主窗体复制以下内容后粘贴,保存。关闭编辑器,在”工具"→”宏”→"宏”里调用。 Sub ToggleInterpunction()'中英文标点互换 Dim ChineseInterpunction（） As Variant， EnglishInterpunction（) As Variant Dim myArray1（） As Variant, myArray2(） As Variant, strFind As String， strRep As String Dim msgResult As VbMsgBoxResult, N As Byte ’定义一个中文标点的数组对象 ChineseInterpunction = Array（"、"，"。"， ”,”， ";"， "：”, "？”， ”！"， "……", ”—"， "～”， ”（"， ”）", "《", "》”） '定义一个英文标点的数组对象 EnglishInterpunction = Array（”,”,"."， ”，”， ”;", ”:”， "?”， ”!", ”…”, "—", ”~", ”（"， "）”， ”<”, ”>"） '提示用户交互的MSGBOX对话框 msgResult = MsgBox(”您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!", vbYesNoCancel) Select Case msgResult Case vbCancel Exit Sub '如果用户选择了取消按钮,则退出程序运行 Case vbYes '如果用户选择了YES,则将中文标点转换为英文标点 myArray1 = ChineseInterpunction myArray2 = EnglishInterpunction strFind = "“(＊)”” strRep = ””"\1””" Case vbNo ’如果用户选择了NO,则将英文标点转换为中文标点 myArray1 = EnglishInterpunction 本文来源：https://www.wddqw.com/doc/dfc575dacdc789eb172ded630b1c59eef9c79ae7.html