Public Sub WorkWithSubDoc()
'Работа с поддокументами
	Dim DocPath As String
	Dim myr As Range
	'Открываем и активизируем документ DocThree
	DocPath = Documents("DocOne").Path
	Documents.Open (DocPath & "\Docthree")
	Documents("Docthree").Activate
With ActiveDocument
	Debug.Print "Число поддокументов =", .Subdocuments.Count
	If .Subdocuments.Count = 0 Then
		If .Sections.Count = 1 Then 'Выделение разделов
			WorkWithSections
		End If
		'Выделение поддокумента, начиная с третьего раздела и до последнего
		Set myr = .Range(Start:=.Sections(3).Range.Start, _
			End:=.Sections(.Sections.Count).Range.End)
		.Subdocuments.AddFromRange myr
		Debug.Print "Теперь число поддокументов =", .Subdocuments.Count
	End If
End With

End Sub