Careca2014 27/1/2015, 02:12
Consegui encontrar estes códigos em outro forum, funcionou
Function OpenContratoSimples()
DoCmd.OutputTo acOutputTable, "SuaTabela", acFormatXLSX, "CaminhoParaSalvarOArquivoExcel"
Static WordObj As Word.Application
Set WordObj = Nothing
Set WordObj = CreateObject("Word.Application")
' Escreva o caminho para um arquivo doc qualquer do seu computador:
WordObj.Documents.Open ("CaminhoDoDocumentoWord")
Call fncConecta
MsgBox "Contrato(s) Simples gerado(s) com sucesso!" & vbCrLf & "Atenção clique em OK e vou abrir o arquivo pra você...", vbInformation _
, "Contrato(s) Simples"
' Permite visualizar a sessão do Word e o seu documento
WordObj.visible = True
' Maximizar
WordObj.WindowState = wdWindowStateMaximize
' Tornar o arquivo visivel na janela
WordObj.Application.Activate
End Function
Última edição por Careca2014 em 27/1/2015, 03:08, editado 1 vez(es)