Olá a todos,
Boa Noite.
Estou a trabalhar numa função que passa os dados de um formulário.
Estou a usar o código seguinte que adaptei de um modelo aqui do Forum e funciona perfeitamente.
Neste modelo estou a usar apenas um modelo word, no caso "Notificacao.docx". Eu tenho uma caixa de combinação onde o utilizador escolhe o modelo a utilizar. A caixa de combinação está vinculada à tblModelosOficios.
Queria que o código postado seleccionasse o documento consoante o valor da caixa de combinação.
Estava a pensar criar uma Var com base em Dlookup. Mas não estou a conseguir.
Consegui ser claro?
Boa Noite.
Estou a trabalhar numa função que passa os dados de um formulário.
Estou a usar o código seguinte que adaptei de um modelo aqui do Forum e funciona perfeitamente.
- Código:
Private Sub btnGerarDoc_Click()
Dim oApp As Object 'Cria uma variável objeto
Dim PastaArq, ArqModelo
'seta pasta do banco de dados
PastaArq = [CurrentProject].[Path]
'Indicar nome do arquivo
ArqModelo = "Notificacao" & ".docx"
' Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
'oApp.Maximize
' Torna o MS Word visível
oApp.Visible = True
' Abre o documento base
oApp.Documents.Add (PastaArq & "\" & ArqModelo)
'Move cada campo para o indicador definido no documento
On Error Resume Next
oApp.ActiveDocument.bookmarks("DataCorrespondencia").select
oApp.Selection.Text = UCase(CStr(Forms!frmCorrespondenciaSaidaEditar_doc!Data))
On Error Resume Next
oApp.ActiveDocument.bookmarks("DestinatarioNome").select
oApp.Selection.Text = UCase(CStr(Forms!frmCorrespondenciaSaidaEditar_doc!Entidade))
On Error Resume Next
oApp.ActiveDocument.bookmarks("Proave").select
oApp.Selection.Text = UCase(CStr(Forms!frmCorrespondenciaSaidaEditar_doc!NUM_PROAVE))
Set oApp = Nothing
End Sub
Neste modelo estou a usar apenas um modelo word, no caso "Notificacao.docx". Eu tenho uma caixa de combinação onde o utilizador escolhe o modelo a utilizar. A caixa de combinação está vinculada à tblModelosOficios.
Queria que o código postado seleccionasse o documento consoante o valor da caixa de combinação.
Estava a pensar criar uma Var com base em Dlookup. Mas não estou a conseguir.
Consegui ser claro?