Boa tarde!!

Tente..

Sub test()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:UsersAcer Windows 7Desktoptest.docx"
With objWord.ActiveDocument
  .Text1.Value = ws.Range("A1").Value
  .Text2.Value = ws.Range("A2").Value
  .Text3.Value = ws.Range("A3").Value
End With
End Sub

Veja mais em:
http://www.learnexcelmacro.com/2012/01/ ... e-in-word/

AlexandreVBA
Obrigado por responder
Desculpe minha ignorancia nao entendo nada de ´programação, deixe me fazer uma pergunta:

Eu devo digitar os dados no excel e depois executar a macro !?
Deu esse erro" subscrito foa do intervalo"
Set ws = ThisWorkbook.Sheets("Sheet1")
?

O erro é porque em seu arquivo excel o nome da aba deve ser outro, altere o nome que está em negrito de acordo com o da sua aba:
Set ws = ThisWorkbook.Sheets("Sheet1") - se for excel port-br deve estar Plan1, isso se não a renomeou.

Tambem terá de ajustar o endereço onde se encontra o arquivo :
objWord.Documents.Open "C:UsersAcer Windows 7Desktoptest.docx"
Na cor AZUL o path em seu PC e na cor Vermelha o nome do arquivo, se o mesmo não existir vai dar erro.

Na rotina abaixo é copiado um determinado Ranbge e colado no Word como Tabela :

Sub CopiaExcelColaWord()
Dim ws As Worksheet

'Define o nome da ABA
Set ws = ThisWorkbook.Sheets("Plan1")

'Define o Objeto Word
Dim objWord As Object

'Cria o oobjeto para abertura posteriormente
Set objWord = CreateObject("Word.Application")

'Exibe a janela do word
objWord.Visible = True

'Copia as Celulas
[A1:B10].Copy
       
       'Cola no doc word (teste.doc)
        With objWord
            .Documents.Add
            .Selection.PasteExcelTable False, False, False
            .ActiveDocument.SaveAs "C:Documents and Settingsmauro.coutinhoMeus documentosTeste.doc"
            .ActiveDocument.Close
            .Quit
        End With
        
        Set objWord = Nothing
        
End Sub

Lembre-se que tem de ajustar o caminho do arquivo.

Acredito que o link abaixo tambem irá ajuda-lo, é só baixar e testar:
Criar Mala Direta Programaticamente Usando o Excel
http://www.ambienteoffice.com.br/word/c ... o_o_excel/

[]s

Mauro
Boa Noite
Não to conseguindo posso te pedir um auxilio por email ?
Grato

Boa noite!!

Tente assim..
Altere essa parte para o local onde está seu arquivo do Word.

objWord.Documents.Open "C:UsersAcer Windows 7Desktoptest.docx"

Para algo como...

objWord.Documents.Open "C:MeuDiretórioMeuArquivoWord.docx"

e aqui.

ThisWorkbook.Sheets("Sheet1")

Para

ThisWorkbook.Sheets("AquiO_NomeDeSua_Planilha")

Mauro
Boa Noite
Não to conseguindo posso te pedir um auxilio por email ?
Grato

Bk, se você colocasse pelo menos o que não está conseguindo, ficaria mais fácil procurar uma solução, você até pode me enviar por email solicitação de ajuda, mas com certeza você terá uma resposta mais rápida se postar aqui no forum mesmo, pois nem sempre temos tempo disponivel, e aqui teremos uma gama maior de colaboradores dispostos a ajudar, é só detalhar melhor qual está sendo a dificuldade, ou até, dependendo anexar seu modelo compactado paraumaanalise melhor.

[]s

Boa noite!!

Quando postar a mesma dúvida em mais de um fórum, indique a postagem cruzada!!

http://forum.clubedohardware.com.br/mac ... re/1130912

Att

Bom dia,

Minha sugestão está publicada aqui:

Fórum INFO

Abraço

Pessoal
Bom Dia !
Seguindo o conselho dos colegas, resolvi postar aqui em anexo as duas planilhas, desta forma acredito que vcs poderão me auxiliar melhor, andei pesquisando na internet ontem e acho que tem um comando chamando "sendkeys" que faz esse preenchimento automático !? Estou certo, ou estou falando besteira!?
Bom aqui temos
Planilha em excel, os dados
No word
Os campos aonde esses dados devem ser inputados

Agradeço mais uma vez, to numa sinuca de bico por causa disso aqui, todo dia tem um amigão aqui, um amigão!!! Mesmo que vem me cobrar...
ABs

NInguem pessoal !?
Nao tem virus não (pelo menos eu acho que nao)
Nao deu pa copiar e colar aqui no forum

NInguem pessoal !?
Nao tem virus não (pelo menos eu acho que nao)
Nao deu pa copiar e colar aqui no forum

Bk, tenha um pouco mais de paciencia, você já obteve as respostas positivas, tanto aqui como nos outros foruns.
A dica do colega JVALK no forum daInfo não lhe serviu ?

Pelo que estou vendo você não quer uma simples ajuda e sim que lhe envie tudo pronto, se tem algum "amigão" lhe cobrando é porque prometeu, então se ler atentamente e seguir o passo a passo da dica que passei :
Criar Mala Direta Programaticamente Usando o Excel
http://www.ambienteoffice.com.br/word/c ... o_o_excel/
Irá tirar de letra, precisa se esforçar um pouco para aprender tambem, como irá explicar como fez se te perguntarem.

[]s

É exatamente o que eu ia sugerir, mas estava com preguiça de escrever um tutorial...

O recurso de mala direta é a melhor saída para sua necessidade BK.... E não é tão difícil, é super intuitivo, abra o Word e vá na aba Mala Direta.
Aprenda use, brinque com ela e vai ver que é super bacana.

Daí, você poderá usar o código do Mauro para salvar os resultados da mala direta, individualmente.

Nossa, já fazia um tempo que eu não via essa funcionalidade...

Eu não utilizo muito o Word e poucas vezes utilizei Mala Direta, mas no link que passei tem tudo tão explicadinho e até os exemplos para baixar, que fica bem mais fácil construir o que ele quer, eu até ia fazer, mas ele "o tempo" e digo os dois tipos, aqui já estava perto dos 7 graus, e como podem ver pelo horario da postagem já eram meia noite passada, e ainda tinha de terminar alguns relatórios e trabalhar em alguns outros arquivos que estava devendo uma resposta.

[]s

Alexandre, como ja disse anteriormente, não utilizo muito o word, e tão pouco com integração em excel, mas desde o dia que passei o link com um exemplo, conforme sobrava um tempinho procurei criar um modelo que lhe atenda.

Algumas obs, modifiquei os rótulos das colunas devido a não aceitação de espaços ou acentos ao criar os campos, na rotina é necessário que ajuste os caminhos dos arquivos base e onde serão salvos, ou criar a pasta conforme está definido na rotina.
Em seu doc Carta.docx alguns campos não encontrei relação com os que estão na planilha, então criei alguns só para teste.
Pela falta de experiência neste tipo de implementação, ainda falta formatar alguns campos, mas acredito que isto não será problema, procure pesquisar e ler sobre o assunto, pois não posso garantir, devido ao tempo livre quando irei retornar a esta implementação.

Anexo atualizado em 05/12/14
Integração Excel Word

Faça os testes e qualquer duvida retorne.

[]s