[Resolvido]Abrir Documento no WORD

Bom dia a todos,

Estou com um problema em um botão que abre um documento no WORD para impressão através de indicadores (BookMarks). Quando o botão é acionado, só abre o primeiro registro do formulário, e não o registro do formulário atual que está em uso.

Desde já fico grato a quem possa me ajudar a revolver.... segue o código usado no botão:

If Seleção78 = True Then

Set db = CurrentDb()
Set AutConsulta = db.OpenRecordset("AutConsulta")

Dim oapp As Object
Dim endereco As String
Dim arquivo As String


endereco = CurrentProject.Path
arquivo = ("\OuvAutAdv.docx")



Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open (endereco + arquivo)


'Deixa o Word visível.
.Visible = True

.activedocument.bookmarks("NomeAut1").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("AlcunhaAut1").Select
.selection.Text = CStr(AutConsulta("AlcunhaAut1"))

.activedocument.bookmarks("ProfAut1").Select
.selection.Text = CStr(AutConsulta("ProfAut1"))

.activedocument.bookmarks("EstCivilAut1").Select
.selection.Text = CStr(AutConsulta("EstCivilAut1"))

.activedocument.bookmarks("NaturAut1").Select
.selection.Text = CStr(AutConsulta("NaturalAut1"))

.activedocument.bookmarks("FiliAut1").Select
.selection.Text = CStr(AutConsulta("FiliAut1"))

.activedocument.bookmarks("NascAut1").Select
.selection.Text = CStr(AutConsulta("NascAut1"))

.activedocument.bookmarks("IdadeAut1").Select
.selection.Text = CStr(AutConsulta("IdadeAut1"))

.activedocument.bookmarks("InstrAut1").Select
.selection.Text = CStr(AutConsulta("InstrAut1"))

.activedocument.bookmarks("RgAut1").Select
.selection.Text = CStr(AutConsulta("RgAut1"))

.activedocument.bookmarks("CpfAut1").Select
.selection.Text = CStr(AutConsulta("CpfAut1"))

.activedocument.bookmarks("EndAut1").Select
.selection.Text = CStr(AutConsulta("EndAut1"))

.activedocument.bookmarks("EndCAut1").Select
.selection.Text = CStr(AutConsulta("EndComercAut1"))

.activedocument.bookmarks("TelAut1").Select
.selection.Text = CStr(AutConsulta("TelAut1"))

.activedocument.bookmarks("ParenteAut1").Select
.selection.Text = CStr(AutConsulta("GrauParentAut1"))

.activedocument.bookmarks("FamiliaAut1").Select
.selection.Text = CStr(AutConsulta("FamiliaAut1"))

.activedocument.bookmarks("AdvAut1").Select
.selection.Text = CStr(AutConsulta("AdvAut1"))

.activedocument.bookmarks("OuvidaAut1").Select
.selection.Text = CStr(AutConsulta("InterrogAut1"))

.activedocument.bookmarks("RecolhAut1").Select
.selection.Text = CStr(AutConsulta("FatoRecolh"))

.activedocument.bookmarks("Bel").Select
.selection.Text = CStr(AutConsulta("EquipeBel"))

.activedocument.bookmarks("Escriba").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

.activedocument.bookmarks("NomeAut1Rodape").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("EscribaRodape").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

.activedocument.bookmarks("AdvAut1Rodape").Select
.selection.Text = CStr(AutConsulta("AdvAut1"))

End With

Else
If Seleção82 = True Then

Set db = CurrentDb()
Set AutConsulta = db.OpenRecordset("AutConsulta")

endereco = CurrentProject.Path
arquivo = ("\OuvAutSemAssinatura.docx")



Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open (endereco + arquivo)


'Deixa o Word visível.
.Visible = True

.activedocument.bookmarks("NomeAut1").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("AlcunhaAut1").Select
.selection.Text = CStr(AutConsulta("AlcunhaAut1"))

.activedocument.bookmarks("ProfAut1").Select
.selection.Text = CStr(AutConsulta("ProfAut1"))

.activedocument.bookmarks("EstCivilAut1").Select
.selection.Text = CStr(AutConsulta("EstCivilAut1"))

.activedocument.bookmarks("NaturAut1").Select
.selection.Text = CStr(AutConsulta("NaturalAut1"))

.activedocument.bookmarks("FiliAut1").Select
.selection.Text = CStr(AutConsulta("FiliAut1"))

.activedocument.bookmarks("NascAut1").Select
.selection.Text = CStr(AutConsulta("NascAut1"))

