Листинг 6. Перемещение рисунка в другое место документа

Листинг 5. Демонстрация методов для работы с буфером

Работа с буфером

Известно, как полезен буфер при работе с одним и, особенно, с несколькими документами. Объекты Range и Selection в полной мере позволяют задействовать все его возможности. Метод Сору, не имеющий параметров, копирует объект (содержимое области) в буфер. Метод Cut, действуя аналогично, копирует объект в буфер с последующим удалением объекта (т.е. вырезает объект). Метод Paste позволяет "приклеить объект", помещенный в буфер, в место вставки. Рассмотрим пример, который демонстрирует добавление нового абзаца, его вырезание в буфер и последующую вставку после добавления еще одного абзаца (см. листинг 5 (см. здесь)).

Public Sub test() Dim myRange As Range Set myRange = ActiveDocument.Paragraphs(3).Range myRange.Select 'Добавляем новый абзац myRange.InsertAfter "New Text" myRange.InsertParagraphAfter 'Выделяем и затем вырезаем добавленный абзац и помещаем его в буфер myRange.MoveStart Unit:=wdParagraph myRange.Select Selection.Cut 'Добавляем новый абзац Selection.InsertAfter "Новый текст!" Selection.InsertParagraphAfter 'Добавляем абзац из буфера Selection.Collapse Direction:=wdCollapseEnd Selection.PasteEnd Sub

Метод Paste позволяет "вклеить" содержимое буфера в область, заданную объектами Range и Selection. Эта операция опасна, так как происходит замена, а не добавление текста. Поэтому обычно метод Paste применяется к объектам Range и Selection, стянутым в точку вставки. В выполнении этого метода есть нюансы. У объекта Range содержимое буфера включается в его область, объект Selection остается точкой вставки, расположенной после текста, добавленного из буфера.

В буфер можно копировать не только текст. В следующем примере в буфер копируется рисунок, являющийся элементом коллекции Shapes. Элементы этой коллекции вставляются аналогично символам текста и являются частью абзаца.

Пример. В тестовом документе DocOne в начало текста вставлен рисунок мышки. Необходимо выделить рисунок, поместить его в буфер, а затем "приклеить" в другом месте текста. В листинге 6 (см. здесь) приведен код соответствующей процедуры.

Public Sub CopyImage() 'Копирование рисунка через буфер Dim MyRange As Range Set MyRange =ActiveDocument.Paragraphs(l).Range With MyRange 'Первый абзац этого документа содержит рисунок - элемент 'коллекции Shapes. 'Выделяем рисунок .MoveEnd Unit:=wdCharacter, Count:=-1 .Select .Copy End With Set MyRange = ActiveDocument.Paragraphs(6).Range MyRange.Select Selection.Collapse Direction:=wdCollapseEnd Selection.PasteEnd Sub

Иногда в буфер копируют не текст, а его формат. Этим занимается метод CopyFormat, копирующий формат по первому символу объекта Selection. Если этот символ – метка абзаца, копируется формат абзаца. Методом CopyFormat обладает только объект Selection.