Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Preenchimento automatico no word através de um banco de dados no excel.

Fórum para agrupar todas as propostas de modelos de planilhas de Excel que essa comunidade consegue imaginar. Teve uma idéia? Produziu algo bem bacana? Esse é o lugar!

Moderador: Rafael Monteiro

jvitorino
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Jul 23, 2019 4:25 pm

Preenchimento automatico no word através de um banco de dados no excel.

Mensagem por jvitorino »

Bom dia, tenho esse código abaixo e queria pegar o valor da célula e colocar em um local especifico no Word mas não estou conseguindo. Alguém por gentileza poderia me ajudar por favor? Desde já agradeço.
Ex: Nome = Jonas
CPF = 1234567-10

Código: Selecionar todos

Sub Criar_Doc()
    Dim objWord As Object
    Dim objDoc As Object
    Dim i As Integer
    Dim strValueA As String, strValueB As String, strValueC As String, strValueD As String

    On Error GoTo erro

    Set objWord = CreateObject("Word.Application") '   define o objeto
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add    ' cria um novo doc

    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        With Sheets("Plan1")
            objDoc.Activate
            strValueA = .Cells(i, 1): strValueB = .Cells(i, 2): strValueC = .Cells(i, 3): strValueD = .Cells(i, 4) '  define os valores a string
            objWord.Selection.TypeText Text:=strValueA & "      " & strValueB & "       " & strValueC & "              " & strValueD & ""
            objWord.Selection.TypeParagraph    ' move p/ prox linha
        End With
    Next i[/highlight][/highlight][/highlight]

    If Dir(Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc") <> "" Then    ' verif se ja existe o doc c/ o mesmo nome..
        Kill Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc"                    ' ...se existir exclui
    End If
    objDoc.SaveAs (Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc")   '   * Salva o documento na pasta  "Desktop"
    MsgBox "O novo domumento foi salvo em: " & Environ("USERPROFILE") & "\Desktop\MeuNovoDoc.doc", 0, "Sucesso"    ' msg
    objWord.Quit       ' fecha o doc
    Set objWord = Nothing
    Exit Sub
erro:     MsgBox Err.Description, vbCritical, "Atenção!!!"

End


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Preenchimento automatico no word através de um banco de dados no excel.

Mensagem por Julio Mangilli »

Olá Amigo,

Eu posso não ter entendido mas não seria mais fácil fazer uma Mala Direta?
Mas se puder estar colocando um modelo Fictício do seu projeto eu posso tentar aqui e te repassar.


Responder