在Project VBA中读取/获取对象的当前值

Question

我正努力在MS Project VBA中保存对象的当前值（至少我认为它是一个对象）。

这是我正在尝试做的事情，保存当前标题文本的值。

dim a As String (or Variant/Object?)
a = Application.FilePageSetupHeader.Text.Value

这显然不起作用，但要明白这一点。 其语法是：

expression. FilePageSetupHeader( ** Name, ** Alignment, ** Text** )

将Name和Text作为字符串传递。

如果我让它工作，我也会对从这个对象中提取NormalType值感兴趣。请注意，我必须指定项目：

GridlinesEditEx Item:=4, NormalType:=1

任何帮助将不胜感激！

Answer 1

FilePageSetupHeader是应用程序对象的 方法 ，而不是 属性 （{{ 3}}）。 MS Project对象模型没有要查询的标头对象，所以不幸的是标题（和页脚）是只写的。