Основы офисного программирования и язык VBA


Коллекция Sections - часть 2


В зависимости от их значения новый раздел будет начинаться со следующей страницы, на той же странице, на четной и нечетной странице. Последняя константа используется при работе с таблицами, позволяя по-разному форматировать каждый из ее столбцов. Если параметр Start опущен, новый раздел будет начинаться со следующей страницы.

Для удаления раздела из коллекции может быть использован метод Delete объектов Selection и Range.

Взгляните на пример работы с текстом документа, в котором создаются новые разделы и добавляются абзацы:

Public Sub WorkWithSecAndPar() 'Работа с разделами и абзацами 'Добавление новой книги Documents.Add Documents(1).Activate With ActiveDocument 'Вставка двух разделов в документ 'Раздел начнется с нечетной страницы .Sections.Add Start:=wdSectionOddPage .Sections.Add 'Вставка абзаца во второй раздел .Sections(2).Range.Paragraphs.Add .Sections(2).PageSetup.LeftMargin = 3 .Sections(2).Range.Style = "Heading 1" .Sections(2).Range.Font.Name = "Arial" .Sections(2).Range.Paragraphs(1).Range.InsertBefore ("Лекция 1") 'Вставка нового раздела и абзаца .Sections.Add Start:=wdSectionNewPage .Sections.Last.Range.Paragraphs.Last.Range.InsertBefore ("Параграф 1") .Sections.Last.Range.Paragraphs.Add 'Вставка нового раздела и абзаца .Sections.Add Start:=wdSectionNewPage .Sections.Last.Range.Paragraphs.Last.Range.InsertBefore ("Параграф 2") .Sections.Last.Range.Paragraphs.Add 'Вставка нового раздела в конец документа 'Раздел начнется с нечетной страницы .Sections.Add Start:=wdSectionOddPage .Sections.Last.PageSetup.LeftMargin = 23 .Sections.Last.Range.Font.Name = "TimesNewRoman" 'Вставка абзаца .Sections.Last.Range.Paragraphs(1).Range.InsertBefore ("Лекция 2") .Sections.Last.Range.Paragraphs.Add Debug.Print "Число разделов документа =", .Sections.Count Debug.Print "Число абзацев документа =", .Paragraphs.Count 'Удаление раздела выполняет метод объекта Range .Sections(1).Range.Delete Debug.Print "Число разделов документа =", .Sections.Count End With




Начало  Назад  Вперед



Книжный магазин