.activedocument.bookmarks("IdadeAut1").Select
.selection.Text = CStr(AutConsulta("IdadeAut1"))

.activedocument.bookmarks("InstrAut1").Select
.selection.Text = CStr(AutConsulta("InstrAut1"))

.activedocument.bookmarks("RgAut1").Select
.selection.Text = CStr(AutConsulta("RgAut1"))

.activedocument.bookmarks("CpfAut1").Select
.selection.Text = CStr(AutConsulta("CpfAut1"))

.activedocument.bookmarks("EndAut1").Select
.selection.Text = CStr(AutConsulta("EndAut1"))

.activedocument.bookmarks("EndCAut1").Select
.selection.Text = CStr(AutConsulta("EndComercAut1"))

.activedocument.bookmarks("TelAut1").Select
.selection.Text = CStr(AutConsulta("TelAut1"))

.activedocument.bookmarks("ParenteAut1").Select
.selection.Text = CStr(AutConsulta("GrauParentAut1"))

.activedocument.bookmarks("FamiliaAut1").Select
.selection.Text = CStr(AutConsulta("FamiliaAut1"))

.activedocument.bookmarks("OuvidaAut1").Select
.selection.Text = CStr(AutConsulta("InterrogAut1"))

.activedocument.bookmarks("RecolhAut1").Select
.selection.Text = CStr(AutConsulta("FatoRecolh"))

.activedocument.bookmarks("Bel").Select
.selection.Text = CStr(AutConsulta("EquipeBel"))

.activedocument.bookmarks("Ag1").Select
.selection.Text = CStr(AutConsulta("EquipeAg1"))

.activedocument.bookmarks("Ag2").Select
.selection.Text = CStr(AutConsulta("EquipeAg2"))

.activedocument.bookmarks("Escriba").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

.activedocument.bookmarks("NomeAut1Rodape").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("EscribaRodape").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

End With

Else
If Seleção84 = True Then

Set db = CurrentDb()
Set AutConsulta = db.OpenRecordset("AutConsulta")

endereco = CurrentProject.Path
arquivo = ("\OuvAutNaoRealizada.docx")



Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open (endereco + arquivo)


'Deixa o Word visível.
.Visible = True

.activedocument.bookmarks("NomeAut1").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("AlcunhaAut1").Select
.selection.Text = CStr(AutConsulta("AlcunhaAut1"))

.activedocument.bookmarks("ProfAut1").Select
.selection.Text = CStr(AutConsulta("ProfAut1"))

.activedocument.bookmarks("EstCivilAut1").Select
.selection.Text = CStr(AutConsulta("EstCivilAut1"))

.activedocument.bookmarks("NaturAut1").Select
.selection.Text = CStr(AutConsulta("NaturalAut1"))

.activedocument.bookmarks("FiliAut1").Select
.selection.Text = CStr(AutConsulta("FiliAut1"))

.activedocument.bookmarks("NascAut1").Select
.selection.Text = CStr(AutConsulta("NascAut1"))

.activedocument.bookmarks("IdadeAut1").Select
.selection.Text = CStr(AutConsulta("IdadeAut1"))

.activedocument.bookmarks("InstrAut1").Select
.selection.Text = CStr(AutConsulta("InstrAut1"))

.activedocument.bookmarks("RgAut1").Select
.selection.Text = CStr(AutConsulta("RgAut1"))

.activedocument.bookmarks("CpfAut1").Select
.selection.Text = CStr(AutConsulta("CpfAut1"))

.activedocument.bookmarks("EndAut1").Select
.selection.Text = CStr(AutConsulta("EndAut1"))

.activedocument.bookmarks("EndCAut1").Select
.selection.Text = CStr(AutConsulta("EndComercAut1"))

.activedocument.bookmarks("TelAut1").Select
.selection.Text = CStr(AutConsulta("TelAut1"))

.activedocument.bookmarks("ParenteAut1").Select
.selection.Text = CStr(AutConsulta("GrauParentAut1"))

.activedocument.bookmarks("FamiliaAut1").Select
.selection.Text = CStr(AutConsulta("FamiliaAut1"))

.activedocument.bookmarks("RecolhAut1").Select
.selection.Text = CStr(AutConsulta("FatoRecolh"))

.activedocument.bookmarks("Bel").Select
.selection.Text = CStr(AutConsulta("EquipeBel"))

.activedocument.bookmarks("Ag1").Select
.selection.Text = CStr(AutConsulta("EquipeAg1"))

