如何使用VBA提取MS Project项目信息中的Manager等摘要字段

你之前查找的Task对象为任务级实体，而「信息 > 项目信息 > 摘要」选项卡内的Manager、Company、Category、Keywords均为项目级内置文档属性，不属于Task对象的属性范畴，需通过项目层级的接口访问，具体实现方式如下：

方式一：直接调用Project对象暴露的顶级属性（推荐） #

MS Project的Project对象直接开放了高频摘要字段的访问入口，无需遍历属性集合即可快速读取：

• Manager字段：对应Project.Manager
• Company字段：对应Project.Company

VBA调用示例：

Sub ReadCoreSummaryInfo()
    ' 定义当前激活项目为操作对象，可替换为你指定的其他Project实例
    Dim currentProj As Project
    Set currentProj = ActiveProject
    
    ' 读取字段值
    Dim projectManager As String
    Dim projectCompany As String
    projectManager = currentProj.Manager
    projectCompany = currentProj.Company
    
    ' 测试输出到立即窗口
    Debug.Print "项目负责人(Manager)：" & projectManager
    Debug.Print "所属单位(Company)：" & projectCompany
End Sub

方式二：通过内置文档属性集合读取全量摘要字段 #

Category、Keywords这类未暴露为Project顶级属性的字段，可通过BuiltinDocumentProperties内置文档属性集合访问，无需额外依赖即可兼容各版本Project：

Sub ReadFullSummaryInfo()
    Dim currentProj As Project
    Set currentProj = ActiveProject
    
    Dim projectCategory As String
    Dim projectKeywords As String
    
    ' 按属性名读取对应值
    projectCategory = currentProj.BuiltinDocumentProperties("Category").Value
    projectKeywords = currentProj.BuiltinDocumentProperties("Keywords").Value
    
    Debug.Print "项目分类(Category)：" & projectCategory
    Debug.Print "关键词(Keywords)：" & projectKeywords
End Sub

注意事项 #

• 操作非当前激活的项目时，将代码中ActiveProject替换为你已赋值的目标Project对象实例即可
• 读取字段前建议增加空值判断，避免对应字段未填写时触发运行时错误
• 所有摘要字段均绑定在项目文件层级，不存在于Task、Resource等子级对象的属性列表中，无需在子对象下检索

内容的提问来源于stack exchange，提问作者Joe Bloggs