Параметры страниц для нескольких документов
Добавлено: 22 авг 2009, 07:50
Задача в чём? Нужно для 10 открытых документов установить одинаковые поля и колонтитулы. Вот есть код
Этот код делает одинаковое для всех открытых документов, но только для первых разделов.
Как сделать так, чтобы все разделы преобразовывались? Или такое нельзя сделать.
Если добавить
то речь в этой части идёт об активном (ActiveDocument) документе, а не о открытом. И соответственно макрос применяется только к одному документу.
Получается нужно найти другое сочетания для Section.
Вот такие вот дела.
Код: Выделить всё
Sub SetHeadersFootersAndMargins()
Dim oDoc As Document
For Each oDoc In Documents
'Задаем текст верхнего колонтитула для первого раздела
oDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Верхний Колонтитул"
'Задаем текст нижнего колонтитула для первого раздела
oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Нижний Колонтитул"
'Устанавливаем границы страницы для всего документа
With oDoc.PageSetup
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(1.5)
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
End With
Next
End SubКак сделать так, чтобы все разделы преобразовывались? Или такое нельзя сделать.
Если добавить
Код: Выделить всё
Dim osec As Section
For Each osec In ActiveDocument.SectionsПолучается нужно найти другое сочетания для Section.
Вот такие вот дела.