Работа с несколькими документами одновременно

[Busine2009]

Есть такая ситуация.

У меня есть 10 файлов, в которых нужно установить одинаковые параметры страницы и одинаковые коллонтитулы.

Можно ли одним движением руки сделать параметры страницы одинаковыми для всех 10 файлов, ну и чтобы с колонтитулами было тоже все чики-пики?

Я на эту тему еще ничего не искал и не смотрел.

[viter.alex]

На будущее для таких случаев нужно использовать шаблон.
Сделать можно, но не одним движением руки, а нексколькими. Для этого нужно знать, откуда брать колонтитулы и размеры страницы.

[Busine2009]

Сообщение от viter.alex

На будущее для таких случаев нужно использовать шаблон.
Сделать можно, но не одним движением руки, а нексколькими. Для этого нужно знать, откуда брать колонтитулы и размеры страницы.

Мне предоставляют документы, я их не создаю.

Не напишешь код?

[viter.alex]

Сообщение от Busine2009

Не напишешь код?

Может и напишу. Но нужно знать, что вы хотите видеть в колонтитулах и какие поля вы хотите установить.

[Busine2009]

Сообщение от viter.alex

Может и напишу. Но нужно знать, что вы хотите видеть в колонтитулах и какие поля вы хотите установить.

Да любые слова, и любые поля

[viter.alex]

Откройте в Word все документы, в которых требуется установить колонтитулы и поля. Должны быть открыты только эти документы и никакие другие. Макрос нужно поместить в Normal.dot.

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

[Busine2009]

Не во всех случаях работает. Вот файл, где не работает.

[viter.alex]

Конечно, не работает, потому что в документе несколько разделов. Попробуйте сделать сами, чтобы работало вне зависимости от количества разделов в документе.
Подсказка: Цикл перечисления For Each … Next и коллекция Sections

[Busine2009]

Sub SetHeadersFootersAndMargins()
'Устанавливаем границы страницы для всего документа
With oDoc.PageSetup
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(1.5)
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
End With
Next
End Sub

Вот эта часть не работает в представленном файле.

Если я создаю новый документ и делаю в нем разрывы разделов, то работает, а вот в этом документе не работает.

[viter.alex]

Busine2009, все-таки вы очень ленивый.
Почитайте справку и завтра мне скажете, почему эта часть не работает.