Анализ возможных типов фрагментов акивного
|
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 |
| Листинг 1.50. |
| Закрыть окно |
