Range.InsertCrossReference 方法 (Word)
插入对标题、书签、脚注、尾注或定义了题注标签的项（如公式、图表或表格）的交叉引用。
expression. InsertCrossReference( _ReferenceType_ , _ReferenceKind_ , _ReferenceItem_ , _InsertAsHyperlink_ , _IncludePosition_ , _SeparateNumbers_ , _SeparatorString_ )
expression 是必需的。 一个代表 Range 对象的变量。
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| ReferenceType | 必需 | Variant | 为要插入交叉引用的项的类型。 可以是任何 WdReferenceType 或 WdCaptionLabelID 常量或用户定义的标题标签。 |
| ReferenceKind | 必需 | WdReferenceKind | 要包含在交叉引用中的信息。 |
| ReferenceItem | 必需 | Variant | 如果 ReferenceType 是 wdRefTypeBookmark ，该参数指定的书签名称。 对于所有其他 ReferenceType 值，此参数在 交叉引用对话框中的 引用类型选项中指定物料编号或名称。 使用 GetCrossReferenceItems 方法返回可与此参数一起使用的项名称的列表。 |
| InsertAsHyperlink | 可选 | Variant | 真 要插入交叉引用作为超链接引用的项。 |
| IncludePosition | 可选 | Variant | True 则根据引用项相对于交叉引用的位置插入"见上方"或"见下方，"。 |
| SeparateNumbers | 可选 | Variant | 如此 使用分隔符将数字从关联文本中分离。 (使用仅当将 ReferenceType 参数设置为 wdRefTypeNumberedItem 和 ReferenceKind 参数设置为 wdNumberFullContext )。 |
| SeparatorString | 可选 | Variant | 指定的字符串作为分隔符，如果将 SeparateNumbers 参数设置为 True 。 |
如果指定的值的 ReferenceKind wdPageNumber ，您可能需要重新分页文档以查看正确的交叉引用信息。
以下示例在活动文档的开头插入一个对包含文档中第一个书签的页的交叉引用。
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
myBookmarks = ActiveDocument _
.GetCrossReferenceItems(wdRefTypeBookmark)
With myRange
.InsertBefore "Page "
.Collapse Direction:=wdCollapseEnd
.InsertCrossReference ReferenceType:=wdRefTypeBookmark, _
ReferenceKind:=wdPageNumber, ReferenceItem:=myBookmarks(1)
End With
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。