Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Course Of The Month
3 days, 8 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
MS Word Cross References and VBA
Posted on 2012-12-29
Hi All
Seasons Greetings...
I have a cross reference in MS Word: { REF _Ref344571714 \r \h } which links to a numbered item.
What I would like to do is display the corresponding paragraph number & other reference informatoin in a VBA MsgBox...
would love some help on this one, it has been driving me nuts :-(
Cheers, S
Seasons Greetings...
I have a cross reference in MS Word: { REF _Ref344571714 \r \h } which links to a numbered item.
What I would like to do is display the corresponding paragraph number & other reference informatoin in a VBA MsgBox...
would love some help on this one, it has been driving me nuts :-(
Cheers, S
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
3
2
2
7 Comments
Hi S, this code cycles through all the references in the document, and displays a number of properties that might give you what you want. It can be modified easily to display properties for a selection or a specific field:
...Terry
Sub CheckXRefs()
Dim aField As Word.Field
For Each aField In ActiveDocument.Fields
If aField.Type = wdFieldRef Then
xref_text = "Text : " & aField.Code.Text & vbCrLf
xref_result = "Result : " & aField.Result & vbCrLf
xref_listlevel = "List level : " & aField.Code.Paragraphs(1).Range.ListFormat.ListLevelNumber & vbCrLf
xref_paragraph = "Paragraph : " & ActiveDocument.Range(0, aField.Code.Paragraphs(1).Range.End).Paragraphs.Count & vbCrLf
xref_page = "Page : " & aField.Code.Information(wdActiveEndAdjustedPageNumber) & vbCrLf
MsgBox xref_text & xref_result & xref_listlevel & xref_paragraph & xref_page
End If
Next aField
End Sub
...Terry
Active today
Hi Steve
The Cross Reference system uses hidden bookmarks, so you need some code like this:
The Cross Reference system uses hidden bookmarks, so you need some code like this:
Sub ReferencedText()
Dim strRef As String
Dim para As Paragraph
Dim strMessage As String
strRef = "_Ref344626289"
Set para = ActiveDocument.Bookmarks("_Ref344571714").Range.Paragraphs(1)
strMessage = para.Range.ListFormat.ListString & vbTab & para.Range.Text
MsgBox strMessage
End Sub
Hi Terry & Graham
Thank you both for your help. I think I'm close to getting what I need.
I'm trying to get the para text to display based on a clicked field... so was adapting Graham's suggestion and trying this:
Cheers, S
Thank you both for your help. I think I'm close to getting what I need.
I'm trying to get the para text to display based on a clicked field... so was adapting Graham's suggestion and trying this:
Set para = ActiveDocument.Bookmarks(aField.Code).Range.Paragraphs(1)
? aField.Code
REF _Ref344627521 \n \h \t
Cheers, S
Would this be robust?
I'm sure 6 will be fine... but can I always expect a 13 character ref?
? mid(aField.Code, 6, 13)
_Ref344627521
I'm sure 6 will be fine... but can I always expect a 13 character ref?
Hi S, in place of
aField.Code
use
Split(aField.Code, " ")(2)
This parses the code text (delimited by a space) into an array, giving you the ref number without worrying about length.
Here's some more information on the Split function and why it works
...Terry
aField.Code
use
Split(aField.Code, " ")(2)
This parses the code text (delimited by a space) into an array, giving you the ref number without worrying about length.
Here's some more information on the Split function and why it works
...Terry
Active today
I think that I would split the code text into parts and look for the bookmark:
Sub ReferencedText(fld As Field)
Dim strRef() As String
Dim para As Paragraph
Dim strMessage As String
Dim i As Integer
Select Case fld.Type
Case wdFieldRef, wdFieldPageRef
strRef = Split(Selection.Fields(1).Code.Text, " ")
For i = 0 To UBound(strRef)
If Left(strRef(i), 4) = "_Ref" Then
Set para = ActiveDocument.Bookmarks(strRef(i)).Range.Paragraphs(1)
strMessage = para.Range.ListFormat.ListString & vbTab & para.Range.Text
MsgBox strMessage
Exit For
End If
Next i
End Select
End Sub
Featured Post
The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Introduction
This tutorial provides instructions on how to properly format your Word document using the inbuilt tools provided.
The benefits of using these tools means your documents are more accessible and easily portable to other applications an…
Shortcuts in Word
Just the other day I had a training for Microsoft and they wanted me to show how well the new Windows and Office behaved on a touch device, which by the way is great, but it was only then that I realized that using keyboard shortc…
This video shows the viewer how to set up and create Footnotes in their document.
Click on the References tab:
Select "Insert Footnote":
Type in desired text:
This video shows where to find the word count, how to display it, and what it breaks down to in Microsoft Word.
Suggested Courses
Course of the Month3 days, 8 hours left to enroll
691 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.