[Resolvido]formulario x word

Boa noite amigos

Tentei implantar no meu bd uma conexao com um formulario e um documento word. ate procurei vi alguns exemplos aqui no forum mas nao consegui resolver o problema. O que eu quero fazer e o seguinte colocar os dados do formulario cliente - acess 2007 em um contrato que tenho no word 2007. agradeço desde já a ajuda dos amigos.

Uma forma pode ser definindo marcadores no documento. Cada marcador pode receber o conteúdo de um campo ou campos do banco de dados. Verifique bem os tópicos que falam de bookmark que é o termo utilizado para os marcadores. Se você observar bem os marcadores no documento do word e como usar o nome deles no Access, conseguirá entender como utilizar.

Boa noite amigo criquio.

seguindo sua orientação, andei pesquisando nos topico aqui do forum.

consegui fazer uma mala direta entre o acess e o word ja sendo muito util. mas ai vi este codigo no forum e tentei implantar mas apos as modificações ele me retorna com seguinte erro.


form_clientes - btword_clik
O membro solicitado da coleção não existe.

fiz uma tabela com tre iteis
codigo
cliente
endereço

e um formulario com os mesmos iteis.

agradecendo desde ja pela dica anterior. Se puder me ajudar pois me falta experiencia em vba.


Option Compare Database
Option Explicit

#Const DESENV = -1

Private Sub btWord_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 "C:\Users\Regis\Desktop\nova\digo.docx"
'Move cada campo para o indicador definido no documento

.ActiveDocument.Bookmarks("Código").Select
.Selection.Text = Trim(CStr(Me.Código))
.ActiveDocument.Bookmarks("Nome").Select
.Selection.Text = Trim(CStr(Me.nome))
.ActiveDocument.Bookmarks("Endereço").Select
.Selection.Text = Trim(CStr(Me.endereço))


.ActiveDocument.SaveAs "C:\Users\Regis\Desktop\Nova pasta" & Me.Código & " " & Format(Date, "dd-mm-yy") & " " & Format(Now, "hhmmss") & ".doc"

.ActiveDocument.Close
MsgBox "Documento salvo com sucesso...", vbInformation
End With
oApp.Quit
Set oApp = Nothing
Saida:
Exit Sub

TrataErro:
'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
If Err.Number = 94 Then
oApp.Selection.Text = ""
Resume Next
End If
MsgBox "Form_Clientes - btWord_Click" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then
oApp.Quit
Set oApp = Nothing
Stop
Resume
#End If
Resume Saida
End Sub




Private Sub Comando7_Click()

End Sub

Você precisa habilitar a referência ao Microsoft Word Object Library da versão do seu Office.

Boa tarde criquio.


fui em ferramentas do editor.

Habilititei essa opção mas ainda continua dando erro.

ainda estou perdido, o que posso fazer agora?

fico no aguardo da ajuda

Sempre que ocorrer erro, informe todos os detalhes do mesmo para podermos ter uma melhor ideia. Para qual linha do vba que o erro depura?