Public Sub test1()
	Dim myRange As Range
	Dim myPath As String
	
	With ActiveDocument
		myPath = .Path
		Set myRange = .Range(Start:=0, End:=0)
		myRange.InsertFile myPath & "\DocTwo.doc"
	End With
End Sub