Get a cross reference item number based on heading text

[Journeyman3000]

Hi all,

I have a ton of documents with various calls to action (i.e. Go to Section 1.21.)

At these locations I need to insert cross references (i.e. 1.21. MyHeading ABC)

I can do this manually - e.g. go to cross references and insert the heading number and heading text. However, I need to do this programatically. The code for doing this is:

Please Login or Register  to view this content.

This works just fine if I know the ReferenceItem, except I don't.

I can loop through each heading paragraph to returns the full paragraph heading based on my selected number (1.21.)

But how can I use this to get a ReferenceItem number from a paragraph loop?

Would really appreciate any ideas.

Cheers

[jumpjack]

I was looking for answer to same question when I found this thread; there's no answer here... but it gave me inspiration for solving the issue! :-)

This maro parses all Cross Reference Items of type "wdRefTypeHeading" and compare their paragraph number with number of currently selected paragraph: if they match, text insertion point is moved one line above, and this text is added:

§xxx, p.yyy

Where xxx and yyy are of course paragraph number and page number.

Then the text is cut and put in clipboard, so original document is not affected.

**NOTE: an empty line must be present before the heading, else any contents of above line will be cut.**

Sub CreaRiferimento()
Dim d As Document
Set d = ActiveDocument
Debug.Print "Current selection: " & Selection.Paragraphs(1).Range.ListFormat.ListString & " " & Selection.Paragraphs(1).Range
n = GetRefNum()
Debug.Print "Internal reference number = " & n

' Sposta punto inserimento sopra a titolo
Selection.MoveUp Unit:=wdLine, Count:=1

' Scrive "§"
Selection.TypeText Text:="§"

' Scrive riferimento a paragrafo
Selection.InsertCrossReference ReferenceType:="Titolo", ReferenceKind:= _
wdNumberRelativeContext, ReferenceItem:=Trim(Str(n)), InsertAsHyperlink:=True, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "

' Scrive "p." per la pagina
Selection.TypeText Text:=", p."

'Scrive riferimento a pagina del paragrafo
Selection.InsertCrossReference ReferenceType:="Titolo", ReferenceKind:= _
wdPageNumber, ReferenceItem:=Trim(Str(n)), InsertAsHyperlink:=True, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "

' Taglia in clipboard quanto appena scritto
Selection.EndKey Unit:=wdLine
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut

End Sub

Function GetRefNum() As String
CRI = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
HeadNum = Selection.Paragraphs(1).Range.ListFormat.ListString
CRINumber = 1
For Each CR In CRI
HeadingNumberFromFunction = Mid$(LTrim(CR), 1, InStr(LTrim(CR), " ") - 1)
'Debug.Print HeadNum & " ? " & HeadingNumberFromFunction
'Debug.Print "'" & CR & " ' = ReferenceItem n." & CRINumber
If HeadingNumberFromFunction = HeadNum Then
GetRefNum = CRINumber
Exit Function
End If
CRINumber = CRINumber + 1
Next

End Function