Прошу извинить за то, что подобные темы обсуждались неоднократно, но мне не подошло.
Есть ВБ проект, в одну из форм которого вводяться данные, после чего они попадают в вордовский документ

Dim wda As Word.Application
Dim wdd As Word.Document
Set wdd = GetObject("p:\arms\lcv\tday_d.doc")
Set wda = wdd.Parent

Set wda = wdd.Parent
wdd.Bookmarks("B_DATA_SL").Select
wda.Selection.TypeText Text:=TODAY
wdd.Bookmarks("B_NUM_SL").Select
wda.Selection.TypeText Text:=sL_n_new
wdd.Bookmarks("B_VIDDIL").Select
wda.Selection.TypeText Text:=USR_KM
wdd.Bookmarks("B_VIKONAVEC").Select
wda.Selection.TypeText Text:=USR_NT
wdd.Close wdSaveChanges
Set wdd = Nothing
Set wda = Nothing

Потом этот документ нужно открыть и внести коррективы если нужно.
Можно было бы поступить вот так : Call Shell "winword p:\arms\lcv\tday_d.doc"
Прописать в переменную Path путь к екзешнику winword.exe, но все дело в том что
"лежит" все это на сетевом диске и используется машинами с разными версиями офиса,
где Path не одно и то же. К тому же после коректировки, заданный файл нужно
"положить" в каталог для обработки почтовика. Для этого используется отдельный
модуль в проекте который ждет завершения процеса редактирования вордом и начинает
копирование. Теоретически так.

WaitForProcessToEnd "p:\arms\lcv\tday_d.doc"

Помогите пожалуйста самоучке начинающему открыть вордовский файл как процес с любой машины.

Начальные данные попадают в документ из формы как бы в "фоновом режиме",
потом как в стип бай стип кнопка "далее". Открывается Документ для просмотра,
коректировки и печати, как только юсер сохранил документ

WaitForProcessToEnd "winword p:\arms\lcv\*.doc"

вылетает мессага

Dim Msg, Style, Title, Help, Ctxt, Response
Msg = "Пересылаем файл " & HEAD ' Define message.
Style = vbYesNo + vbInformation + vbDefaultButton2 ' Define buttons.
Title = "Пересылка файла" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic context. Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
FileCopy "p:\arms\lcv\*.doc", HEAD_B & "91cv" & num & ".doc"
Open "p:\arms\lc_post\number.txt" For Output As #1
Print #1, number.txt
Close #1
Unload KHM_F ' Perform some action.
Load GEN_F
GEN_F.Show
Else ' User chose No.
Unload KHM_F ' Perform some action.
Load GEN_F
GEN_F.Show
End If
Exit Sub

То есть дается выбор отправлять или нет, причем это конечная ветка множественная.
Получателей может быть много. В данной ситуации HEAD