一些常用的WORDVBA代码.doc

这里给大家提供一些比较常用的 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 Ifx=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, 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 ' 如果用户选择