'добавление рисунка в колонтитул, можно добавить что-то наподобии водяных знаков
ActiveDocument.Sections( 1 ).Headers(wdHeaderFooterPrimary).Range.InlineShapes.AddPicture _
    "C:\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\Водяные лилии.jpg"

'печатать-True/не печатать-False рисунки в документе
Application.Options.PrintDrawingObjects = True

'удаление содержимого колонтитулов
Dim Колонтитул As Word.HeaderFooter
Dim Раздел As Word.Section

    For Each Раздел In ActiveDocument.Sections
    'Удаление содержимого всех видов верхнего колонтитула
    'Headers - Заголовки
    For Each Колонтитул In Раздел.Headers
        'удаляем
        'Колонтитул.Range.Delete
        Колонтитул.Range.Font.Hidden = True
    Next Колонтитул
    'Удаление содержимого всех видов нижнего колонтитула
    'Footers - Нижние колонтитулы
    For Each Колонтитул In Раздел.Footers
        'удаляем
        'Колонтитул.Range.Delete
        'делаем скрытым
        Колонтитул.Range.Font.Hidden = True
    Next Колонтитул
    Next Раздел