[Resolvido]|Exportar para doc

Boa a tarde a todos.
Li vários tópicos orientando a como exportar dados do access para word, usando

Crédito de demonstração por J Paulo

#Const DESENV = -1

Private Sub Command152_Click()
On Error GoTo TrataErro

Dim oApp As Object

' Inicia o MS Word
Set oApp = CreateObject("Word.Application")
With oApp
' Torna o MS Word visível
Visible = True
' Abre o documento
.Documents.Open CurrentDbDir & "\Template.doc"
'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("Nº").Select
.Selection.Text = Trim(CStr(Me.Nº))
.ActiveDocument.Bookmarks("Data").Select
.Selection.Text = Trim(CStr(Me.Data))
.ActiveDocument.Bookmarks("Data_para_respostas").Select
.Selection.Text = Trim(CStr(Me.Data_para_respostas))

.ActiveDocument.SaveAs CurrentDbDir & Format(Date, "dd-mm-yy") & Format(Now, "hhnnss") & ".doc"
.ActiveDocument.Close
MsgBox "Documento salvo com sucesso...", vbInformation
End With
oApp.Quit
Set oApp = Nothing
DoEvents
DoCmd.Close
Saida:
Exit Sub

TrataErro:

If Err.Number = 94 Then
oApp.Selection.Text = ""
Resume Next
End If
MsgBox "Erro" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then
Stop
Resume
#End If
Resume Saida

End Sub

Exemplo retirado deste link:
http://maximoaccess.forumeiros.com/t1152-resolvidosrelatorio-exportar-para-doc-ou-rtf

Neste exemplo foram usados dados de uma tabela só.

O que precisava entender e aprender é que como faço para colocar campos de várias tabelas. E ao clicar num botão estes dados fossem para o modelo já existente.
Obrigado

Olá! Nesse exemplo os dados estão em campos do formulário. No caso de buscá-los na tabela, você precisará instanciar as tabelas. Vamos supor para duas tabelas:

Dim rs1 As Recordset, rs2 As Recordset
Set rs1 = CurrentDb.OpenRecordset("NomeDaTabela1")
Set rs2 = CurrentDb.OpenRecordset("NomeDaTabela2")

Agora que as tabelas estão instanciadas, basta colocar os campos delas no lugar dos campos do formulário:

...
.ActiveDocument.Bookmarks("Nº").Select
.Selection.Text = Trim(CStr(rs1!Nº))
.ActiveDocument.Bookmarks("Data").Select
.Selection.Text = Trim(CStr(rs2!Data))
.ActiveDocument.Bookmarks("Data_para_respostas").Select
.Selection.Text = Trim(CStr(rs1!Data_para_respostas))
...

Não se esqueça de fechar as tabelas e apagá-las da memória ao final de tudo:

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

Observe que no lugar do Me., que indica que o elemento está no formulário, usamos rs1! e rs2!, indicando que eles estão nas tabelas que instanciamos com esses nomes de rs1 e rs2.

Olá Críquio tudo bem?

Vejamos se entendi direito
Se forem "n" tabelas


Dim rs1 As Recordset, rs2 As Recordset, , rs3 As Recordset
Set rs1 = CurrentDb.OpenRecordset("NomeDaTabela1")
Set rs2 = CurrentDb.OpenRecordset("NomeDaTabela2")
Set rs3 = CurrentDb.OpenRecordset("NomeDaTabelaN")

colocar os campos delas no lugar dos campos do formulário:

...
.ActiveDocument.Bookmarks("Nº").Select
.Selection.Text = Trim(CStr(rs1!Nº))
.ActiveDocument.Bookmarks("Data").Select
.Selection.Text = Trim(CStr(rs2!Data))
.ActiveDocument.Bookmarks("Data_para_respostas").Select
.Selection.Text = Trim(CStr(rs1!Data_para_respostas))
...

.ActiveDocument.Bookmarks("Data_para_respostas").Select
.Selection.Text = Trim(CStr(rs3!"Item da tabela a ser colocado"))

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Colse
onde o numero 3 será o n.º da tabela

É isso?
Se for obrigado. E pode fechar.

Isso mesmo. Qualquer coisa, retorne.