Notifications
Clear all

Macro Excel criar arquivos word

8 Posts
2 Usuários
0 Reactions
2,248 Visualizações
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

Boa noite pessoal gostaria de automatizar um processo que fazemos aqui em nosso serviço, porem hoje utilizo mala direta no word e alem disso fiz outras macros pra quebrar os arquivos e renomeá-los, mas resumindo queria fazer todo processo no Excel. é o seguinte, estou anexando dois arquivos para compreensão. O que eu queria é que só usando o Excel sem abrir o word criar vários arquivos do word, tipo mala direta formatados conforme o anexo, renomeados com o número da NS e nome da cidade. O texto marcado em vermelho no word seria extraído do Excel como se fosse uma mala direta. mas seria um arquivo do word par cada linha do Excel com os dados.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 19/03/2014 7:21 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não baixei seu modelo :(
Mas tente....implementar.

Sub Nao_Testado()
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
     'Set wrdDoc = wrdApp.Documents.Open("C:FoldernameFilename.doc")

    With wrdDoc
        For i = 1 To 100
            .Content.InsertAfter "Teste #" & i
            .Content.InsertParagraphAfter
        Next i
        If Dir("C:SeuDiretorioSeuArquivoWord.doc") <> "" Then
            Kill "C:SeuDiretorioSeuArquivoWord.doc"
        End If
        .SaveAs ("C:SeuDiretorioSeuArquivoWord.doc")
        .Close
    End With
    wrdApp.Quit
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2014 10:33 am
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

Boa tarde Alexandre começei aqui a utilizar a macro proposta por você acima, porém está acontecendo um erro na parte do codigo "Dim wrdApp As Word.Application"
"Dim wrdDoc As Word.Document". o erro é "O TIPO DEFINIDO PELO USUÁRIO NÃO FOI DEFINIDO". O que será?

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 20/03/2014 3:34 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Alexandre começei aqui a utilizar a macro proposta por você acima, porém está acontecendo um erro na parte do codigo "Dim wrdApp As Word.Application"
"Dim wrdDoc As Word.Document". o erro é "O TIPO DEFINIDO PELO USUÁRIO NÃO FOI DEFINIDO". O que será?

Não vi seu modelo, mas este erro é devido a falta da referencia ao app Word:
No Menu Ferramentas / REFERENCIAS do editor VBA é preciso Habilitar a Biblioteca :
Microsoft Word 12.0 0bject Library

Habilite e refaça o teste.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2014 5:41 pm
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

Obrigado pela resposta Mauro, deu ceto aqui. Consegui até rodar, porém quando chega no comando "IF" acontece um erro e a instrução "Kill "C:xxxxDiretorioxxxxxWord.doc" acontece um erro. Gostaria de entender o que acontece na instrução "IF". A macro acima me ajuda, porém ainda não completamente. Preciso de uma que acesse um arquivo do word específico rode uma macro que está dentro do arquivo do word e retorne ao Excel e acabe de executar mais um comando. Se isso não for possível preciso de uma macro que com os dados que estão dentro do Excel gere arquivos do word com os dados e nomeados conforme exemplo em anexo. Obrigado.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 20/03/2014 7:43 pm
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

Boa noite pessoal, alguém pode me ajudar? Estou precisando muito desta aplicação no meu trabalho.Obrigado.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 25/03/2014 3:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

engeel,se está falando da rotina que o alexandre postou, fiz um teste e não obtive nenhum erro, verifique se o nome do arquivo e o caminho para salvar estão correto, se ele existe em seu pc.

Quanto a outra questão, não utilizo o Word, o ideal seria postar em algum Forum especifico sobre Word.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/03/2014 6:26 pm
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

Ola Mauro, com relação a rotina do Alexandre, consegui sim rodar. O meu problema é que conheço pouco de programação e VBA, aprendi meio na curiosidade, então não estou conseguindo criar os arquivos que preciso. Até consegui usando Excel e word, porem tenho que entrar em um arquivo Excel colar dados, depois sair, entrar no word, efetuar procedimento de mela direta, depois executar uma macro pra separar os arquivos do word gerados em arquivos separados, depois saio do word e entro novamente no Excel e executo uma macro pra renomear os arquivos criados pelo word. Bom, o que eu queria e que no Excel e com o clique em um botão executasse todo esse procedimento.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 26/03/2014 9:33 am