Helmut, thank you so much. I understand all of it except this line of code:
Set rTmp = .Sections(.Sections.Count).Range
What does that do? Is it the last section of the document? Or do I have to
have my cursor in that section first?
Thanks again for your help.
"Helmut Weber" wrote:
> 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
>