ребят, помогите осуществить экспорт из формы в шаблон ворда!
Private Sub Кнопка54_Click()
Dim app As Word.Application
Dim strPathDot As String, strPathWord As String
strPathDot = CurrentProject.Path & "\Туристская путевка.dotx"
strPathWord = CurrentProject.Path & "\Туристская путевка " & Forms![ПУТЕВКА]![Код путевки] & ".doc"
'Если есть документ с таким же названием и местом расоложения, выдается сообщение о замене
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("КодПутевки").Range.Text = Forms![ПУТЕВКА]![Код путевки]
.Bookmarks("Страна").Range.Text = Forms![ПУТЕВКА]!Страна.Column(1)
.Bookmarks("Отель").Range.Text = Forms![ПУТЕВКА]!Отель.Column(1)
.Bookmarks("Туроператор").Range.Text = Forms![ПУТЕВКА]![Туроператор].Column(1)
.Bookmarks("Маршрут").Range.Text = Forms![ПУТЕВКА]!Маршрут.Column(1)
.Bookmarks("Катег_проездн_билета").Range.Text = Forms![ПУТЕВКА]!Катег_проездн_билета.Column(1)
.Bookmarks("Рейс").Range.Text = Forms![ПУТЕВКА]!Рейс
.Bookmarks("Тип_номера").Range.Text = Forms![ПУТЕВКА]!Тип_номера.Column(1)
.Bookmarks("Питание").Range.Text = Forms![ПУТЕВКА]!Питание.Column(1)
.Bookmarks("Виза").Range.Text = Forms![ПУТЕВКА]!Виза
.Bookmarks("Страховка").Range.Text = Forms![ПУТЕВКА]!Страховка
.Bookmarks("Трансфер").Range.Text = Forms![ПУТЕВКА]!Трансфер
.Bookmarks("Экскурсии").Range.Text = Forms![ПУТЕВКА]!Экскурсии
.Bookmarks("Начало_маршрута").Range.Text = Forms![ПУТЕВКА]!Начало_маршрута
.Bookmarks("Окончание_маршрута").Range.Text = Forms![ПУТЕВКА]!Окончание_маршрута
.Bookmarks("Стоимость").Range.Text = Forms![ПУТЕВКА]!Стоимость
Dim MyTable As DAO.Recordset
Set MyTable = CurrentDb.OpenRecordset("SELECT Направления.[Код направления], Направления.Направления_Код, [Туристы]![Фамилия] & ' ' & [Туристы]![Имя] & ' ' & [Туристы]![Отчество] AS ФИОтуриста FROM Туристы INNER JOIN Направления ON Туристы.[Код туриста] = Направления.Туристы_Код WHERE (((Направления.Направления_Код)=" & [Forms]![ПУТЕВКА]![Код путевки] & "))")
i = 1
Do While Not MyTable.EOF
Турист = "Турист" & i
If i = 1 Then .Bookmarks("Покупатель").Range.Text = CStr(MyTable.Fields("ФИОтуриста"))
.Bookmarks(Турист).Range.Text = CStr(MyTable.Fields("ФИОтуриста"))
i = i + 1
MyTable.MoveNext
Loop
MyTable.Close
.SaveAs strPathWord
End With
Set app = Nothing
End If
funOutputWord = True
Exit_:
End Sub
нашла вот такой пример базы, но при нажатии кнопки всплывает ошибка 430 "class does not suport automation..." и указывает на строку set app = new word.aplication, я так понимаю, что не создается новый документ вордовский? в чем причина?
http://www.sql.ru/forum/1092582/eksport-iz-formy-acces-v-word