.activedocument.bookmarks("Ag2").Select
.selection.Text = CStr(AutConsulta("EquipeAg2"))

.activedocument.bookmarks("Escriba").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

.activedocument.bookmarks("NomeAut1Rodape").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("EscribaRodape").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

End With
Else

Set db = CurrentDb()
Set AutConsulta = db.OpenRecordset("AutConsulta")

endereco = CurrentProject.Path
arquivo = ("\OuvAut.docx")



Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open (endereco + arquivo)


'Deixa o Word visível.
.Visible = True

.activedocument.bookmarks("NomeAut1").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("AlcunhaAut1").Select
.selection.Text = CStr(AutConsulta("AlcunhaAut1"))

.activedocument.bookmarks("ProfAut1").Select
.selection.Text = CStr(AutConsulta("ProfAut1"))

.activedocument.bookmarks("EstCivilAut1").Select
.selection.Text = CStr(AutConsulta("EstCivilAut1"))

.activedocument.bookmarks("NaturAut1").Select
.selection.Text = CStr(AutConsulta("NaturalAut1"))

.activedocument.bookmarks("FiliAut1").Select
.selection.Text = CStr(AutConsulta("FiliAut1"))

.activedocument.bookmarks("NascAut1").Select
.selection.Text = CStr(AutConsulta("NascAut1"))

.activedocument.bookmarks("IdadeAut1").Select
.selection.Text = CStr(AutConsulta("IdadeAut1"))

.activedocument.bookmarks("InstrAut1").Select
.selection.Text = CStr(AutConsulta("InstrAut1"))

.activedocument.bookmarks("RgAut1").Select
.selection.Text = CStr(AutConsulta("RgAut1"))

.activedocument.bookmarks("CpfAut1").Select
.selection.Text = CStr(AutConsulta("CpfAut1"))

.activedocument.bookmarks("EndAut1").Select
.selection.Text = CStr(AutConsulta("EndAut1"))

.activedocument.bookmarks("EndCAut1").Select
.selection.Text = CStr(AutConsulta("EndComercAut1"))

.activedocument.bookmarks("TelAut1").Select
.selection.Text = CStr(AutConsulta("TelAut1"))

.activedocument.bookmarks("ParenteAut1").Select
.selection.Text = CStr(AutConsulta("GrauParentAut1"))

.activedocument.bookmarks("FamiliaAut1").Select
.selection.Text = CStr(AutConsulta("FamiliaAut1"))

.activedocument.bookmarks("OuvidaAut1").Select
.selection.Text = CStr(AutConsulta("InterrogAut1"))

.activedocument.bookmarks("RecolhAut1").Select
.selection.Text = CStr(AutConsulta("FatoRecolh"))

.activedocument.bookmarks("Bel").Select
.selection.Text = CStr(AutConsulta("EquipeBel"))

.activedocument.bookmarks("Ag1").Select
.selection.Text = CStr(AutConsulta("EquipeAg1"))

.activedocument.bookmarks("Ag2").Select
.selection.Text = CStr(AutConsulta("EquipeAg2"))

.activedocument.bookmarks("Escriba").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

.activedocument.bookmarks("NomeAut1Rodape").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("EscribaRodape").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

End With
End If
End If
End If

Meu amigo, ficou meio confuso quanto o que pretende... se quer todos os registros da Tabela, ou se apenas o Registro atual do Formulario...

Vamos la...

Digamos que quer todos os Registros da Tabela... Bom aee terá que executar um Loop para ir de registro em registro... (Do While Not rsDet.EOF) algo parecido com isso

Agora se quer so o Registro que esta no Formulario, deve abrir somente ele Filtrando pelo ID ou algo assim (chave Primaria)
Vi que vc abre a consulta Inteira : Set AutConsulta = db.OpenRecordset("AutConsulta") assim se essa consulta exibe mais de um registro, e nao tem o Loop configurado o registro que sera colocado no Word sera sempre e SOMENTE o Primeiro.

Criquio escreveu:Aqui um Exemplo, Basta vcs analisarem o que foi feito e adaptar...

https://www.maximoaccess.com/t7607-resolvidoexportacao-de-access-para-word Mensagem Nº 15

Veja esse exemplo muito bom, ira entender o que falei...

Obrigado Fábio,

O que preciso é exatamente só o registro atual... vou analisar o exemplo enviado e retorno; grato....

Sendo assim, ao abrir o RecordSet pode fazer direto a consulta assim:

