Application.Open 方法 (Publisher)
返回一个 Document 对象,该对象代表最近打开的出版物。
语法
表达式。打开 (FileName、 ReadOnly、 AddToRecentFiles、 SaveChanges、 OpenConflictDocument)
expression:表示 Application 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
FileName | 必需 | String | 出版物的名称(可包含路径)。 |
ReadOnly | 可选 | Boolean | 真 要打开为只读的出版物。 默认值为 False 。 |
AddToRecentFiles | 可选 | Boolean | True (默认) 将文件名添加到“ 文件 ”菜单底部最近使用的文件列表。 |
SaveChanges | 可选 | PbSaveOptions | 指定已经打开了某个出版物但尚未保存更改时 Microsoft Publisher 应执行的操作。 可以是发布服务器类型库中声明的 PbSaveOptions 常量之一。 |
OpenConflictDocument | 可选 | Boolean | 为 脱机冲突时打开本地冲突出版物。 默认值为 False 。 |
返回值
文档
备注
由于发布服务器具有单文档界面, Open 方法仅用于打开发布服务器上的一个新实例。 以下代码示例演示如何创建 Publisher 的新可见实例。
完成第二个实例后,可以将应用程序窗口的 Visible 属性设置为 False,但进程将继续在后台运行,即使它不可见。 要关闭第二个实例,您必须设置对象为 空 。
示例
以下示例创建 Publisher 的第二个实例并以只读方式打开指定的出版物。 为了使此示例正常运行,必须将 PathToFile 替换为现有出版物的路径。
Sub OpenNewPub()
Dim appPub As New Publisher.Application
appPub.Open FileName:="PathToFile", _
ReadOnly:=True, AddToRecentFiles:=False, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。