ник: snipe
Кажется собака порылась в этом месте...
Set oWord = GetObject(, "Word.Application")
oWord.Visible = False
Set oDoc = oWord.ActiveDocument
oWord.ActiveWindow.WindowState = wdWindowStateMaximize
oDoc.Activate
'oDoc.Bookmarks("ФИО").Select
'oWord.Selection.TypeText (полеЦель.Value)
oDoc.Bookmarks.Item("ФИО").Range.Text = s
oWord.ActiveDocument.SaveAs ("C:\" & Format(Date, "dd-mm-yyyy") & Format(Time, "-hh.mm") & ".doc")
oDoc.Close
oWord.Documents.Open ("C:\" & Format(Date, "dd-mm-yyyy") & Format(Time, "-hh.mm") & ".doc")
oWord.Visible = True
1. oWord.Visible = False false заменить на true
2. oDoc.Close
oWord.Documents.Open ("C:\" & Format(Date, "dd-mm-yyyy") & Format(Time, "-hh.mm") & ".doc")
убрать вообще
(пути я под себя переписал)
все