Word VBA 常用语句.docVIP

Word VBA 常用语句 定制模块行为 (1)强制对模块内所有变量进行声明 Option Explicit 标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Private Module 字符串不区分大小写 Option Compare Text 指定数组的第一个下标为1 Option Base 1 (2)忽略错误继续执行VBA代码,避免出现错误消息 On Error Resume Next (3)当错误发生时跳转到过程中的某个位置 On Error GoTo ErrorHandler (4)恢复正常的错误提示 On Error GoTo 0 (5)在程序执行过程中使出现的警告框不显示 Application.DisplayAlerts = False (6)关闭屏幕刷新 Application.ScreenUpdating = False 打开屏幕刷新 Application.ScreenUpdating = True (7)禁用Ctrl+Break中止宏运行的功能 Application.Enable.CancelKey = xlDisabled 工作簿 (8)创建一个新的工作簿 Workbooks.Add() (9)激活名为book1的工作簿 Workbooks(book1.xls).Activate (10)保存工作簿 ThisWorkbook.Save (11)关闭当前工作簿 ThisWorkbook.Close (12)获取活动工作薄中工作表数 ActiveWorkbook.Sheets.Count (13)返回活动工作薄的名称 ActiveWorkbook.Name (14)返回当前工作簿名称 ThisWorkbook.Name 返回当前工作簿路径和名称 ThisWorkbook.FullName (15)禁止调整活动工作簿的大小 ActiveWindow.EnableResize = False (16)将工作簿以平铺方式排列 Application.Window.Arrange xlArrangeStyleTiled (17)将当前工作簿最大化 ActiveWorkbook.WindowState = xlMaximized 工作表 (18)当前工作表中已使用的行数 ActiveSheet.UsedRange.Rows.Count (19)获取工作表的行数(注：考虑向前兼容性) Rows.Count (20)将Sheet1命名为Sum Sheets(Sheet1).Name = Sum (21)添加一个新工作表在第一工作表前 ThisWorkbook.Sheets.Add Before:=Worksheets(1) (22)将当前工作表移至工作表的最后 ActiveSheet.Move After:=ActiveWorkbook. _ Sheets(ActiveWorkbook.Sheets.Count) (23)同时选择工作表1和工作表2 Worksheets(Array(sheet1, sheet2)).Select (24)删除工作表1 Sheets(sheet1).Delete 或 Sheets(1).Delete (25)获取工作表i的名称 ActiveWorkbook.Sheets(i).Name (26)切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮 ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines (27)切换工作表中的行列边框显示 ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings (28)删除当前工作表中所有的条件格式 ActiveSheet.UsedRange.FormatConditions.Delete (29)取消当前工作表所有超链接 Cells.Hyperlinks.Delete (30)将页面设置更改为横向 ActiveSheet.PageSetup.Orientation = xlLandscape 或 ActiveSheet.PageSetup.Orientation = 2 (31)在页面设置的表尾中输入文件路径 ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName 将用户名放置在活动工作表的页脚 ActiveSheet.PageSetup.LeftFooter = Application.UserName 单元格/单元格区域 (32)选择当前活动单元格所包含的范围，上下左右无空行 Ac