如果演示文稿的作者为“Manager1”,本示例将该文稿设定内置文档属性“Category”的值设为“Creative Writing”。

With Application.ActivePresentation.BuiltInDocumentProperties
    If .Item("author").Value = "Manager1" Then
        .Item("category").Value = "Creative Writing"
    End If
End With