Reply to thread

Message: [QUOTE="Designingsally, post: 5885499"] what this pesach. Pls tell me ur thoughts. Dim oRng As Range Dim rngTable As Range Dim oTable As Table Dim strFind(1) As String Dim j As Integer strFind(0) = "english" strFind(1) = "test" Set oRng = ActiveDocument.Range.Duplicate For Each oTable In oRng.Tables For j = 0 To 1 Set rngTable = oTable.Range With rngTable.FInd .Text = strFind(j) .ClearFormatting .Replacement.ClearFormatting .MatchCase = False .MatchWholeWord = True .Execute If .Found Then rngTable.Select Selection.comments.Add _ Range:=Selection.Range, Text:="Use ""Avoid using this word.""" If strReplace <> "" Then rngTable.Text = strReplace End If Selection.Collapse wdCollapseEnd End If End With Next j Next oTable [/QUOTE]