Microsoft Word é um programa processador de texto usado para criar e formatar documentos. Visual Basic for Applications (VBA) é comumente usado para automatizar tarefas repetitivas entre os aplicativos do Microsoft Office, como Word, Excel e Access. Em poucos passos, você pode escrever um pequeno sub ler um documento do Word no VBA.
Abra o Microsoft Excel 2007. Clique na "Desenvolvedor" guia e selecione "Visual básico." Digitar "Sub readWordDocuemnt ()" e pressione "Entrar" para criar uma nova sub.
Digite o seguinte para declarar as variáveis:
Dim wordApplication Como Word.Application
Dim wordDocument Como Word.Document
Dim PTEXT As String
Dim Prange Como Word.Range
pCount Dim As Long
Dim rXLRow As Long
Digite o seguinte para criar um novo livro do Excel e abra o documento do Word para ser lido:
Workbooks.Add
Definir wordApplication = CreateObject ("Word.Application")
Definir wordDocument = wordApplication.Documents.Open ("C: Text no Word.doc")
Digite o seguinte para percorrer os parágrafos no documento do Word e adicioná-los para o novo livro do Excel:
rXLRow = 2
com wordDocument
Para pCount = 1 Para .Paragraphs.Count
Definir Prange = .Range (Iniciar:. = §§ (pCount) .Range.Start, _
End:. = §§ (pCount) .Range.End)
PTEXT = pRange.Text
ActiveSheet.Range ("UMA" & rXLRow) .Formula = PTEXT
rXLRow = + 1 rXLRow
Próximo pCount
.Fechar
End With
Digite o seguinte para salvar o novo pasta de trabalho, saia do Word e variáveis claras:
wordApplication.Quit
Definir wordDocument = Nothin:
Definir wordApplication = Nothing
ActiveWorkbook.Saved = True
Execute o sub.
Como criar documentos de texto dinâmicos
Como mesclar um número excel em formato Word
Como vincular uma planilha do Excel para um documento do Word
Como vincular documentos Word para o Excel documentos
Como definir uma referência a um objeto palavra usando Excel VBA
Como escrever dados de matriz básicas visuais para um arquivo de texto no Excel
Como incorporar objetos em MS Word