Cross reference word vba

Show All

InsertCrossReference Method

Inserts a cross-reference to a heading, bookmark, footnote, or endnote, or to an item for which a caption label is defined (for example, an equation, figure, or table).

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

expression    Required. An expression that returns one of the objects in the Applies To list.

ReferenceType   Required Variant. The type of item for which a cross-reference is to be inserted. Can be any WdReferenceType
or WdCaptionLabelID
constant or a user defined caption label.

ReferenceKind   Required WdReferenceKind. The information to be included in the cross-reference.

ReferenceItem   Required Variant. If ReferenceType is wdRefTypeBookmark, this argument specifies a bookmark name. For all other ReferenceType values, this argument specifies the item number or name in the Reference type box in the Cross-reference dialog box. Use the GetCrossReferenceItems
method to return a list of item names that can be used with this argument.

InsertAsHyperlink   Optional Variant. True to insert the cross-reference as a hyperlink to the referenced item.

IncludePosition   Optional Variant. True to insert «above» or «below,» depending on the location of the reference item in relation to the cross-reference.

SeparateNumbers Optional Variant. True to use a separator to separate the numbers from the associated text. (Use only if the ReferenceType parameter is set to wdRefTypeNumberedItem and the ReferenceKind parameter is set to wdNumberFullContext.)

SeparatorString Optional Variant. Specifies the string to use as a separator if the SeparateNumbers parameter is set to True.

Remarks

If you specify wdPageNumber for the value of ReferenceKind, you may need to repaginate the document in order to see the correct cross-reference information.

Example

This example inserts at the beginning of the active document a cross-reference to the page that includes the first bookmark in the document.

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
		

This example inserts a sentence that contains two cross-references: one cross-reference to heading text, and another one to the page where the heading text appears.

With Selection
    .Collapse Direction:=wdCollapseStart
    .InsertBefore "For more information, see "
    .Collapse Direction:=wdCollapseEnd
    .InsertCrossReference ReferenceType:=wdRefTypeHeading, _
        ReferenceKind:=wdContentText, ReferenceItem:=1
    .InsertAfter " on page "
    .Collapse Direction:=wdCollapseEnd
    .InsertCrossReference ReferenceType:=wdRefTypeHeading, _
        ReferenceKind:=wdPageNumber, ReferenceItem:=1
    .InsertAfter "."
End With
		

I’m looking for VBA code that would work for numbered item/paragraph number in cross-reference and insert something like 1.01(A) for example. This macro I found works great for inserting 1.01 number:

Sub InsertCrossRef()

Dim RefList As Variant
Dim LookUp As String
Dim Ref As String
Dim s As Integer, t As Integer
Dim i As Integer

On Error GoTo ErrExit
With Selection.Range
' discard leading blank spaces
Do While (Asc(.Text) = 32) And (.End > .Start)
.MoveStart wdCharacter
Loop
' discard trailing blank spaces, full stops and CRs
Do While ((Asc(Right(.Text, 1)) = 46) Or _
(Asc(Right(.Text, 1)) = 32) Or _
(Asc(Right(.Text, 1)) = 11) Or _
(Asc(Right(.Text, 1)) = 13)) And _
(.End > .Start)
.MoveEnd wdCharacter, -1
Loop

ErrExit:
If Len(.Text) = 0 Then
MsgBox "Please select a reference.", _
vbExclamation, "Invalid selection"
Exit Sub
End If

LookUp = .Text
End With
On Error GoTo 0

With ActiveDocument
' Use WdRefTypeHeading to retrieve Headings
RefList = .GetCrossReferenceItems(wdRefTypeNumberedItem)
For i = UBound(RefList) To 1 Step -1
Ref = Trim(RefList(i))
If InStr(1, Ref, LookUp, vbTextCompare) = 1 Then
s = InStr(2, Ref, " ")
t = InStr(2, Ref, Chr(9))
If (s = 0) Or (t = 0) Then
s = IIf(s > 0, s, t)
Else
s = IIf(s < t, s, t)
End If
If LookUp = Left(Ref, s - 1) Then Exit For
End If
Next i

