ActiveDocument.Sections(2-5).Range.Select
Selection.End = Selection.End
Selection.Copy
With ActiveDocument
.Range(.Sections(2).Range.Start, .Sections(5).Range.End).Copy
End With
If you for some reason want to select the sections too:
With ActiveDocument
.Range(.Sections(2).Range.Start, .Sections(5).Range.End).Select
Selection.Copy
End With
--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word
If you replace:
.Sections(5)
with
.Sections(.Sections.Count - 1)
it should work - the full code line will then look like this:
.Range(.Sections(2).Range.Start, .Sections(.Sections.Count -
1).Range.End).Select
(replace ".Select" with ".Copy" if this is what you want).