通过 Delphi XE5 插入对单词的交叉引用

Question

你好，你好，

我正在制作这个用于创建 word 文档的 delphi 应用程序。我已经完成了基本的单词操作（创建/保存、文本、表格等）。

我需要做的是在文本中插入标题的页码作为交叉引用。类似的东西：

"...并且该过程按照第 23 页的说明进行..."

其中页码是指向标题的超链接。当我用 word 录制宏时，它看起来像：

    Selection.InsertCrossReference ReferenceType:="Heading", _
    ReferenceKind:=wdPageNumber, ReferenceItem:="49", InsertAsHyperlink:=True _
    , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "

请问在 Delphi 中的等价物是什么？

提前致谢！ 阿琼。

Answer 1

即使您使用后期绑定，您仍然需要按照与原始声明相同的顺序提供所有参数。

expression.InsertCrossReference(ReferenceType, ReferenceKind, ReferenceItem,
InsertAsHyperlink, IncludePosition, SeparateNumbers, SeparatorString)

如果您不使用参数，则可以将其替换为 EmptyParam。

所以我认为您的代码将是：

Selection.InsertCrossReference('Heading', 7, '49', True, False, False, ' ');

（我认为wdPageNumber的值为7）。