If i Then
Selection.InsertCrossReference ReferenceType:="Numbered item", _
ReferenceKind:=wdNumberFullContext, _
ReferenceItem:=CStr(i), _
InsertAsHyperlink:=True, _
IncludePosition:=False, _
SeparateNumbers:=False, _
SeparatorString:=" "
Else
MsgBox "A cross reference to """ & LookUp & """ couldn't be set" & vbCr & _
"because a paragraph with that number couldn't" & vbCr & _
"be found in the document.", _
vbInformation, "Invalid cross reference"
End If
End With
End Sub

but it doesn’t work for inserting level 2 or 3 from the cross reference list. Document is using multi level list so usually first level would be Section 1.01 for example , level two would be (A), (B), (C), level three (i), (ii), (iii), all followed by tab. Not sure if that’s possible, I understand that with number like 1.01 it’s easy because it appears only once in the cross reference list, but with (A) it’s more complex as it appears multiple times on the list and is not named as 1.01(A) for example. It just appears as (A) under each level 1. Is there a way to look for first instance of (A) for example under 1.01 on the list and then insert it as a cross reference? It would also have to be changed to paragraph number ( full context) so it inserts previous levels as well.

Hi guys.

I’m not a Word macro developer and I have a last task I cannot make on myown. From another application I’m genereting a large Word document. In that document there are strings like :

«ekran»
some chapter
Dependency

which are just textual references to a chapter in the document which has a title «some
chapter»

I need to make a Word macro to replace ««ekran»
some chapter
Dependency» with cross-reference like «See ekran
some chapter on page xy.» What I can do is make the source application that generates the document to generate GUID of the chapter and make references like this:

«ekran»<GUID>
some chapter
Dependency

….

and the title of the chapter to be
(g)GUID(g)some chapter

so this way one could create a bookmark for each found
(g)GUID(g) which would be named with that GUID and then reference it in each string of type
«ekran»<GUID>
some chapter
Dependency

Using
the following code, used from another post, I know how to find this referencing text or how to find titles. I don’t know how to:

—
insert a bookmark at the given place

—
insert a cross-reference on that bookmark

here
is the code so far for finding textual refernces:

Selection.HomeKey unit:=wdStory

Dim rngPicture As Range
Dim strPicture As String
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
  Do While .Execute(FindText:="«ekran» ", Forward:=True, MatchWholeWord:=False, _
    MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True
    Set rngPicture = Selection.Range
    rngPicture.End = ActiveDocument.Range.End
    rngPicture.End = rngPicture.Start + InStr(rngPicture, "Dependency")
    rngPicture.End = rngPicture.End + 9
    strPicture = Replace(rngPicture.Text, Chr(171) & "ekran" & Chr(187) & " ", "")
    strPicture = Replace(strPicture, "  Dependency", "")
    ' and now instead of the code below, here should be code for inserting cross references (text and page number)
    'ActiveDocument.Fields.Add rngPicture, wdFieldEmpty, "IncludePicture " & Chr(34) & strPicture & Chr(34)
  Loop
End With

Many thanks!

I am using Word 2010 and want to create a VBA script to insert a cross-reference.

I often insert a cross-reference of table numbers and figure numbers. So, I want to firstly show a dialog to answer which label, table, or figure to be inserted. Here, for example, I will type Figure. Then, I want to show another dialog to answer the table number or figure number. I will type 5.

Then, «Figure 5» should be inserted.

The VBA script I wrote is as follows:

Public Sub CrossReferrence()  
' To Insert Cross Reference  
'  
Dim reftype As String  
reftype = InputBox("The label to be inserted "Table" or "Figure" = ?")  
Dim refnum  
refnum = InputBox("Table number or Figure number = ?")  
If refnum <> "" Then  
    Selection.InsertCrossReference _  
        ReferenceType:="reftype", _  
        ReferenceKind:=wdOnlyLabelAndNumber, _  
        ReferenceItem:=refnum  
End If  
End Sub  

It seems that the Macro stops when it comes to the If sentence.
Please correct the Macro.