Public Sub WorkWithStory()
'Работа с фрагментами (story)
'Анализ возможных типов фрагментов акивного докуммента
	Dim curstory As Range
	With ActiveDocument
		For Each curstory In .StoryRanges
			Select Case curstory.StoryType
			Case wdMainTextStory
				Debug.Print "Начало текста:", curstory.Paragraphs(1).Range.Text
			Case wdCommentsStory
				Debug.Print "Комментарии:", curstory.Text
			Case wdEndnotesStory
				Debug.Print "Концевые ссылки:", curstory.Text
			Case wdFootnotesStory
				Debug.Print "Подстраничные ссылки:", curstory.Text
			Case Else
				Debug.Print "Фрагмент другого типа:", curstory.Text
			End Select
		Next curstory
	End With
End Sub