Форумы HiProg.com - MS ACCESS, VBA, VB

ник: джониби
У меня просто есть пример как в шаблон ворда импортировать в нужные места нужные строки из полей =)
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("&#199;&#224;&#234;&#224;&#231;&#247;&#232;&#234;").Range.Text = Nz(&#207;&#240;&#238;&#245;&#238;&#240;&#238;&#226;, "")
.Bookmarks.Item("&#192;&#228;&#240;&#229;&#241;").Range.Text = Nz(&#192;&#228;&#240;&#229;&#241;, "")
.Bookmarks.Item("&#192;&#228;&#240;&#229;&#241;&#198;&#232;&#242;").Range.Text = Nz(&#192;&#228;&#240;&#229;&#241;&#198;&#232;&#242;, "")
.Bookmarks.Item("&#210;&#229;&#235;&#229;&#244;&#238;&#237;").Range.Text = Nz(&#210;&#229;&#235;&#229;&#244;&#238;&#237;, "")
.Bookmarks.Item("&#209;&#238;&#242;&#238;&#226;&#251;&#233;").Range.Text = Nz(&#209;&#238;&#242;&#238;&#226;&#251;&#233;, "")
.Bookmarks.Item("&#193;&#224;&#237;&#234;").Range.Text = Nz(&#193;&#224;&#237;&#234;, "")
.Bookmarks.Item("&#208;&#209;").Range.Text = Nz(&#208;&#209;, "")
.Bookmarks.Item("&#202;&#209;").Range.Text = Nz(&#202;&#209;, "")
.Bookmarks.Item("&#193;&#200;&#202;").Range.Text = Nz(&#193;&#200;&#202;, "")
.Bookmarks.Item("&#200;&#205;&#205;").Range.Text = Nz(&#200;&#205;&#205;, "")
.SaveAs strPathWord
End With
Set app = Nothing
End If
funOutputWord = True
Exit_:
Exit Function
Err_:
funOutputWord = False
Err.Clear
app.Quit
Resume Exit_