VBA中一些参数表

Sub Dialogs参数表() 测试
Call Application.Dialogs(80).Show 打开文档
Call Application.Dialogs(84).Show 另存为
Call Application.Dialogs(1007).Show 保存版本
Call Application.Dialogs(164).Show 插入文档

Call Application.Dialogs(117).Show 替换
Call Application.Dialogs(112).Show 查找
Call Application.Dialogs(896).Show 定位

Call Application.Dialogs(178).Show 页面设置
Call Application.Dialogs(208).Show 打印属性
Call Application.Dialogs(88).Show 打印文档
Call Application.Dialogs(189).Show 边框和底纹
Call Application.Dialogs(181).Show 字体设置
Call Application.Dialogs(168).Show 插入书签
Call Application.Dialogs(172).Show 插入对象
Call Application.Dialogs(163).Show 插入图片
Call Application.Dialogs(162).Show 插入符号
Call Application.Dialogs(370).Show 插入脚注和尾注
Call Application.Dialogs(87).Show 加载模板
Call Application.Dialogs(198).Show 比较两个文档

Call Application.Dialogs(197).Show 突出显示修订
Call Application.Dialogs(506).Show 接受或拒绝修订
Call Application.Dialogs(915).Show 更多选项的自动更正
Call Application.Dialogs(874).Show 自动编写摘要
Call Application.Dialogs(196).Show 项目符号和编号
Call Application.Dialogs(828).Show 拼写和语法
Call Application.Dialogs(228).Show 字数统计
Call Application.Dialogs(152).Show 自定义工具栏
Call Application.Dialogs(213).Show 设置用户信息
Call Application.Dialogs(204).Show 文档视图设置
Call Application.Dialogs(577).Show 显示比例
Call Application.Dialogs(1161).Show 双行合一 请先选中行
Call Application.Dialogs(898).Show Web选项
Call Application.Dialogs(88).Show 打印设置
ActiveWindow.ActivePane.View.SeekView = 9 设置页眉
ActiveWindow.ActivePane.View.SeekView = 10 设置页脚

ActiveWindow.ActivePane.View.Type = wdPrintView 页面视图
ActiveWindow.ActivePane.View.Type = 4 打印预览

Call Application.Dialogs(220).Show 激活文档

Call Application.Dialogs(300).Show 复制
Call Application.Dialogs(503).Show 保护文档 文档已经保护时出错
Call Application.Dialogs(521).Show 解除文档保护 文档没有保护时出错

本示例将显示和执行在"显示比例"对话框中的任意初始化操作。如果没有初始化操作，则对话框在大约 9 秒后关闭。
Dialogs(wdDialogViewZoom).Show TimeOut:=9000
DisplayFormulaBar = 0
Application.ActiveWindow.DocumentMap = True
End Sub
Sub 插入公式()
ActiveDocument.Shapes.AddOLEObject Anchor:=Selection.Range, ClassType:= _
"Equation.3", FileName:="", LinkToFile:=False, DisplayAsIcon:=False
End Sub
Sub 页面视图()
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub
Sub 打印预览()
ActiveDocument.PrintPreview
End Sub

Sub 页眉页脚()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close sss
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End Sub