'*Para abrir um documento Word:
'No evento desejado:
Dim Word As Object
Set Word = CreateObject("Word.Application")
'Abre o documento
Word.Documents.Open "C:Meus Documentos" & "NomeDoDocumento.DOC"
'Seleciona o documento inteiro
Word.Documents("NomeDoDocumento.DOC").Select
'Joga o conteúdo da seleção numa caixa de Texto.
Text1.Text = Word.Selection.Text
'Imprime o conteudo Texto:
Printer.Font.Size = 12 'tamanho da fonte
Printer.Print text1
Printer.EndDoc
'*Exemplo de como trazer dados da tabela para dentro do texto no word:
Option Explicit
Private WordApp As Word.Application
Private doc As Word.Document
Private sel As Word.Selection
Private db As Database
Private rs As Recordset
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "dbVid.Mdb")
Set rs = db.OpenRecordset("Select * From TABLOGIN")
Set WordApp = New Word.Application
WordApp.Documents.Add
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection
doc.Tables.Add Range:=sel.Range, numrows:=1, numcolumns:=2
Do Until rs.EOF
sel.TypeText Text:=rs!USUÁRIO
sel.MoveRight unit:=12
sel.TypeText Text:=rs!SENHA
sel.MoveRight unit:=12
rs.MoveNext
Loop
WordApp.Visible = True
Set WordApp = Nothing
End Sub
