Hi
Don't know how much help this might be but one way to specify a range
is

Set Testdoc = WDApp.Documents.Add
With Testdoc
.Activate
Set myRange = .Range(.Paragraphs(1).Range.Start,
..Paragraphs(4).Range.End)
end with

gives you a range object consisting of everything from the start of
Paragraph(1) to the end of Paragraph(4).
Now try a With myRange... instead of selection.

Completely untested!
regards
Paul