Eu quero criar uma Word documento usando macros do excel?

Eu queria criar uma Word documento usando macros do excel e de lá eu queria formatar os dados que estou adicionando no documento do word.
Eu queria inserir tabelas e formato de fonte e cor do texto e tabelas

Resposta

Abaixo está uma macro do Excel de exemplo que irá lançar o MS-Word e criar um doc do Word em branco e, em seguida, adicionar algum texto a ele.

Para inserir tabelas, formatar texto, etc, eu precisaria de saber detalhes.

Antes de executar esta macro, você deve adicionar uma referência do VBA para a biblioteca de objeto do Word no editor de VB do Excel.

No Editor de VB do Excel, selecione o menu Tools\References

Selecione Biblioteca de objetos do Microsoft Word na lista e OK

-

Sub New_Word_Doc()

' Adicionar uma referência à biblioteca do Word

Dim wrdApp As Word. Application

Dim wrdDoc As Word. Document

Dim I As Integer

Set wrdApp = CreateObject

wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Add ' criar um novo documento

' operações de Word exemplo

Com wrdDoc

Para i = 1 A 100

.Content.InsertAfter "aqui está um teste de exemplo a linha #" & eu

.Content.InsertParagraphAfter

Seguinte eu

'.Fechar ' fechar o documento

Terminar com

'wrdApp.Quit' fechar o aplicativo Word

Set wrdDoc = Nothing

Set wrdApp = Nothing

End Sub

Inscrever - receber um email se alguém adiciona novas respostas/comentários

Comentários

Daniel na 25 Abr 2014

na parte onde está Set wrdApp = CreateObject deve-se especifocar que tipo de objeto será criado. Desta forma, substituir Set wrdApp = CreateObject por Set wrdApp = CreateObject("Word.Application")
No mais, tudo ok.

Responder

JimmyCliff na 4 Abr 2016

'======================================
' ADICIONAR A REFERÊNCIA MICROSOFT WORD
'======================================
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdTable As Word.Table

'===========================================================
'MENSAGEM DE ERRO : " ERRO COMPILAÇÃO: USUÁRIO NÃO DEFINIDO"
'===========================================================

Dim xText
Dim o As Integer

Set wrdApp = CreateObject("Word.Application") 'SET DE VARIÁVEL (NOVO OBJETO INSTÂNCIADO NO MICROSOFT - WORD
Set wrdDoc = wrdApp.Documents.Add 'CRIANDO O NOVO DOCUMENTO

Set wrdRange = wrdDoc.Range

wrdDoc.PageSetup.PaperSize = wdPaperA4 'CONFIGURANDO O TIPO DE PAPEL PARA A4
wrdDoc.PageSetup.TopMargin = InchesToPoints(0.1) 'AJUSTANDO A MARGEM SUPERIOR DA PÁGINA
wrdDoc.PageSetup.LeftMargin = InchesToPoints(0.2) 'AJUSTANDO A MARGEM ESQUERDA DA PÁGINA
wrdDoc.PageSetup.RightMargin = InchesToPoints(0.3) 'AJUSTANDO A MARGEM DIREITA DA PÁGINA
wrdDoc.PageSetup.BottomMargin = InchesToPoints(0.1) 'AJUSTANDO A MARGEM INFERIOR DA PÁGINA

Responder

Pedro na 11 Abr 2020

Amigo, me surgiu uma dúvida, existe alguma forma de fazer um sistema de botões que assim que você clicar neles geram textos automáticos em um word? A minha situação é o seguinte tenho o parágrafo 1,2,2,4, no entanto tenho q várias, as vezes usar o texto 2 e 3 ou 4 e 1. Tem alguma sugestão?

Responder

João na 4 Set 2023

Claro! Você pode usar o Excel para criar um documento no Word usando VBA (Visual Basic for Applications). Primeiro, você pode começar a gravar uma macro no Excel para inserir os dados desejados e depois pode adicionar comandos VBA para formatar o documento do Word, como adicionar tabelas, alterar a formatação da fonte e a cor do texto. Você também pode usar o objeto Range no VBA para formatar o documento do Word de acordo com seus requisitos. Boa sorte!

Responder

O seu comentário

Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..