Set AutConsulta = db.OpenRecordset("SELECT * FROM NomeTabela WHERE ID = " & Me.ID &"") 'Sendo que Me.ID é o Nome do Campo que esta no seu Formulario, que mostra o ID do Registro que pretende... Assim so selecionara um único registro e nao haverá erro...

Caro Fábio, muito grato pela atenção e ajuda, e sem querer abusar da boa vontade, inseri a sua última dica no código, porém sou muito novo em VBA e o conhecimento é mínimo; por isso se for possível analisar os pontos abaixo:

1: Não sei se a linha de comando ficou no lugar certo;
2: A exportação é feita através de uma consulta 'AutConsulta' da TABELA "Dados Gerais", então o campo primário do formulário é o nome da pessoa (Nome Aut1) e na TABELA a mesma coisa (NomeAut1).
2.1: Quando executo apresenta o seguinte erro: Erro em tempo de execução "3075": Erro de Sintaxe (operador faltando) na expressão de consulta "NomeAut1=Flávio Junio";

abaixo o código como se encontra, desde já fico grato:

Set db = CurrentDb()
Set AutConsulta = db.OpenRecordset("AutConsulta")
Set AutConsulta = db.OpenRecordset("SELECT * FROM Dados Gerais WHERE NomeAut1 = " & Me.NomeAut1 & "")

Dim oapp As Object
Dim endereco As String
Dim arquivo As String


endereco = CurrentProject.Path
arquivo = ("\OuvAutAdv.docx")



Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open (endereco + arquivo)


'Deixa o Word visível.
.Visible = True

.activedocument.bookmarks("NomeAut1").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("AlcunhaAut1").Select
.selection.Text = CStr(AutConsulta("AlcunhaAut1"))

.activedocument.bookmarks("ProfAut1").Select
.selection.Text = CStr(AutConsulta("ProfAut1"))

.activedocument.bookmarks("EstCivilAut1").Select
.selection.Text = CStr(AutConsulta("EstCivilAut1"))

.activedocument.bookmarks("NaturAut1").Select
.selection.Text = CStr(AutConsulta("NaturalAut1"))

.activedocument.bookmarks("FiliAut1").Select
.selection.Text = CStr(AutConsulta("FiliAut1"))

.activedocument.bookmarks("NascAut1").Select
.selection.Text = CStr(AutConsulta("NascAut1"))

.activedocument.bookmarks("IdadeAut1").Select
.selection.Text = CStr(AutConsulta("IdadeAut1"))

.activedocument.bookmarks("InstrAut1").Select
.selection.Text = CStr(AutConsulta("InstrAut1"))

.activedocument.bookmarks("RgAut1").Select
.selection.Text = CStr(AutConsulta("RgAut1"))

.activedocument.bookmarks("CpfAut1").Select
.selection.Text = CStr(AutConsulta("CpfAut1"))

.activedocument.bookmarks("EndAut1").Select
.selection.Text = CStr(AutConsulta("EndAut1"))

.activedocument.bookmarks("EndCAut1").Select
.selection.Text = CStr(AutConsulta("EndComercAut1"))

.activedocument.bookmarks("TelAut1").Select
.selection.Text = CStr(AutConsulta("TelAut1"))

.activedocument.bookmarks("ParenteAut1").Select
.selection.Text = CStr(AutConsulta("GrauParentAut1"))

.activedocument.bookmarks("FamiliaAut1").Select
.selection.Text = CStr(AutConsulta("FamiliaAut1"))

.activedocument.bookmarks("AdvAut1").Select
.selection.Text = CStr(AutConsulta("AdvAut1"))

.activedocument.bookmarks("OuvidaAut1").Select
.selection.Text = CStr(AutConsulta("InterrogAut1"))

.activedocument.bookmarks("RecolhAut1").Select
.selection.Text = CStr(AutConsulta("FatoRecolh"))

.activedocument.bookmarks("Bel").Select
.selection.Text = CStr(AutConsulta("EquipeBel"))

.activedocument.bookmarks("Escriba").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

.activedocument.bookmarks("NomeAut1Rodape").Select
.selection.Text = CStr(AutConsulta("NomeAut1"))

.activedocument.bookmarks("EscribaRodape").Select
.selection.Text = CStr(AutConsulta("EquipeEscriba"))

.activedocument.bookmarks("AdvAut1Rodape").Select
.selection.Text = CStr(AutConsulta("AdvAut1"))

End With

Fábio, conseguir adaptar o exemplo anterior ao meu projeto....Muito grato pela Atenção....

Bacana! Ate a próxima!