Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает массив элементов, на которые можно ссылаться на основе указанного типа перекрестной ссылки.
Синтаксис
выражение.
GetCrossReferenceItems( _ReferenceType_ )
выражение Выражение, представляющее объект Document .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| ReferenceType | Обязательный | Variant | Тип элемента, на который нужно вставить перекрестную ссылку. Может быть любой константой WdReferenceType . |
Замечания
Массив, возвращаемый этим методом, соответствует элементам, перечисленным в поле Для которого диалогового окна Перекрестная ссылка . Значение, возвращаемое этим методом, можно использовать в качестве значения аргумента ReferenceWhich для метода InsertCrossReference объекта Range или Selection .
Пример
В этом примере отображается имя первой закладки в активном документе, на которую можно ссылаться.
If ActiveDocument.Bookmarks.Count >= 1 Then
myBookmarks = ActiveDocument.GetCrossReferenceItems( _
wdRefTypeBookmark)
MsgBox myBookmarks(1)
End If
В этом примере метод GetCrossReferenceItems используется для получения списка заголовков, на которые можно ссылаться, а затем вставки перекрестной ссылки на страницу с заголовком "Введение".
myHeadings = _
ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
For i = 1 To Ubound(myHeadings)
If Instr(LCase$(myHeadings(i)), "introduction") Then
Selection.InsertCrossReference _
ReferenceType:=wdRefTypeHeading, _
ReferenceKind:=wdPageNumber, ReferenceItem:=i
Selection.InsertParagraphAfter
End If
Next i
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.