Eu não conhecia o objeto ListObject. Por meio dele deixei de usar o objeto Range, onde eu delimitava as células que eu gostaria de copiar, pra depois colar no Word como Bitmap. Agora por meio do ListObject posso maximizar tranquilo minhas tabelas nomeadas/dinâmicas, que não precisarei estar alterando os intervalos no código. Desde já, muito obrigado! Mais de 2 anos depois, sua dica continua, e continuará fazendo a diferença na vida das pessoas. Forte abraço!
Meu amigo, excelente aula... Por[em meu problema [e um pouco mais complicado... Eu preciso usar o replace na primeira parte do texto num arquivo do Word e no meio da p[agina inserir uma tabela de preços... tem alguma ideia de como me ajudar? A primeira parte eu sei, só não sei como inserir a tabela do excel nessa parte específica do Word....
Olá, William, Excelente aula. Essa é uma informação preciosa, pois já tinha tentado várias vezes manter a formatação do Excel em mala direta com Word, sendo que , a partir dos vários tutoriais que encontrei, nunca consegui. Obrigado. Já estou inscrito.
Olá William, vídeo aula excelente parabéns pela iniciativa... tenho uma duvida de como inserir uma tabela do excel em um determinado ponto no word, ou seja, excel localiza palavra chave no texto word e transfere tabela... pode me ajudar???? acredito que muitos tem a mesma duvida... forte abraço
Amiga, encontrou como fazer isso? Pois eu me encontro com o mesmo problema e não encontro em lugar algum da internet como fazer. Preciso fazer exatamente isso. Definir um local do documento word que receberá a tabela do excel.
@@WilliamOliveiraExcel, Professor. Grato por sua dedicação a essas aulas maravilhosas. Poderia me auxiliar como definir um local especifico no documento word e como inserir a tabela do excel neste local definido? Me ajuda, por favor!!!
William, Boa tarde, muito bom essa rotina, porém gostaria que tivesse mais uma coluna com nome de cidades distintas e quando transferir para o word ele gerasse uma pagina por nome de cidade.
Achei espetacular, mas gostaria de saber se é possível fazer isso em um documento criado. Por exemplo: Vamos imaginar que já tenho um documento pronto, onde o que altera é só a tabela. Como poderia inserir/atualizar essa mesma tabela em um campo específico do Word, sem bagunçar o texto que já existe? Pelo exemplo que deu, a impressão que tenho é que essa tabela será inserida sempre no topo da página.
@@WilliamOliveiraExcel muito obrigado pelo retorno. Eu fiz alguns testes e consegui fazer o que precisava, coloquei uma TAG no arquivo Word e usei a propriedade Find e Execute para resolver a questão. 100% Funcional 😉
@@carlosrgls Claro! Segue o código de forma resumida. No seu documento Word coloque uma marcação que seja fácil de encontrar, como por exemplo #TextoWord e no VBA você coloca o código With WDA .Application.Selection.Find.Text = "#TextoWord" .Application.Selection.Find.Execute .Application.Selection.Range = Me.TxtContr.Text 'Recebe valor do textbox End With
Dentro do mesmo tema pode ensinar a elaborar um "Mail - Merge" para envio de cartas em série para distintas pessoas com base de dados no Excel? . Julgo ser tema de interesse de todos. Obrigado
Olá, estou fazendo o mesmo procedimento para a minha tabela porém, na linha "Set Table = Planilha3.ListObjects("Impressao")" aparece erro: "Subscrito fora do intervalo" a minha tabela contém linhas mescladas pois já é o documento pronto para ser impresso. No meu caso o documento a ser impresso é uma planilha do excel na qual estou usando dados de outras abas para preencher e posteriormente imprimir. Me ajude.
Boa tarde ,tentei fazer seguindo a sua logica ,mais o meu excel e 2010 e o wird idem. Apareceu um erro e segui tudo como você. O que Deve ter dado errado. E como abrir o word e ver o titulo no word
Tô transferindo um texto de uma célula para o Word via VBA O texto dentro da célula é grande, pois é um relatório. Como faço pra corrigir esse erro ? Tá dando: Erro em tempo de execução '5854': O parâmetro da cadeia é muito longo. O resto, tá dando tudo certinho.
a minha planilha esta dando erro de compilação: " tipo definido pelo usuário não definido" o que será que fiz de errado? segui o passo a passo certinho, mais eu não sou muito entendido do assunto, mais gostaria de aprender um pouco mais. obrigado
Muito bom o video, Porem tive um erro de Compilação no Doc.tables: " Método ou membro de dados não encontrado" Segue código para quem precisar (ajustar nome da tabela selecionada no código) Option Explicit Sub Enviar_tabela_Word() Dim App As Word.Application Dim Doc As Word.Documents Dim Table As Word.Table Dim excelApp As ListObject Dim objSelection ' extra Dim text As String 'extra Set App = New Word.Application App.Visible = True App.Activate Set Doc = App.Documents.Add Set excelApp = PlanBase.ListObjects("Projeto_Cliente") excelApp.Range.Copy With App.Selection .PasteExcelTable LinkedToExcel:=True, WordFormatting:=False, RTF:=True End With Set Table = Doc.Tables(Doc.Tables.Count) Table.AllowAutoFit = False Table.autofitbehavior (wdautofitWindow) Application.CutCopyMode = False Set Table = Nothing Set excelApp = Nothing Set App = Nothing Set Doc = Nothing End Sub
![Como Preencher um Documento em Word com VBA [Integração do VBA com Word]](http://i.ytimg.com/vi/8S04IOmpWfM/mqdefault.jpg)
Top demais. Sem enrolação, sem demora. Parabéns!!
Muito Bom, gostei das recomendações parabéns
Sergio, show de bola, valeu pela a contribuição.
O melhor video que encontrei!!!!!!!!! Parabéns!
Ranne, muito grato pelo o feedback
Excelente trabalho. Obrigado por partilhar!
Albano, feliz em vê-lo aqui. grande abraço.
Funcionou de primeira, muito bem explicado e orientado, parabéns, muito obrigado
Olá! Excelente vídeo!!!
Obrigado 😃
Eu não conhecia o objeto ListObject. Por meio dele deixei de usar o objeto Range, onde eu delimitava as células que eu gostaria de copiar, pra depois colar no Word como Bitmap. Agora por meio do ListObject posso maximizar tranquilo minhas tabelas nomeadas/dinâmicas, que não precisarei estar alterando os intervalos no código. Desde já, muito obrigado! Mais de 2 anos depois, sua dica continua, e continuará fazendo a diferença na vida das pessoas. Forte abraço!
Show
Meu amigo, excelente aula... Por[em meu problema [e um pouco mais complicado...
Eu preciso usar o replace na primeira parte do texto num arquivo do Word e no meio da p[agina inserir uma tabela de preços... tem alguma ideia de como me ajudar? A primeira parte eu sei, só não sei como inserir a tabela do excel nessa parte específica do Word....
Espetacular explicação! Ajudou muito!!! Será possível explicar como exportar várias tabelas ao mesmo tempo, do mesmo Excel para um Word? Obrigado!
Olá, William, Excelente aula. Essa é uma informação preciosa, pois já tinha tentado várias vezes manter a formatação do Excel em mala direta com Word, sendo que , a partir dos vários tutoriais que encontrei, nunca consegui. Obrigado. Já estou inscrito.
Flavio, que bom saber que lhe ajudou esse o o objetivo do canal;
sentir um pouco de um para outro
Olá William, vídeo aula excelente parabéns pela iniciativa... tenho uma duvida de como inserir uma tabela do excel em um determinado ponto no word, ou seja, excel localiza palavra chave no texto word e transfere tabela... pode me ajudar???? acredito que muitos tem a mesma duvida... forte abraço
Estou com esta mesma dúvida
Fala William, cadê os vídeos irmão, estou esperando vc ensinar a configuração dark que vc fez no editor vba
vou gravar mestre, ando numa correria que a dias não consigo gravar aulas;
Obrigado pela aula. Fiquei com uma dúvida, como centraliza a tabela no word?
Olá, primeiramente, obrigada pelo vídeo. Tenho uma dúvida, se precisar incluir num especifico do word, como seria definido? Com bookmark/Indicador?
Nathalie obrigado por participar, e necessário elaborar a logica para essa implementação com base na ideia inicial.
Amiga, encontrou como fazer isso? Pois eu me encontro com o mesmo problema e não encontro em lugar algum da internet como fazer. Preciso fazer exatamente isso. Definir um local do documento word que receberá a tabela do excel.
@@WilliamOliveiraExcel, Professor. Grato por sua dedicação a essas aulas maravilhosas. Poderia me auxiliar como definir um local especifico no documento word e como inserir a tabela do excel neste local definido? Me ajuda, por favor!!!
Willian se dentro dessa planilha tiver uma imagem em uma das células e eu qser enviar também para o word no mesmo formato?
vamos ter que testar isso. obrigado pela a contribuição e interação.
Tem como copiar a tabela em uma posição do texto no word ?
Ola Bom dia todos, e se o word estiver aberto?
William, Boa tarde, muito bom essa rotina, porém gostaria que tivesse mais uma coluna com nome de cidades distintas e quando transferir para o word ele gerasse uma pagina por nome de cidade.
teria que gravar uma aula ensinado isso, pois e uma outra estrutura de código com a mesma logica
@@WilliamOliveiraExcel obrigado pela atenção
Achei espetacular, mas gostaria de saber se é possível fazer isso em um documento criado. Por exemplo: Vamos imaginar que já tenho um documento pronto, onde o que altera é só a tabela. Como poderia inserir/atualizar essa mesma tabela em um campo específico do Word, sem bagunçar o texto que já existe? Pelo exemplo que deu, a impressão que tenho é que essa tabela será inserida sempre no topo da página.
Leandro, existe sim essa possibilidade porém e preciso fazer uma seria de configuração no arquivo que vai receber as instruções via macro
@@WilliamOliveiraExcel muito obrigado pelo retorno. Eu fiz alguns testes e consegui fazer o que precisava, coloquei uma TAG no arquivo Word e usei a propriedade Find e Execute para resolver a questão. 100% Funcional 😉
@@LeandroF12 tem como voce colocar aqui o teu código? Tenho a mesma situação
@@carlosrgls Claro! Segue o código de forma resumida. No seu documento Word coloque uma marcação que seja fácil de encontrar, como por exemplo #TextoWord e no VBA você coloca o código
With WDA
.Application.Selection.Find.Text = "#TextoWord"
.Application.Selection.Find.Execute
.Application.Selection.Range = Me.TxtContr.Text 'Recebe valor do textbox
End With
@@LeandroF12 entendi, usou o modo #palavra, boa. Valeu cara, te agradeço!
Como enviar para um documento existente? tenho um botão em um outro formulario para colocar o nome do documento word a ser enviado, como faço?
Dentro do mesmo tema pode ensinar a elaborar um "Mail - Merge" para envio de cartas em série para distintas pessoas com base de dados no Excel? . Julgo ser tema de interesse de todos. Obrigado
grande ideia para trazermos aqui para o canal, estarei colocando isso na minha lista de ideias que tenho para virar um projeto.
Olá, estou fazendo o mesmo procedimento para a minha tabela porém, na linha "Set Table = Planilha3.ListObjects("Impressao")" aparece erro: "Subscrito fora do intervalo" a minha tabela contém linhas mescladas pois já é o documento pronto para ser impresso. No meu caso o documento a ser impresso é uma planilha do excel na qual estou usando dados de outras abas para preencher e posteriormente imprimir. Me ajude.
Caso eu queira inserir essa tabela em meio a um documento já criado, em uma linha específica, como deveria prosseguir?
tem que criar o cenário ou ambiente onde vai receber essa tabela indicar o local onde quer inserir.
Como colocar a tabela em word timbrado?
A minha planilha na segunda linha da erro fica dano que o tipo pelo usuário não foi definido.
tem que habilitar as bibliotecas para que funcione corretamente
Boa tarde ,tentei fazer seguindo a sua logica ,mais o meu excel e 2010 e o wird idem. Apareceu um erro e segui tudo como você. O que Deve ter dado errado. E como abrir o word e ver o titulo no word
Tô transferindo um texto de uma célula para o Word via VBA
O texto dentro da célula é grande, pois é um relatório. Como faço pra corrigir esse erro ?
Tá dando:
Erro em tempo de execução '5854':
O parâmetro da cadeia é muito longo.
O resto, tá dando tudo certinho.
a minha planilha esta dando erro de compilação: " tipo definido pelo usuário não definido" o que será que fiz de errado? segui o passo a passo certinho, mais eu não sou muito entendido do assunto, mais gostaria de aprender um pouco mais. obrigado
Tiago, analisa melhor se de fato você ativou as bibliotecas necessárias e se você declarou as variáveis corretamente
@@WilliamOliveiraExcel tá bom, vou verificar
Obrigado
Muito bom o video,
Porem tive um erro de Compilação no Doc.tables: " Método ou membro de dados não encontrado"
Segue código para quem precisar (ajustar nome da tabela selecionada no código)
Option Explicit
Sub Enviar_tabela_Word()
Dim App As Word.Application
Dim Doc As Word.Documents
Dim Table As Word.Table
Dim excelApp As ListObject
Dim objSelection ' extra
Dim text As String 'extra
Set App = New Word.Application
App.Visible = True
App.Activate
Set Doc = App.Documents.Add
Set excelApp = PlanBase.ListObjects("Projeto_Cliente")
excelApp.Range.Copy
With App.Selection
.PasteExcelTable LinkedToExcel:=True, WordFormatting:=False, RTF:=True
End With
Set Table = Doc.Tables(Doc.Tables.Count)
Table.AllowAutoFit = False
Table.autofitbehavior (wdautofitWindow)
Application.CutCopyMode = False
Set Table = Nothing
Set excelApp = Nothing
Set App = Nothing
Set Doc = Nothing
End Sub
Ativou as bibliotecas que mostro no começo do vídeo? Meu email caso não der certo. william.aedu@gmail.com
Show