Thanks a lot for help,
Unfortunately, for some reason I can't run the script in the following lines:
rgeSec.SetRange .Parent.End + 1,
and
.InsertAfter k + 1 & "." & vbTab & vbTab & vbTab &
They give an error each time I try to run them.
* The stories in a documents are separated from each other by a page break.
Thanks again,
ArthurN