Public Sub WorkWithSections()
 'В документе DocThree создаются разделы документа
 'Вначале документ не имеет разделов
 Dim sect As Section
 Dim myr As Range
 Documents("Docthree").Activate
 With ActiveDocument
	Debug.Print "В документе разделов - ", .Sections.Count
	'Выделение последнего раздела
	.Sections(.Sections.Count).Range.Select
	Debug.Print "Абзацев в разделе - ", Selection.Paragraphs.Count
	Debug.Print "Предложений в разделе - ", Selection.Sentences.Count
	Debug.Print "Слов в разделе - ", Selection.Words.Count
	Debug.Print "Символов в разделе - ", Selection.Characters.Count
	
	'Добавление разделов
	Set myr = .Paragraphs(11).Range
	myr.Select
	myr.InsertBreak wdSectionBreakNextPage
	
	Set myr = .Paragraphs(18).Range
	.Sections.Add myr, wdSectionEvenPage
	
	Set myr = .Paragraphs(29).Range
	.Sections.Add myr
	
	.Sections.Add
	'Повторная печать после создания новых разделов
	Debug.Print "В документе разделов - ", .Sections.Count
	'Выделение первого раздела
	Set sect = .Sections(1)
	Debug.Print "Абзацев в разделе - ", sect.Range.Paragraphs.Count
	Debug.Print "Предложений в разделе - ", sect.Range.Sentences.Count
	Debug.Print "Слов в разделе - ", sect.Range.Words.Count
	Debug.Print "Символов в разделе - ", sect.Range.Characters.Count
 End With
End Sub