Hi Arthur,
>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 lines are probably too long,
so your newsreader wraps them.
Hit "delete" at the end of the line to unwrap them
or try
rgeSec.SetRange .Parent.End + 1, _
and
.InsertAfter k + 1 & "." & vbTab & vbTab & vbTab & _
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Vista Small Business, Office XP