MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Dica de como enviar dados do Access para o Word

    avatar
    TorresForte
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 18/05/2010

    Dica de como enviar dados do Access para o Word Empty Dica de como enviar dados do Access para o Word

    Mensagem  TorresForte em 4/2/2014, 11:49

    Conforme eu aprendi segue vídeo de integração de dados do access para o word!



    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

      Data/hora atual: 3/12/2020, 19:30