Question

Delphi中如何调用“接口”，以读取TWordDocument.BuiltInDocumentProperties？

Delphi操作Word文件时，（WorXP.pas中）有个BuiltInDocumentProperties属性，定义为“IDispatch”类型，如何编程读取之？
不用OLE方式，用TWordApplication、TWordDocument，谢谢！

Answer 1

要使用 Excel 中的内置属性，请使用以下属性：
在文档级项目中，使用 ThisWorkbook 类的 BuiltinDocumentProperties 属性。
在 VSTO 外接程序项目中，使用 Microsoft.Office.Interop.Excel.Workbook 对象的 BuiltinDocumentProperties 属性。
这些属性将返回 T:Microsoft.Office.Core.DocumentProperties 对象，该对象为 T:Microsoft.Office.Core.DocumentProperty 对象的集合。可以使用集合的 Item 属性，按名称或索引检索该集合中的特定属性。
下面的代码示例演示了如何更改文档级项目中的内置 Revision Number 属性。
若要更改在 Excel 中的修订号属性
将内置文档属性分配给变量。
C#
VB
Microsoft.Office.Core.DocumentProperties properties;

properties = (Microsoft.Office.Core.DocumentProperties)
Globals.ThisWorkbook.BuiltinDocumentProperties;

Microsoft.Office.Core.DocumentProperty prop;
prop = properties["Revision Number"];

以 1 递增 Revision Number 属性。
C#
VB
if (prop.Value == null)
{
prop.Value = 1;
}
else
{
int revision;
if (int.TryParse((string)prop.Value, out revision))
{
prop.Value = revision + 1;
MessageBox.Show("Revision Number = " + revision);
}
else
{
MessageBox.Show("Revision Number = invalid value");
}
}

在 Word 中设置文档属性

若要使用 Word 中的内置属性，请使用以下属性：
在文档级项目中，使用 ThisDocument 类的 BuiltInDocumentProperties 属性。
在 VSTO 外接程序项目中，使用 Microsoft.Office.Interop.Word.Document 对象的P:Microsoft.Office.Interop.Word._Document.BuiltInDocumentProperties 属性。
这些属性将返回 T:Microsoft.Office.Core.DocumentProperties 对象，该对象为 T:Microsoft.Office.Core.DocumentProperty 对象的集合。可以使用集合的 Item 属性，按名称或索引检索该集合中的特定属性。
下面的代码示例演示了如何更改文档级项目中的内置 Subject 属性。
若要更改主题属性
将内置文档属性分配给变量。
C#
VB
Microsoft.Office.Core.DocumentProperties properties;

properties = (Microsoft.Office.Core.DocumentProperties)
Globals.ThisDocument.BuiltInDocumentProperties;

将 Subject 属性更改为“白皮书”。
C#
VB
// Set the Subject property.
properties["Subject"].Value = "Whitepaper";

追问

不好意思，我要的是Delphi下的不是VSTO下的。而且不用OLE方式，用TWordApplication、TWordDocument，谢谢！