Необходима помощь.

Среда, 27 Августа 2014 г. 17:08 + в цитатник

Option Compare Database
Option Explicit

' From "Microsoft Access 2000 Development Unleashed" (SAMS)
' By: Forte, Howe, Ralston

Public Sub Vozzakl()

' The purpose of this example is to show how Access data
' is inserted into a Word document with Find and Replace.
' This is a rather complicated Word document with text wrapped
' around photos. This document would be difficult to create
' with an Access report.

' Use GetObject to use an instance of the application if it is
' already running; otherwise, create a new instance of the applicaton.

Dim objWord As Word.Application
Dim DB As Database
Dim RS As Recordset
'* Подойдет ли данная формулировка для запроса а не таблица

' Turn hourglass on.
Screen.MousePointer = 11

' Resume to the next line following the error.
On Error Resume Next

' Attempt to reference Word which is already running.
Set objWord = GetObject(, "Word.Application")

' If true, Word is not running.
If objWord Is Nothing Then
' Create a new instance of the Word application.
Set objWord = New Word.Application
' If true, MS Word is not installed.
If objWord Is Nothing Then
MsgBox "MS Word is not installed on your computer"
End If
End If

' On Error GoTo ErrorHandler (Put Error Handler Code Here!)

' Set RS equal to the Products table in the current database.
Set RS = CurrentDb.OpenRecordset("11", dbOpenDynaset)
'* Можно ли в рекордсет помещать результат запроса?

objWord.Documents.Add (CurrentProject.Path & "\vozzakl.dot")
'* подключаем шаблон
'
' Set the recordset index to the Product Name index so that the
' seek method can be used.
RS.Index = "№"
Dim i As Integer
Dim s(9) As String
Dim t(9) As String
s(1) = "{FKP}"
t(1) = Str(RS![сделка.предприятие])
'* нужно в т занести поля запроса
s(2) = "{predpriyatie}"
't(2)=
s(3) = "{adres}"
't(3)=
s(4) = "{FKP}"
't(4)=
s(5) = "{predpriyatie}"
't(5)=
s(6) = "{data}"
't(6)=
s(7) = "{#}"
't(7)=
s(8) = "{doljnost}"
't(8)=
s(9) = "{zaveril}"
't(9)=
For i = 1 To 9
'Find the record
RS.Seek "=", s(i)
objWord.Selection.Find.ClearFormatting
objWord.Selection.Find.Replacement.ClearFormatting
With objWord.Selection.Find
.Text = s(i)
.Replacement.Text = t(i) '****************
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Next

' Find the FKP record
' RS.Seek "=", "{FKP}"

' objWord.Selection.Find.ClearFormatting
' objWord.Selection.Find.Replacement.ClearFormatting
' With objWord.Selection.Find
' .Text = "{FKP}"
' .Replacement.Text = Str(RS![Сделка.предприятие]) '****************
' .Forward = True
' .Wrap = wdFindContinue
' .Format = False
' .MatchCase = False
' .MatchWholeWord = False
' .MatchWildcards = False
' .MatchSoundsLike = False
' .MatchAllWordForms = False
' End With

' Move the cursor to the top of the document.
objWord.Selection.HomeKey Unit:=wdStory

DoEvents

' Turn hourglass off.
Screen.MousePointer = 0

' Activates Word
objWord.Activate

' Show Word to the user.
objWord.Visible = True

RS.Close
DB.Close

Set RS = Nothing
Set DB = Nothing

Set objWord = Nothing

End Sub

запрос из которого нужно взять информацию.
Картинка с другого сайта.