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