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

Question

Bonjour，你好，

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

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

＆＃34; ...此过程的工作原理如第23页所述......＆＃34;

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

    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）。