Зарегистрировался на Вашем форуме но не имею права начать тему. Поэтому обращаюсь к Вам лично.

У меня есть макрос: Planner_Word(), который из MS Project переправляет данные в . doс, сотворяемый по готовому шаблону Word: MonthWord.dot. Office 2003. Все работает нормально, но недавно у пользователя обновляли технику. Система (XP) и офис те же самые, но оператор:

appWD.Documents.Add (FileName) ''см. ниже в коде

не срабатывает - выдает ошибку. Место нашел при пошаговом исполнении. На других рабочих местах проблем нет.
Как решить прблему не знаю. Отлаживать на рабочем месте пользователя методом тыка нет возможности - люди работают. Возможно настройки Wordа?

Ответ буду караулить через личное сообщение и в темах форума, почта мне не всегда доступна.

Александр.

Option Explicit
Type Day_Info
WeekDay As String
Left_Edg As Single
Right_Edg As Single
End Type
Const DimSz = 31
Dim Month_Info(1 To DimSz) As Day_Info

Dim DayColWidth As Single
Dim Cmmn_Left_Trim As Single
Dim Cmmn_Right_Trim As Single
Dim Cmmn_Row_Hight As Integer
Dim BegDate As Date
Dim EndDate As Date
Dim MonthsNumb As Integer
Dim YearNumb As Integer
Dim Counter
Dim Filter_Name As String
Dim RunningText As String
Dim CurrentFilterIs As Variant
Dim AllDoneHaveFun As Boolean
Dim appWD As Word.Application
Const MSG_NO_TASKS = " òåêóùåì ïðîåêòå íåò çàäà÷. Ïîâòîðèòå ïîïûòêó, êîãäà â ïðîåêòå ïîÿâÿòñÿ çàäà÷è."
Const MSG_NOFILEOPEN = "Íåò îòêðûòûõ ïðîåêòîâ. Îòêðîéòå ïðîåêò è çàïóñòèòå ìàêðîñ ñíîâà."

Sub Planner_Word()
Dim FileName As String
Dim Cmmn_projects As Integer
On Error GoTo ErrorHandler
Filter_Name = "OneOnlyMonth"
RunningText = "Ïðîöåññ èä¸ò! Âûïîëíåíî "
AllDoneHaveFun = False
RunDialog
Check_if_Project_Closed
If ActiveProject.Tasks.Count = 0 Then
MsgBox MSG_NO_TASKS, Buttons:=vbCritical + R_TO_L, Title:=Application.Name
End
End If
If UserForm11.WhatButton = 1 Then
FileName = ActiveProject.Path + "MonthWord.dot"
Set appWD = CreateObject("Word.Application")
appWD.Documents.Add (FileName) ''!!!!!!!!!!!!!!!!!!!!!!!!
CurrentFilterIs = ActiveProject.CurrentFilter
UserForm1.Caption = RunningText + "5.00" + "%"
UserForm1.ProgressBar1.Value = 5#
SelAllRegulHolideys
BegDate = DateSerial(YearNumb, MonthsNumb, 1)
EndDate = DateSerial(YearNumb, MonthsNumb, Counter)
...
...
...