How to Find multiple words in a MS Word document?

Try this:

Sub KeyWordHighlight()

    ' Charles Kenyon - From Doug Robbins' code

    Dim DocSource As Document, DocTarget As Document

    Dim rng As Range

    Dim FD As FileDialog

    Dim strFileName As String

    Dim i As Long

    Dim rngKeyword As Range

    Dim strKeyword As String

    Set DocTarget = ActiveDocument  ' THIS IS THE LONG DOCUMENT

    Set FD = Application.FileDialog(msoFileDialogOpen) ' does not work:(msoFileDialogFolderPicker)

    With FD

        .Title = "Select the file containing the key words."

        .AllowMultiSelect = False

        If .Show = -1 Then

            strFileName = .SelectedItems(1)

        Else

            MsgBox "You did not select the file containing the key words."

            Exit Sub

        End If

    End With

    Set DocSource = Documents.Open(strFileName)

    With DocSource

        For i = 1 To .Paragraphs.Count

            '   COMMENT OUT MARKING OF TEXT IN SOURCE

            Set rngKeyword = .Paragraphs(i).Range

            rngKeyword.MoveEnd wdCharacter, -1

            strKeyword = rngKeyword.Text

'            If InStr(DocTarget.Range, strKeyword) > 0 Then

'                rngKeyword.Font.ColorIndex = wdGreen

'            Else

'                rngKeyword.Font.ColorIndex = wdRed

'            End If

            With DocTarget.Range.Find

                .ClearFormatting

                .Replacement.ClearFormatting

                .Text = strKeyword

                .Replacement.Highlight = wdYellow

                .Forward = True

                .Execute Replace:=wdReplaceAll

            End With

        Next i

        .Close SaveChanges:=False

        Set DocTarget = Nothing

        Set FD = Nothing

        Set rngKeyword = Nothing

        Set rng = Nothing

    End With

End Sub

Instructions for Installing Macros from Forums or Websites by Graham Mayor, MVP

Here are temporary links to my test document and list:

• Document with macro
• Test keyword list

If you run a macro containing the following code when the 748 page document is the active document, it will ask you to select the file that contains the keywords, (it is assumed that each one is in a separate paragraph) and then it will open that document and if the word appears in the 748 page document, the Font Color of the word in the list of keywords will be turned to Green and if it is not found, it will be turned to Red.

Dim DocSource As Document, DocTarget As Document

Dim rng As Range

Dim FD As FileDialog

Dim strFileName As String

Dim i As Long

Dim rngKeyword As Range

Dim strKeyword As String

Set DocTarget = ActiveDocument

Set FD = Application.FileDialog(msoFileDialogFolderPicker)

With FD

    .Title = "Select the file containing the key words."

    .AllowMultiSelect = False

    If .Show = -1 Then

        strFileName = .SelectedItems(1)

    Else

        MsgBox "You did not select the file containing the key words."

        Exit Sub

    End If

End With

Set DocSource = Documents.Open(strFileName)

With DocSource

    For i = 1 To .Paragraphs.Count

        Set rngKeyword = .Paragraphs(i).Range

        rngKeyword.MoveEnd wdCharacter, -1

        strKeyword = rngKeyword.Text

        If Instr(DocTarget.Range, strKeyword) > 0 Then

            rngKeyword.Font.ColorIndex = wdGreen

        Else

            rngKeyword.Font.ColorIndex = wdRed

        End If

    Next i

End With

"highlight"

Do you want, in your 748 page document, to add highlighting to those key terms?

Do you want the same highlighting?

Which color?

If you send me a copy of the documents, referencing this thread in the covering email message, I will investigate the issue.

You would need to use a macro.  Where do you have the list of key terms?