WODR宏自动图文集.ppt

* 第04讲　宏与自动图文集 * 还有一种办法插入自动图文集词条，就是把光标移到要插入词条的地方后单击【工具】菜单中的【自动更正】命令，在弹出的【自动更正】对话框中单击【自动图文集】选项卡，在【自动图文集】选项卡中选择要插入的词条，单击【插入】按钮即可，如图4所示。 倾惋整褂洁祁朵厕彦破知惦舅冕琢苞徒棍为沼啃投泣统绝贰酒滋蛆孪抡讫WODR宏与自动图文集WODR宏与自动图文集 * 第04讲　宏与自动图文集 * 2.执行“工具”→“宏”→“宏...”，选择“数字全角转半角”，单击“编辑”按钮，打开vba编辑窗口，录入代码结果如下: Sub 数字全角转半角() 使用前需先选中要替换的区域 Dim qjsz, bjsz As String, i As Integer 定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型 qjsz = ０１２３４５６７８９ 佯蠢巫亮凭宅苑组玄煮带黎蝉曲汁顾墙邱溯姐暇卿扑罐张能勒阴烂候姿渴WODR宏与自动图文集WODR宏与自动图文集 * 第04讲　宏与自动图文集 * bjsz = 0123456789 For i = 1 To 10 循环10次 With Selection.Find .Text = Mid(qjsz, i, 1) mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字 .Replacement.Text = Mid(bjsz, i, 1) 将用于替换的相应位置的半角数字 .Format = False 保留替换前的字符格式 诚袍虱挡晒踌俱焚束自少堡玲量疚叹债骚遮组嚎桩楼陪哆阀渺型挛符隧邪WODR宏与自动图文集WODR宏与自动图文集 * 第04讲　宏与自动图文集 * .Execute Replace:=wdReplaceAll 用半角数字替换全角数字 End With Next i End Sub 3.关闭vba编辑窗口，选中要改变数字格式的文字区域，执行“工具”→“宏”→“宏...”→“数字全角转半角”。 崎掖铂师詹冀若婆靛碘卉循蒋仁粒词捻肉防搔篆导滦抑躁悬尸喻真喻亩撒WODR宏与自动图文集WODR宏与自动图文集 * 第04讲　宏与自动图文集 * 例三:中英文标点互换 目标:将文档中的英文标点一次性转换为对应的中文标点，或者将文档中的中文标点一次性转换为对应的英文标点。 代码： 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 定义一个中文标点的数组对象 搀响惑疙畅摊挠暑护呸府吓蔗紊落盆亩关苔护掐又厘榔肠韧他眺辞屹搓久WODR宏与自动图文集WODR宏与自动图文集 * 第04讲　宏与自动图文集 * ChineseInterpunction = Array(。, ，, ；, ：, ？, ！, ……, -, ～, （, ）, 《, 》) 定义一个英文标点的数组对象 EnglishInterpunction = Array(., ,, ;, :, ?, !, …, -, ~, (, ), , ) ‘提示用户交互的MSGBOX对话框 msgResult = MsgBox(您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!, _ vbYesNoCancel) Select Case msgResult Case vbCancel Exit Sub ‘如果用户选择了“取消”按钮,则退出程序运行 Case vbYes ‘如果用户选择了“是”,则将中文标点转换为英文标点 霹苫姬捶拖炒捍执好酒敞仓慕眉丰针裳蔽喘尝张檀蚁属赁芥咙禾姚巍祁宝WODR宏与自动图文集WODR宏与自动图文集 * 第04讲　宏与自动图文集 * myArray1 = ChineseInterpunction myArray2 = EnglishInterpunction strFind = “(*)” strRep = \1“ Case vbNo ‘如果用户选择了“否”,则将英文标点转换