For the first problem, you could edit the macro, changing:
If (i = 1) Or (i = .Tables.Count) Then Exit Sub
to:
If (i < 4) Or (i = .Tables.Count) Then Exit Sub
It's not clear what you want regarding the second problem. It seems to me the code already does that.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|