MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

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

    Copiar planilha do Excel e colar em um Documento do Word

    avatar
    ivan_lopes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 24/12/2015

    Copiar planilha do Excel e colar em um Documento do Word Empty Copiar planilha do Excel e colar em um Documento do Word

    Mensagem  ivan_lopes 25/12/2015, 23:49

    Boa noite a todos
    Pessoal sou aprendiz no VBA, estou criando uma planilha de orçamentos no Excel, a qual a mesma ao finalizar o orçamento me gere um arquivo em PDF para ser enviado por e-mail ao cliente.
    Minha duvida é em como colar uma planilha do Excel em um documento do Word?
    No código a seguir o VBA me abre um documento do Word edita o inicio do documento, porém quando vou colar uma linha de uma planilha no documento aberto, é apagado todas as informaçoes contidas no mesmo.
    E minha real intenção e adicionar a tabela junto ao texto.
    Alguém pode me ajudar por gentileza.
    segue código VBA

    Sub Word()

    Dim Word As Word.Application
    Dim Doc As Word.Document



    Set Word = CreateObject("Word.Application")
    Word.Visible = True
    Set Doc = Word.Documents.Open("C:\Users\Ivan_\Documents\Projeto VBA\Proposta Comercial Vivo Empresas.docx")



    With Doc

    .Application.Selection.Find.Text = "#Empresa"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Txt_Empresa)

    .Application.Selection.Find.Text = "#nome_do_contato"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Txt_nome_do_contato)

    End With
    '----------------------------------------------------------

    Set w = Sheets("Plan1")
    w.Select
    w.Range("B4").Select



    If ActiveCell.Value > 0 Then
    ActiveCell.Offset(0, 2).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    Set Copy = Doc.Content <<<<<<<<<<<<<<'aqui esta o erro, antes desse comando tudo roda certinho, quando esse comando é acionado ele apaga tudo no documento e copia só a tabela
    Copy.Paste
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 1).Select

    End If
    Anexos
    Copiar planilha do Excel e colar em um Documento do Word AttachmentProposta Comercial Vivo Empresas.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 4 vez(es)
    avatar
    ivan_lopes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 24/12/2015

    Copiar planilha do Excel e colar em um Documento do Word Empty Resolvido a solução estava o tempo todo na minha frente!!! Eureka

    Mensagem  ivan_lopes 26/12/2015, 10:15

    Sub Word()

    Dim Word As Word.Application
    Dim Doc As Word.Document



    Set Word = CreateObject("Word.Application")
    Word.Visible = True
    Set Doc = Word.Documents.Open("C:\Users\Ivan_\Documents\Projeto VBA\Proposta Comercial Vivo Empresas.docx")



    With Doc

    .Application.Selection.Find.Text = "#Empresa"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Txt_Empresa)

    .Application.Selection.Find.Text = "#nome_do_contato"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Txt_nome_do_contato)

    .Application.Selection.Find.Text = "@Empresa"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase (Txt_Empresa)



    End With
    '----------------------------------------------------------

    Set w = Sheets("Plan1")
    w.Select
    w.Range("B4").Select



    If ActiveCell.Value > 0 Then
    ActiveCell.Offset(0, 2).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    End If

    With Doc
    .Application.Selection.Paste 'resolvido
    End With

    Application.CutCopyMode = False
    ActiveCell.Offset(1, 1).Select



    If ActiveCell.Value = "" Then
    ActiveCell.Offset(1, 0).Select

    End If

    With Doc
    .Application.Selection.Find.Text = "#Proposta Comercial Vivo Empresas"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = "Proposta Comercial Vivo Empresas"
    End With

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7864
    Registrado : 05/11/2009

    Copiar planilha do Excel e colar em um Documento do Word Empty Re: Copiar planilha do Excel e colar em um Documento do Word

    Mensagem  Alexandre Neves 26/12/2015, 19:43

    Boa noite, e bem-vindo ao fórum
    Por se tratar de assunto fora do Acess, movo-lhe para a sala off-topic
    Boas Festas para si e sua família


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 27/2/2021, 05:56