write text in a first paragraph after a table

[Gonzales]

Hi,
I need to insert some text in the first paragraph after all tables in a
document.
How to access the first paragraph?

 

[Doug Robbins]

Dim i As Long, myrange As Range
For i = 1 To ActiveDocument.Tables.Count
Set myrange = ActiveDocument.Tables(i).Range
myrange.Collapse wdCollapseEnd
myrange.InsertBefore "Text"
Next i
--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

 

[alfonso gonzales]

Thank you very much,
It comes in handy.

Dim i As Long, myrange As Range
For i = 1 To ActiveDocument.Tables.Count
Set myrange = ActiveDocument.Tables(i).Range
myrange.Collapse wdCollapseEnd
myrange.InsertBefore "Text"
Next i
--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP