Application.CompareProjectVersions 方法 (Project)

显示 "比较项目版本" 对话框以比较项目的两个版本。

语法

expression。 CompareProjectVersions

表达 返回 Application 对象的表达式。

返回值

Boolean

说明

CompareProjectVersions 方法等效于在功能区上的 项目选项卡的 报表组中的 比较项目命令。 如果您希望以编程方式控制的项目比较功能 (例如是否显示差异列)，请使用 CreateComparisonReport 方法。

示例

下面的示例将检查调用 CompareProjectVersions 方法之前是否打开一个项目。 如果打开了一个项目，该代码会检查是否有任务或项目中的资源之前调用方法。

Sub CompareVersions () 
    If Projects.Count = 0 Then 
        MsgBox "You must have at least one project open before you can compare projects." 
    Exit Sub 
 
    ElseIf ActiveProject.Tasks.Count = 0 Then 
        If ActiveProject.ResourceCount = 0 Then 
            MsgBox "There are no task or resources in the current project." & vbCrLf & _ 
                "Open a project with either tasks or resources before creating a comparison report.", _ 
                vbInformation 
            Exit Sub 
        End If 
    End If 
 
    CompareProjectVersions 
End Sub

支持和反馈

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