Este fórum está sendo desativado

[ROSANO]

Boa Tarde!

Seria Possível, através de uma macro abrir, copiar o texto (ofício) de um arquivo word, colar em uma coluna numa planilha no excel,  fechar o arquivo word, abrir o próximo, colar na segunda coluna da mesma planilha do excel, até acabar os arquivos word da pasta?

Agradeço muito a colaboração!

[alexandrevba]

Boa tarde!!

Veja se essa rotina te ajuda.

Código: Selecionar todos

Sub fromWordDocsToMultiCols()
'Fonte: http://stackoverflow.com/questions/32788712/import-word-file-name-and-data-into-excel-in-a-consistent-format
    Dim f As String: f = "C:\Users\AleVBA\Downloads\"
    Dim s As String: s = Dir(f & "*.docx")
    Dim wdApp As New Word.Application, wdDoc As Word.Document
    Dim col As Integer: col = 1

    On Error GoTo errHandler
    Do Until s = ""
        Set wdDoc = wdApp.Documents.Open(f & s)
        wdDoc.Range.Copy
        Plan1.Cells(1, col).Value = s
        Plan1.Cells(2, col).PasteSpecial xlPasteValues
        wdDoc.Close False: col = col + 1: s = Dir
    Loop

errHandler:
    If Err.Number <> 0 Then MsgBox Err.Description
    If Not wdApp Is Nothing Then wdApp.Quit False
End Sub

Att

[ROSANO]

Nâo Funcionou.

[alexandrevba]

Bom dia!!

No meu teste eu tive resultado.

O "não funcionou" eu não sei o que é somente com essas palavras

Att

[ROSANO]

Bom Dia!

"Erro de Compilação:

O tipo definido pelo usuário não foi definido."

[alexandrevba]

Bom dia!!

Você precisa fazer referência a biblioteca do Word no seu projeto VBA.

Abra o Excel pasta de trabalho e pressione Alt + F11 para obter o Editor do Visual Basic (VBE)
Vá para o menu Ferramentas e selecione referências a partir do menu drop-down.
de diálogo "Referências- VBAProject" irá aparecer.

http://excel-macro.tutorialhorizon.com/ ... -workbook/

Favor ler as regras do fórum
indique sua postagem cruzada.
http://www.planilhando.com.br/forum/vie ... 10&t=21664
Att

[ROSANO]

Bom dia!
Excel.14 e office.14 estão ativadas.
Ativo o world.14 e aquela mensagem não aparece mais, mas nada acontece.

[alexandrevba]

Boa tarde!!

Desculpe, eu não tive problemas.
O código vai importar os dados dos arquivos nas colunas, ou seja, se tem 2 arquivos, então na guia terá coluna 1 e 2 com dados dos arquivos.

Att