Finding things NOT a field (WXP)

Topic

New Reply

Howdy folks,

I’m a proofreader/editor, and one of things I have to find is instances where references to Tables or Figures are NOT cross-referenced properly–in other words, find cases where the word “Table” (or “Figure”) is NOT a field.

Anyone got some code to do this?

Thanks,

Beej

Reply | Quote

Replies

Not the speediest, but it works:

Sub FindTablesAndFiguresNotInFields()
Dim doc As Document
Dim para As Paragraph
Dim wrd As Range
Set doc = ActiveDocument
For Each para In doc.Paragraphs
    With para.Range.Find
        .ClearFormatting
        .MatchCase = True
        .MatchWildcards = True
        .Text = "[TF][ableigur]{4,5}"
        If .Execute Then
            For Each wrd In para.Range.Words
                If Trim(wrd) = "Table" Or _
                   Trim(wrd) = "Figure" Then
                    If wrd.Fields.count = 0 Then
                        wrd.HighlightColorIndex = wdBrightGreen
                    End If
                End If
            Next wrd
        End If
    End With
Next para
End Sub

Reply | Quote