How to find if a word is part of a cross-reference by vba

macropod · #2 02-12-2019, 03:43 PM

Why not simply loop through all the cross-references? For example:

Code:

Sub Demo()
Dim Fld As Field, StrWrd As String
StrWrd = InputBox("Input the string to find")
With ActiveDocument
  For Each Fld In .Fields
    With Fld
      If .Type = wdFieldRef Then
        If InStr(.Result, StrWrd) > 0 Then
          MsgBox StrWrd & " can be found in a field"
          Exit Sub
        End If
      End If
    End With
  Next
End With
End Sub

There are also far more efficient ways of finding coloured text...

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find instances of heading text in the body of my doc, make cross reference to the actual heading	MAHE	Word VBA	4	03-03-2018 07:59 AM
Find {text} and insert cross reference from bookmark	Slamzor	Word VBA	1	12-01-2017 05:12 PM
Cross reference with pages in word ?	nospamdav999	Word	5	05-13-2017 03:43 AM
Reference number and cross reference for equation numbers to match the thesis format	wmac	Word	1	05-14-2013 08:54 PM
Cross reference issues with word to PDF	rammrunal	Word	0	07-17-2012 05:30 AM