|
Офисное программирование - Работа с буфером |
Страница 29 из 51
Работа с буфером Метод Сору, не имеющий параметров, копирует объект (содержимое области) в буфер. Метод cut, действуя аналогично, должен бы заодно и удалять объект. Но сам объект не удаляется – только стягивается в точку, так что над ним возможны дальнейшие операции. Иногда в буфер копируют не текст, а его формат. Этим занимается метод CopyFormat, копирующий формат по первому символу объекта selection. Если этот символ – метка абзаца, копируется формат абзаца. Методом CopyFormat обладает только объект selection. Метод Paste позволяет поместить («приклеить») содержимое буфера в область, заданную объектами Range и Selection. Эта операция опасна, так как происходит замена, а не добавление текста. Поэтому обычно метод Paste применяется к объектам Range и Selection, предварительно стянутым в точку вставки. Метод PasteFormat применяет форматирование, хранящееся в буфере, к объекту Selection. Например, создадим макрос, который вставляет список «урок, экзамен, сдал!», копирует его и помещает еще раз на лист.
Sub Макрос1() With Selection.ParagraphFormat Selection.TypeText Text:="Работа с текстом:" Selection.TypeParagraph With ListGalleries(wdBulletGallery).ListTemplates(1)._ListLevels(1) End With End With ListGalleries(wdBulletGallery).ListTemplates(1).Name = "" Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior Selection.TypeText Text:="урок" Selection.TypeParagraph Selection.TypeText Text:="экзамен" Selection.TypeParagraph Selection.TypeText Text:="сдал" Selection.TypeParagraph Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph Selection.TypeParagraph Selection.Font.Bold = wdToggle Selection.Font.Italic = wdToggle Selection.TypeText Text:="Работа завершена!" Selection.WholeStory Selection.Copy Selection.PasteAndFormat (wdPasteDefault) Selection.PasteAndFormat (wdPasteDefault) End Sub
|
|