Find Replace help

[Kilroy]

I'm trying to get this macro to work. I've wasted so much time. Can someone let me know if it's possible? I'm trying to delete certain words but only from a specified table and column. The selection works but then fails after the first word. Any Ideas?

Sub DeleteMultipleWords()
Dim arr() As Variant
Dim i As Byte
'Sub PrepareForKeyWordSearch()

j = InputBox("Which Table?")
l = InputBox("Which Column?")
selection.Tables(j).Columns(l).Select
selection.Find.ClearFormatting
selection.Find.Replacement.ClearFormatting
arr = Array("for", "and", "not", "nor", "but", "or")

  For i = LBound(arr) To UBound(arr)
    With selection.Find
      .Text = arr(i)
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
    End With
  selection.Find.Execute Replace:=wdReplaceAll
  Next
End Sub

[gmaxey]

Try:

Sub DeleteMultipleWords()
Dim arrWords()
Dim lngIndex As Long, lngTable As Long, lngCol As Long, lngRow As Long
Dim oRngCol As Range, oRng As Range
  lngTable = InputBox("Which Table?")
  lngCol = InputBox("Which Column?")
  arrWords = Array("for", "and", "not", "nor", "but", "or")
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  For lngIndex = LBound(arrWords) To UBound(arrWords)
    With ActiveDocument.Tables(lngTable)
      For lngRow = 1 To .Rows.Count
        Set oRngCol = .Cell(lngRow, lngCol).Range
        Set oRng = .Cell(lngRow, lngCol).Range
        With oRng
          With .Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = arrWords(lngIndex)
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            Do While .Execute
              If oRng.Duplicate.InRange(oRngCol) Then
                oRng.Text = ""
                oRng.Collapse wdCollapseEnd
              Else
                Exit Do
              End If
            Loop
          End With
        End With
      Next lngRow
    End With
  Next lngIndex
lbl_Exit:
  Exit Sub
End Sub

[Kilroy]

Perfect, Thanks Greg. Much appreciated.

[techpub]

Hi Greg, hope it's ok to ask a question about this code. I'm self taught here. Two questions if I may 1) the find replace at the beginning that searches for nothing and replaces nothing is that to "wipe the slate clean" for the find and replace further down? 2) MOST CURIOUS ABOUT, i like using ranges but have never used the syntax "oRng.Duplicate.InRange" . What does the Duplicate.InRange do? Thank you, Kyle.