ник: pashulka
Можно воспользоваться поздним связыванием ... и нафиг все референсы, точнее сказать, только Word
Dim objWord As Object
Dim ctlForm As Control
Dim strPath$, strTemp$
strPath = Application.CurrentProject.Path
If Len(Dir(strPath & "\word.dot")) = 0 Then
MsgBox "Шаблон word.dot изволит отсутствовать", , strPath
Exit Sub
End If
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.DisplayAlerts = 0 'wdAlertsNone
With objWord.Documents.Add(strPath & "\word.dot")
For Each ctlForm In Me.Controls
If ctlForm.ControlType = acTextBox Then
strTemp = ctlForm.Name
If .Bookmarks.Exists(strTemp) = True Then
.Bookmarks(strTemp).Range.Text = ctlForm.Text 'Me(strTemp)
End If
End If
Next
.SaveAs strPath & "\word.doc" '.Close -1 'wdSaveChanges
End With
'objWord.DisplayAlerts = -1 'wdAlertsAll
objWord.Quit -1 'wdSaveChanges
|