macro for performing more than one find and replace procedure at the same time

Sub FindAndCommentFromList()

'A Word basic macro by Greg Maxey

Dim oDocList As Document, oDoc As Document

Dim oTbl As Table

Dim oRng As Range

Dim oRngText As Range, oRngComment As Range

Dim lngIndex As Long

  Set oDoc = ActiveDocument

  Set oDocList = Documents.Open(FileName:="D:\List.docm", Visible:=False)

  Set oTbl = oDocList.Tables(1)

  For lngIndex = 1 To oTbl.Rows.Count

    Set oRng = oDoc.Range

    Set oRngText = oTbl.Cell(lngIndex, 1).Range

    oRngText.End = oRngText.End - 1

    Set oRngComment = oTbl.Cell(lngIndex, 2).Range

    oRngComment.End = oRngComment.End - 1

    With oRng.Find

      .ClearFormatting

      .MatchWildcards = False

      .MatchWholeWord = True

      .Text = oRngText.Text

      .Replacement.Text = oRngComment.Text

      .Forward = True

      .Wrap = wdFindStop

      While .Execute

        oRng.Comments.Add oRng, oRngComment.Text

        oRng.Collapse wdCollapseEnd

      Wend

    End With

  Next lngIndex

  oDocList.Close wdDoNotSaveChanges

lbl_Exit:

  Exit Sub

End Sub

This macro has been incredibly helpful, especially when using the table as a database that can be constantly updated.

Is there any way to change the code so that instead of finding and replacing, the macro finds the text in the first column and adds a new comment containing the text in the second column?

I'm trying to use the macro for suggestions rather than hard changes, and sometimes there are multiple suggestions that vary depending on context and intent.

yes i tried your tool and it works well.

however, i dont want to go trough dialogs and menus selecting options and files everytime i use it, because i have many files to treat. I didnt find a way to save settings.

This VBA macro discussed here does the same thing by hitting just one key or button.

Best

Tidde

Unfortunately what does not work?  Did you try:

http://gregmaxey.mvps.org/VBA\_Find\_And\_Replace.htm

If it behaves as you describe, give it time.  VBA procedure in long loops often show that behavior but typically it is still processing in the background and will complete.