《一些常用的WORD-VBA代码》由会员分享，可在线阅读，更多相关《一些常用的WORD-VBA代码（3页珍藏版）》请在金锄头文库上搜索。
1、这里给大家提供一些比较常用的这里给大家提供一些比较常用的 WORD VBAWORD VBA代码，可以提高大家的办公效率，如果不知代码，可以提高大家的办公效率，如果不知道怎么使用这些代码，请自行上网查询道怎么使用这些代码，请自行上网查询 WORDWORD 如何运行如何运行 VBAVBA。1 1、删除空行、删除空行Sub 删除空行()Dim I As Paragraph, n As Integer = FalseFor Each I InIf Len(Trim) = 1 Thenn = n + 1End IfNextMsgBox 共删除空白段落 & n & 个 = TrueEnd Sub2 2、奇
2、偶页打印、奇偶页打印Sub 奇偶页打印()Dim x, j, i As IntegerOn Error Resume Nextx = ExecuteExcel4Macro(50)For i = 1 To Int(x / 2) + 1 From:=2 * i - 1, To:=2 * i - 1Next iIf x = 1 ThenMsgBox 无偶数页ElseMsgBox 请将打印出的纸张反向装入纸槽中, vbOKOnly, 打印另一面For j = 1 To Int(x / 2) + 1 From:=2 * j, To:=2 * jNext jEnd IfEnd Sub3 3、中英文标点互换
3、、中英文标点互换Sub 中英文标点互换()Dim ChineseInterpunction() As Variant, EnglishInterpunction() As VariantDim myArray1() As Variant, myArray2() As Variant, strFind As String, strRep As StringDim msgResult As VbMsgBoxResult, N As Byte定义一个中文标点的数组对象ChineseInterpunction = Array(、,。, ，, ；, ：, , ！, , , , （, ）, , )定义一个
4、英文标点的数组对象EnglishInterpunction = Array(,., , ;, :, , !, , -, , (,1), )注意这里的英文,转换为了中文、 ，如果希望将,转换为中文，请自行修改！提示用户交互的 MSGBOX 对话框msgResult = MsgBox(您想中英标点互换吗按 Y 将中文标点转为英文标点,按 N 将英文标点转为中文标点!, vbYesNoCancel)Select Case msgResultCase vbCancelExit Sub 如果用户选择了取消按钮,则退出程序运行Case vbYes 如果用户选择了 YES,则将中文标点转换为英文标点myAr
5、ray1 = ChineseInterpunctionmyArray2 = EnglishInterpunctionstrFind = “(*)”strRep = 1Case vbNo 如果用户选择了 NO,则将英文标点转换为中文标点myArray1 = EnglishInterpunctionmyArray2 = ChineseInterpunctionstrFind = (*)strRep = “1”End Select = False 关闭屏幕更新For N = 0 To UBound(ChineseInterpunction) 从数组的下标到上标间作一个循环With.ClearForm
6、atting 不限定查找格式.MatchWildcards = False 不使用通配符查找相应的英文标点,替换为对应的中文标点.Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAllEnd WithNextWith.ClearFormatting 不限定查找格式.MatchWildcards = True 使用通配符.Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAllEnd With = True 恢复屏
7、幕更新End Sub4 4、任意页插入页码、任意页插入页码Sub 任意页插入页码()Dim p As IntegerOn Error Resume Nextp = InputBox(请输入起始编排页码的页次)With Selection.GoTo What:=wdGoToPage, Count:=p.InsertBreak Type:=wdSectionBreakContinuous1.Sections(1).Footers(1).LinkToPrevious = FalseWith .Sections(1).Footers(1).PageNumbers.RestartNumberingAtS
8、ection = True.StartingNumber = 1.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=TrueEnd WithEnd WithEnd Sub5 5、实现图形的精确旋转、实现图形的精确旋转Sub 图形旋转()Dim blnIsInlineShape As BooleanIf = wdSelectionInlineShape ThenblnIsInlineShape = True(1).ConvertToShapeEnd IfDim intTurn As IntegerintTurn = InputBox(请输入图形要旋转的角度值 & vbCrLf & 正数表示顺时针，负数表示逆时针。, 图形旋转, 30) intTurnEnd Sub注释：上述代码中，首先是将嵌入式的图形转换为可以自由浮动的图形。返回Wo rd窗口之后，选中文档中需要旋转的某幅图形，按下Alt+F8 组合键，选中列表框中的“图形旋转”宏， 单击“运行”按钮弹出一个对话框， 默认的旋转角度是 30， 例如设置为“33”，很快就可以完成旋转操作。1
