Привязка Word и Excel

[barbus]

Дорогие ассы помогите.

Есть файл Excel который используется дла запалнения форм, после запалнения информация переводится в новый документ Word для печати.
В Word-е есть две кнопки на баре ПРИНТ для печати с настройками.

Задача такова, надо чтобы при запуске шаблона Word normal.dot производилься проверка на откритие файла EXCEl и если файл открыт для работы, то в файл normal.dot дабавлялся код печати с ПРИНТ баром.
Если файл не открыт то код печати не добавлялся в normal.dot.

Или если открывается файл EXCEl то дабавлял этот код в normal.dot с последующим откритием ПРИНТ бара в Word-e, при закритии удалял этот код с баром.

Sub Macro5()
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=2, Pages:="3,1", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=False, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
Sub Macro6()
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=2, Pages:="2,4", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=False, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Спасибо за помощь.