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

macropod · #1 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...

scienceguy · #2 02-12-2019, 04:18 PM

Thanks, Paul! A need to search all words in the document. There are two criteria, is the font color of the word blue and does the work contain a cross-reference.

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