microsoft.public.word.vba.general

Hi Elaine,

like that:

Sub Scratchmacro()
Dim rTmp As Range
With ActiveDocument
Set rTmp = .Sections(.Sections.Count).Range
rTmp.Tables(2).Rows(4).Delete
rTmp.Tables(2).Rows(3).Delete
With rTmp.Find
.Text = "SomeText"
If .Execute Then
rTmp.InsertBefore "SomeMoreText"
End If
End With
End With
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP