Прошу помощи
В форме заведения данных организованы кнопки печати соответствующих шаблонов "ТУ" и "ТУ_В". Проблема состоит в том, что
1) во втором шаблоне (красный блок) не присваивается имя файла (с первым шаблоном такой проблемы нет)
2) не получается правильно указать порядок сохранения в конкретную папку ("z:\Главный инженер\ТУ\ВН").

Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
Dim app As Object
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 = CreateObject("Word.Application")
app.Visible = True
app.Documents.Add strPathDot
With app.ActiveDocument
.Bookmarks.Item("абон_пр").Range.Text = Nz(абон_пр, "")
.Bookmarks.Item("абон_ім").Range.Text = Nz(абон_ім, "")
.Bookmarks.Item("абон_пб").Range.Text = Nz(абон_пб, "")
.Bookmarks.Item("нул").Range.Text = Nz(нул, "")
.Bookmarks.Item("номдом").Range.Text = Nz(номдом, "")
.Bookmarks.Item("номкв").Range.Text = Nz(номкв, "")
.Bookmarks.Item("наспункт").Range.Text = Nz(наспункт, "")
.Bookmarks.Item("номту").Range.Text = Nz(номту, "")
.Bookmarks.Item("датавидачту").Range.Text = Nz(датавидачту, "")
.Bookmarks.Item("змістту").Range.Text = Nz(змістту, "")
.SaveAs strPathWord
End With
Set app = Nothing
End If
funOutputWord = True
Exit_:
Exit Function
Err_:
funOutputWord = False
Err.Clear
app.Quit
Resume Exit_
End Function

Private Sub butExit_Click()
DoCmd.Close
End Sub

Private Sub Выключатель150_Click()

End Sub

Private Sub друкту_Click()
Dim strPathDot As String, strPathWord As String
strPathDot = "z:\Dot\ТУ.dot"
strPathWord = "z:\Главный инженер\ТУ\" & [номту] & " " & "від" & " " & [датавидачту] & " " & [нул] & " " & [номдом] & " " & [номкв] & ".doc"
Call funOutputWord(strPathDot, strPathWord)
End Sub

Private Sub друктуВн_Click()
Dim strPathDot As String, strPathWord As String
strPathDot = "z:\Dot\ТУ_В.dot"
strPathWord = "z:\Главный инженер\ТУ\ВН" & [номту] & " " & "від" & " " & [датавидачту] & " " & [нул] & " " & [номдом] & " " & [номкв] & ".doc"
Call funOutputWord(strPathDot, strPathWord)
End Sub

http://www.sql.ru/forum/1107905/eksport-dannyh-iz-access-v-word