- 1、本文档共2页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
1.工具 →宏 →Visual Basic 编辑器
2. 工具 →宏 →宏
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
myArray2 = ChineseInterpunction
strFind = (*)
strRep = 1“”
End Select
Application.ScreenUpdating = False 关闭屏幕更新
For N = 0 To UBound(ChineseInterpunction) 从数组的下标到上标间作一个循环
With ActiveDocument.Content.Find
.ClearFormatting 不限定查找格式
.MatchWildcards = False 不使用通配符
查找相应的英文标点 ,替换为对应的中文标点
.Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAll
End With
Next
With ActiveDocument.Content.Find
.ClearFormatting 不限定查找格式
.MatchWildcards = True 使用通配符
.Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True 恢复屏幕更新
End Sub
您可能关注的文档
- FamilyTree(家谱)中英文文本.pdf
- FOB贸易术语解释(中英文).pdf
- Interstellar.星际穿越.中英双语字幕.pdf
- IPX防水等级标准.pdf
- ITIL术语中英文对照表.pdf
- LetItGo中英文完整歌词.pdf
- mesa肉锥种子中英文对照2018.pdf
- OCT在冠状动脉介入治疗中的应用.pdf
- OECD公司治理准则partII(中英文对照).pdf
- Office办公软件学习资料(零基础).pdf
- 公务员考试申论答题纸.pdf
- 国庆节的古诗.doc
- 就业登记、失业登记.doc
- 2023-2024学年山东省德州市夏津县统编版六年级上册期末考试语文试卷(含答案解析).docx
- 云南省大理下关第一中学2024-2025学年高一上学期入学考试数学试题(含答案解析).pdf
- 重庆市缙云教育联盟2023-2024学年高二下学期2月月考语文试题(含答案解析).pdf
- 北京市大兴区2023-2024学年高三上学期期末考试语文试题(含答案解析).pdf
- 2023-2024学年山东省德州市临邑县统编版三年级上册期末考试语文试卷(含答案解析).docx
- 吉林省长春市朝阳区长春外国语学校2024-2025学年高二上学期开学考试数学试题(含答案解析).docx
- 2023-2024学年山东省日照市五莲县统编版四年级上册期末考试语文试卷(含答案解析).pdf
最近下载
- GB_T 42900-2023 金属材料 高应变速率高温压缩试验方法.docx
- 中国抑郁障碍防治指南(第二版)简介PPT课件.pptx
- 心脏肿瘤讲课.pptx VIP
- 外研社版英语4年级上册单词表衡水体描红练字帖(三年级起点含音标和例句).pdf
- 电动自行车一线通、RS485、CAN2.0通信协议规范、基于RS485通信的充放电流程示例.pdf VIP
- 湖南省湖南师范大学附属中学2024-2025学年高二上学期入学考试数学试卷(解析版).docx VIP
- 四年级音乐 跳柴歌 课件.pptx
- 《复用医疗器械预处理操作规程》.pdf VIP
- 火灾自动报警及联动控制系统技术交底.docx VIP
- GB_T 43674-2024加氢站通用要求.docx VIP
文档评论(0)