一些常用的WORD-VBA代码.pdf

这里给大家提供一些比较常用的 WORD VBA代码，可以提高大家的办公效率，如果不知 道怎么使用这些代码，请自行上网查询 WORD 如何运行 VBA。 1、删除空行 Sub 删除空行() Dim I As Paragraph, n As Integer = False For Each I In If Len(Trim) = 1 Then n = n + 1 End If Next MsgBox 共删除空白段落 n 个 = True End Sub 2、奇偶页打印 Sub 奇偶页打印() Dim x, j, i As Integer On Error Resume Next x = ExecuteExcel4Macro((50)) For i = 1 To Int(x / 2) + 1 From:=2 * i - 1, To:=2 * i - 1 Next i If x = 1 Then MsgBox 无偶数页 Else MsgBox 请将打印出的纸张反向装入纸槽中, vbOKOnly, 打印另一面 For j = 1 To Int(x / 2) + 1 From:=2 * j, To:=2 * j Next j End If End Sub 3、中英文标点互换 Sub 中英文标点互换() Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant Dim myArray1() As Variant, myArray2() As Variant, strFindAs String, strRepAs String Dim msgResult As VbMsgBoxResult, N As Byte 定义一个中文标点的数组对象 ChineseInterpunction = Array(、,。, ，, ；, ：, , ！, ……, — , ～, （, ）, 《, 》) 定义一个英文标点的数组对象 EnglishInterpunction = Array(,,., ,, ;, :, , !, …, -, ~, (, 1 ), , ) 注意这里的英文,转换为了中文、，如果希望将,转换为中文，请自行修改！ 提示用户交互的 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 = False 关闭屏幕更新 For N = 0 To UBound(ChineseInterpunction) 从数组的下标到上标间作一个循环 With .ClearFormatting 不限定查找格式 .MatchWildcards = False 不使用通配符 查找相应的英文标点,替换为对应的中文标点 .Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAll End With Next With .ClearFormatting 不限定查找格式 .MatchWildcards = True 使用通配符 .Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAll End With = True 恢复屏幕更新 End Sub 4、任意页插入页码 Sub 任意页插入页码() Dim p As Integer On Error Resume Next p =