WODR宏与自动图文集.pptVIP

* 第04讲　宏与自动图文集 * （3）可以根据需要从各组中选择需要的词条，如从【问候/复信用语】直接选择【分手多日，近况如何】，使书写的信件即方便快捷，又文雅秀丽。 如果在文档中输入了已经存在于自动图文集中的词条的头两个字时，该单词的上方就出现整个词条的内容，只需按Enter 键，即可把整个词条插入到文档中，如：要输入“纸短情长，再祈珍重”，只需输入“纸短”后按Enter 键即可，如图3 所示。 * 第04讲　宏与自动图文集 * 图3 注意： ?这种问候语需要在句首输入才有提示。 * 第04讲　宏与自动图文集 * 还有一种办法插入自动图文集词条，就是把光标移到要插入词条的地方后单击【工具】菜单中的【自动更正】命令，在弹出的【自动更正】对话框中单击【自动图文集】选项卡，在【自动图文集】选项卡中选择要插入的词条，单击【插入】按钮即可，如图4所示。 * 第04讲　宏与自动图文集 * (3)不要关闭“自定义”对话框，在“更改所选内容”上选“更改按钮图标”，从出现的图标中选中一个自己喜欢的图标。再在“更改所选内容”选“默认样式”，关闭“自定义”对话框，这样就形成一个和Word工具栏其他快捷按钮一样的自定义按钮。以后只要打开Word就能处理文本，把网上复制的内容粘贴到Word上，然后按下自定义的宏按钮，全部搞定。 * 第04讲　宏与自动图文集 * 例二：编写Word宏轻松将全角数字转换为半角 如果我们需要把Word文档中的全角数字全部改为半角数字，手头又没有合适的转换软件，应该怎么做呢？ 除了用第01讲中介绍的方法外，也可以编制一个“宏”来自动处理。 1.执行“工具”→“宏”→“录制新宏...”，在“宏名”框中输入“数字全角转半角”，确定，将出现一个“录制宏”工具栏，关闭。 * 第04讲　宏与自动图文集 * 2.执行“工具”→“宏”→“宏...”，选择“数字全角转半角”，单击“编辑”按钮，打开vba编辑窗口，录入代码结果如下: Sub 数字全角转半角() 使用前需先选中要替换的区域 Dim qjsz, bjsz As String, i As Integer 定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型 qjsz = ０１２３４５６７８９ * 第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 保留替换前的字符格式 * 第04讲　宏与自动图文集 * .Execute Replace:=wdReplaceAll 用半角数字替换全角数字 End With Next i End Sub 3.关闭vba编辑窗口，选中要改变数字格式的文字区域，执行“工具”→“宏”→“宏...”→“数字全角转半角”。 * 第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 定义一个中文标点的数组对象 * 第04讲　宏与自动图文集 * ChineseInterpunction = Array(。, ，, ；, ：, ？, ！, ……, -, ～, （, ）, 《, 》) 定义一个英文标点的数组对象 EnglishInterpunction = Array(., ,, ;, :, ?, !, …, -, ~, (, ), , ) ‘提示用户交互的MSGBOX对话框 msgResult = MsgBox(您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!, _ vbYesNoCancel) Select Case