Вставка заголовков разделов в колонтитул

[Busine2009]

В документе несколько разделов. Каждый раздел начинается Заголовком 1. Как вставить этот заголовок в верхний колонтитул и автоматически его отформатировать?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Sub main()
'Вставка во все разделы в верхний колонтитул поля
Dim Sec As Section
For Each Sec In ActiveDocument.Sections

Sec.Headers(wdHeaderFooterPrimary).Range.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="STYLEREF ""Заголовок 1"" ", PreserveFormatting:=True

Next
End Sub

Как вот это Range:=Selection.Range изменить, чтобы заработало?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вот нашел ответ на свой же вопрос:

Sub TextFieldToFooter()
' Вставка в верхний колонтитул всех разделов документа поля, ссылающегося на Заголовок 1
Dim hfRange As Range 'диапазон колонтитулов
Dim oSection As Section 'объявляем переменную для раздела
For Each oSection In ActiveDocument.Sections
Set hfRange = oSection.Headers(wdHeaderFooterPrimary).Range
hfRange.Fields.Add Range:=hfRange, Type:=wdFieldStyleRef, Text:="STYLEREF ""Заголовок 1"" ", PreserveFormatting:=True
Next oSection
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вот на эту строчку надо заменить: Type:=wdFieldEmpty