Всем привет. Столкнулся с такой проблемой
вот такой код не работает на машине с Vist ой, виснет и все, на XP работает без проблем, что можно сделать ?
Function funOutputWord2(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
Dim app As Word.Application
Dim DlgUser As Integer
If Dir(strPathWord) <> "" Then
DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
If DlgUser = vbNo Then
Set app = CreateObject("Word.Application")
With app
.Visible = True
.Documents.Open strPathWord
End With
Set app = Nothing
Else
GoTo nn
End If
Else
nn:
Set app = New Word.Application
app.Visible = True
app.Documents.Add strPathDot
With app.ActiveDocument
.Bookmarks.Item("Фамилия").Range.Text = Nz(Фамилия, " ")
.SaveAs strPathWord
End With
Set app = Nothing
End If
funOutputWord2 = True
Exit_:
Exit Function
Err_:
funOutputWord2 = False
Err.Clear
app.Quit
Resume Exit_
End Function
Private Sub butWord2_Click()
Dim strPathDot As String, strPathWord As String
strPathDot = CurrentProject.Path & "\Dot\ДБД.dot"
strPathWord = CurrentProject.Path & "\Word\" & ПрФамилия & ПрИмя & ПрОтчество & ".doc"
Call funOutputWord2(strPathDot, strPathWord)
End Sub
виснет при выполнении app.Documents.Add strPathDot.... хелп...