一些常用的WORDVBA代码.docxVIP

1 1 这里给大家提供一些比较常用的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, Eng