Листинг 10. Добавление комментариев и сносок в документ

Правка

После создания первоначального варианта документа, над которым работает коллектив авторов, начинается его отладка. Правку документа – внесение исправлений – может делать как один автор, так и группа авторов. Одна из "великих" возможностей Word, обеспечивающая совместную работу над документами, состоит в том, что каждый из создателей документа может править его (документ) как угодно, не испортив при этом исходный текст. Правки накапливаются в коллекции Revisions. Затем, работая в специальном режиме, каждую правку – объект класса Revision – можно принять или отвергнуть.

Конечно, так же, как и тексты, сноски, комментарии и исправления создаются, как правило, вручную. Тем не менее, часто приходится программно работать с этими объектами. Вот пример типичной задачи: собрать все комментарии данного автора и принять или отвергнуть все исправления, сделанные автором N.

В листинге 10 (см. здесь) приведен пример, где в документ добавляются комментарии и сноски.

Pubblic Sub WorkWithComments()‘работа с комментариями, сносками‘Открываем документ DocTwoDim HyPath As StringDim myRange As RangeDim Fnote As Footnote, Enote As EndnoteMyPath = Documents("DocOne").Path ‘DocOne должен быть открытDocuments.Open MyPath & "\DocTwo.doc"Documents("DocTwo").ActivateWith ActiveDocument Set myRange =.Sections(2).Range.Paragraphs(2).Range.Comments.Add myRange, "Программный проект этого документа" _ & vbCrLf & " содержит примеры главы 1".Comments(1).Author = "Владимир " ‘Показ комментария ActiveWindow.View.SplitSpecial = wdPaneComments.Comments.ShowBy = "Владимир " ‘Передвигается объект Range и устанавливаются сноски: ‘подстрочная и затекстовая myRange.Move Unit:=wdParagraph, Count:=1.Footnotes.Add Range:=myRange, _ Text:="документ DocTwo _ используется для экспериментов." myRange.Move Unit:=wdParagraph, Count:=1 ‘нумерация конечных сносок с начала страницы.Endnotes.NumberingRule = wdRestartPage.Endnotes.Add Range:=myRange, Техt:="документ DocThree _ используется для экспериментов." ‘Печать сносок For Each Fnote In.Footnotes Debug.Print Fnote.Range Next Fnote For Each Enote In.Endnotes Debug.Print Enote.Range Next EnoteEnd WithEnd Sub

Закладки

Большой документ, к отдельным частям которого приходится часто обращаться, стоит снабдить закладками. Коллекция Bookmarks задает все закладки данного документа.

Рассмотрим пример, в котором в наш документ будут добавлены комментарии и сноски, сделаны закладки и проведена правка документа (см. листинг 11 (см. здесь)).

Листинг 11. Работа с комментариями, сносками, закладками и исправлениями

Public Sub AdditionalElements()‘Работа с комментариями, сносками, закладками и ‘исправлениями Documents("Doc.doc").Activate With ActIveDocument Dim myRange As Range Set myRange =.Sections(2).Range.Paragraphs(2).Range.Comments.Add myRange, "Первый параграф носит...".Comments(1).Author = "Владимир" ActiveWindow.View.SplitSpecial = wdPaneComments.Comments.ShowBy = "Владимир" myRange.Move Unit: =wdParagraph, Count: =4.Footnotes.Add Range:=myRange, Тех1:="Ссылки - это..." myRange.Move Unit:=wdParagraph, Count:=-1.Endnotes.Add Range:=myRange, Тех1:="Комментарий - это...".Bookmarks. Add Name:="3aкладка1", Range:=myRange If.Bookmarks.Exists("Зaклaдкa1") Then.Bookmarks("Зaклaдкa1").Select Selection.Move Unit:=wdWord Debug.Print Selection.Text End If ‘Включение режима исправлений и внесение исправлений.TrackRevisions = True Selection.InsertBefore "подстраничные ".Revisions.AcceptAll End With End Sub

Вначале в документ добавляется комментарий. Метод Add имеет два параметра. Первый – Range – задает точку (область) вставки, второй – текст комментария. При выполнении метода область, заданная объектом Range, подсвечивается и помечается специальной меткой комментария. Свойство Author позволяет указать автора сделанного комментария. Комментарий можно непосредственно просмотреть в тексте документа, установив курсор на метке комментария. В данном примере комментарии можно просмотреть в открывающемся окне специального вида, где метод ShowBy выводит все комментарии, выполненные автором, имя которого указано как аргумент метода. Далее мы добавляем в документ сноски. И здесь объект Range указывает точку вставки сносок. Заметьте: в этом фрагменте при работе с объектом Range мы используем метод Move. Его первый параметр – Unit – задает единицы текста, в которых ведется счет при перемещении объекта Range; второй – задает количество единиц и направление перемещения: положительные значения задают перемещение вперед по тексту, отрицательные – назад. Сами сноски вставляются аналогично комментариям с использованием все того же метода Add. По умолчанию подстраничные сноски нумеруются арабскими цифрами, концевые – римскими. Параметр Reference метода Add позволяет задать для сносок и специальные символы (используются при создании файлов справки). Аналогично создаются и закладки. Далее мы используем методы Exists и Select объекта Bookmark и, выделяя закладку, создаем объект Selection. По ходу дела демонстрируется применение метода Move для этого объекта.

И, наконец, вставка исправлений. Заметьте: для вставки исправлений метод Add неприменим. Исправления делаются точно так же, как и обычные изменения исходного документа, но выполняются они в специальном режиме правки. Чтобы его включить, мы задали свойству TrackRevisions значение True. В заключение мы сразу приняли все сделанные изменения, вызвав для коллекции Revisions метод AcceptAll.

Конечно, чаще всего закладки устанавливают вручную, а вот уже созданные коллекции этих объектов приходится иногда обрабатывать программно. Следующий пример демонстрирует просмотр и удаление закладок в процессе диалога с пользователем. Код процедуры, решающей эту задачу, приведен в листинге 12 (см. здесь).

Листинг 12. Просмотр и удаление закладок

Public Sub RemoveBookmarks()‘Удаляет по запросу закладки активного документа Dim MyBM As BookmarkDim Answer As StringWith ActiveDocument For Each MyBM In.Bookmarks Answer = InputВох(Prompt:="Удалить закладку? " & vbCrLf _ & "Имя закладки - " & MyBM.Name, _ Title:="Удаление закладок", Default:="Да") If Answer = "Да" Then MyBM.Delete Next MyBMEnd With End Sub

Все делается достаточно просто – свойство Name позволяет в диалоге указать имя закладки, а метод Delete – удалить ее, если получено согласие пользователя.

Дата добавления: 2014-01-05