Параметры страниц для нескольких документов

[Busine2009]

Задача в чём? Нужно для 10 открытых документов установить одинаковые поля и колонтитулы. Вот есть код

Код: Выделить всё

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

то речь в этой части идёт об активном (ActiveDocument) документе, а не о открытом. И соответственно макрос применяется только к одному документу.
Получается нужно найти другое сочетания для Section.
Вот такие вот дела.

[Aent]

Перечисление открытых документов

Код: Выделить всё

 Dim docLoop As Document  
'.....
For Each docLoop In [B]Documents[/B]     
   '....
Next docLoop 

[Busine2009]

Я в другом форуме ещё задал этот вопрос, если интересно, то заходи
http://www.cyberforum.ru/vba/thread47991.html

[Aent]

н е __и н т е р е с н о

[Busine2009]

Aent

Полностью тебя понимаю, мне тоже не интересно то, с чем я не сталкиваюсь.