Início
TorresForte 4/2/2014, 11:49Conforme eu aprendi segue vídeo de integração de dados do access para o word!
segue código fonte:
segue código fonte:
- Código:
Public Sub EnviarWordIndicador(argNome, argCargo, argDataNascimento)
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
'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
ArqModelo = "REQ.dot"
' Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
' 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
oApp.ActiveDocument.Bookmarks("cargo").Select
oApp.Selection.Text = (argCargo)
oApp.ActiveDocument.Bookmarks("nomeFuncionario").Select
oApp.Selection.Text = (argNome)
oApp.ActiveDocument.Bookmarks("dataNascimento").Select
oApp.Selection.Text = (argDataNascimento)
oApp.Application.Quit
Set oApp = Nothing
End Sub