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


Пример 1.6


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

End Sub




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



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