[Resolvido]Relatório no Word .doc

Bom dia Colegas.

Tenho um formulário padrão em .doc, gostaria de preenche-lo através de um Form no vb.
Eu refiz toda a imagem no vb, porém os responsáveis por receber estes formulários não aceitam em pdf....

segue no anexo o formulário em doc.


agradeço

Veja se ajuda;

http://maximoaccess.forumeiros.com/t584-resolvidoexportar-para-word-sos

bom dia

achei diversos códigos, porém, não sei se preciso "preparar" o .doc, porque não abre o word e dá erro no campo.

preciso fazer algo no word?

(desculpe a insistência, passei estes dias todos tentando e não consegui)

Option Compare Database
Private Sub Comando7_Click()

Dim DocWord As Object

Set DocWord = CreateObject("Word.Application")
With DocWord
.Visible = False

.Documents.Add "C:\BDAGTI\Emulacao_SNA.docx", NewTemplate:=False, DocumentType:=0
'============================================================================================================
.ActiveDocument.Bookmarks("NomeContato").Select 'aqui diz: membro solicitado da coleção não existe
.Selection.Text = Me!Contato

.ActiveDocument.Bookmarks("NomeUsuario").Select
.Selection.Text = Me!usuario

.ActiveDocument.Bookmarks("RFUsuario").Select
.Selection.Text = Me!RF

.ActiveDocument.Bookmarks("RedeSim").Select
.Selection.Text = Me!Servidor_de_Rede_Sim

.ActiveDocument.Bookmarks("RedeNão").Select
.Selection.Text = Me!Servidor_de_Rede_Não

.ActiveDocument.Bookmarks("LocalInstalação").Select
.Selection.Text = Me!Local_Instalação

.ActiveDocument.Bookmarks("DizMonitor").Select
.Selection.Text = Me!Monitor

.ActiveDocument.Bookmarks("DizTransação").Select
.Selection.Text = Me!Transação

.ActiveDocument.Bookmarks("DizEstação").Select
.Selection.Text = Me!Nome_Estação

.ActiveDocument.Bookmarks("DizLU").Select
.Selection.Text = Me!LU_s



'============================================================================================================
.ActiveDocument.SaveAs CurrentProject.Path & "\" & Format(Me!usuario, "000000") & ".doc"



rsProd.Close
Set rsProd = Nothing

rsDet.Close
Set rsDet = Nothing

rsVnd.Close
Set rsVnd = Nothing

rsCli.Close
Set rsCli = Nothing

.ActiveDocument.Close
End With
DocWord.Quit

Set DocWord = Nothing

Dim nArquivo As String
nArquivo = CurrentProject.Path & "\" & Format(Me!Usuário, "000000") & ".doc"



End Sub

Alguém poderia me ajudar?!

desculpe insistir, mas não consigo mesmo.

Ola;

Sim no Word tem de introduzir os Bookmarks no seu template,



Para este exemplo;

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 ("C:\SuaPasta\SeuTemplate.doc")
'Move cada campo para o indicador definido no documento
       .ActiveDocument.Bookmarks("Nome").Select
       .Selection.Text = Trim(CStr(Me.Nome))
       .ActiveDocument.SaveAs "C:\SuaPasta\" & "Documento" & ".doc"
       .ActiveDocument.Close
   End With
   oApp.Quit
   Set oApp = Nothing

JPaulo você não imagina a minha felicidade!!! Véspera de feriado e meu BD funcionando REDONDO!!!

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

Valew a todos.

Fico feliz;

Obrigado pelo retorno o forum agradece.

Boa noite, mestre JPaulo e demais mestre do forum.
Desculpe estender um pouco mais o assunto. Consegui fazer tudo certo, minha duvido é: Se consigo depois de ter inserido todos campos, no access, gerado o relátorio em word, salvado em uma pasta. Por exemplo: informação de preços com detalhes de histórico, insirir fotos do celular, ai já pode ser via word mesmo. Só que no acces, quero alterar somente o preço do produto sem alterar os demais dados no documento gerado em word, porem este dado que eu alterei mudasse também no word. Desde já agradeço, por esse tempo e sabedoria.

Este código funcionou com o meu projeto também, porém agora, ele exibe uma mensagem de que o arquivo a ser aberto esta bloqueado para edição pelo "usuario" , após escolher uma das 3 opções sugeridas (Abrir como leitura, mesclar, etc), o word abre e fecha, o que será que está acontecendo?