精选优质文档-倾情为你奉上这里给大家提供一些比较常用的WORD VBA代码，可以提高大家的办公效率，如果不知道怎么使用这些代码，请自行上网查询WORD如何运行VBA。1、删除空行Sub 删除空行()Dim I As Paragraph, n As IntegerApplication.ScreenUpdating = FalseFor Each I In ActiveDocument.ParagraphsIf Len(Trim(I.Range) = 1 ThenI.Range.Deleten = n + 1End IfNextMsgBox 共删除空白段落 & n & 个Application.ScreenUpdating = TrueEnd Sub2、奇偶页打印Sub 奇偶页打印()Dim x, j, i As IntegerOn Error Resume Nextx = ExecuteExcel4Macro(Get.Document(50)For i = 1 To Int(x / 2) + 1Activ
