открытие шаблона Word из Excel

[ольгаг]

Здравствуйте, Уважаемые программисты!
У меня такая ситуация: нужно открыть макросом VBA из Excel шаблон Word. Получается лишь прописать ЛИБО полный путь к шаблону, т.е.:

Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add("C:\моя папка\Т3.dot")

ЛИБО задать открытие шаблона в одной папке с файлом Excel, т.е.:

Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add(ThisWorkbook.Pa th & "\Т3.dot").

Подскажите пожалуйста, как можно задать открытие шаблона Word по полному пути, а если там шаблон будет не найден, то открывать его в одной папке где сам файл excel? Заранее спасибо.

[EducatedFool]

Sub test()
    Set oWord = CreateObject("Word.Application")
    Filename$ = "Т3.dot"

    If Dir("C:\моя папка\" & Filename$) <> "" Then Set oDoc = oWord.Documents.Add("C:\моя папка\" & Filename$)
    If Dir(ThisWorkbook.Path & Filename$) <> "" Then Set oDoc = oWord.Documents.Add(ThisWorkbook.Path & "\" & Filename$)

    If oDoc Is Nothing Then MsgBox "Файл " & Filename$ & " не найден!", vbCritical, "Нет шаблона": Exit Sub

    ' продолжаем работу с объектом oDoc
    ' ...
End Sub

------------------ добавлено позже --------------------------

Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel

--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

[ольгаг]

Спасибо большое Вам за быстрый ответ! Это то что надо!