Document.ReadOnly (Publisher)

返回 True 如果出版物是只读的;如果它是可读/写，则返回 False 。 只读 Boolean。

语法

表达式。ReadOnly

表达 一个代表 Document 对象的变量。

返回值

布尔值

示例

本示例保存当前出版物，并通知用户该文件已保存以及是否为只读。

Sub SaveAndStatus() 
 
 Dim bStatus As Boolean 
 
 Application.ActiveDocument.SaveAs "c:\testfile.pub" 
 bStatus = Application.ActiveDocument.ReadOnly 
 MsgBox "File Saved and Read-only Status = " & bStatus 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。