Question

全部显示

返回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