HasRevisionInfo 属性

返回 PpRevisionInfo 类型常数，该常数代表演示文稿是合并作者文档、带有基线的审阅者文档、还是普通的 Microsoft PowerPoint 文档。只读。

PpRevisionInfo 可以是下列 PpRevisionInfo 类型常数之一。

ppRevisionInfoBaseline 演示文稿有基线。

ppRevisionInfoMerged 演示文稿为合并作者演示文稿。

ppRevisionInfoNone 演示文稿没有审阅者信息。

expression.HasRevisionInfo

expression 必选。该表达式返回“应用于”列表中的对象之一。

说明

批注不作为审阅者信息。

示例

以下示例添加并删除基线，并同时向用户报告状态。

Sub AddABaseline()
    ActivePresentation.AddBaseline
    Call ReportRevisionInfo(ActivePresentation)
    ActivePresentation.RemoveBaseline
    Call ReportRevisionInfo(ActivePresentation)
End Sub

Sub ReportRevisionInfo(pre As Presentation)
    Select Case pre.HasRevisionInfo
        Case ppRevisionInfoBaseline
            MsgBox "The presentation has a base line."
        Case ppRevisionInfoMerged
            MsgBox "The presentation is a merged author presentation."
        Case ppRevisionInfoNone
            MsgBox "The presentation has no reviewer information."
        Case Else
            MsgBox "Couldn't determine revision information."
    End Select
End Sub