Dim myRange As Range, myRange1 As Range
With ActiveDocument
	Set myRange = .Range(Start:=.Sections(2).Range.Paragraphs(3).Range.Start, _
										End:=.Sections(3).Range.Paragraphs(5).Range.End)
	Set myRange1 = .Sections(3).Range.Paragraphs(1).Range
End With