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 uma pequena sub ler um documento do Word no VBA. Instruções
1

Abra o Microsoft Excel 2007. Clique na aba "Developer" e selecione " Visual Basic ". Digite " Sub readWordDocuemnt () " e pressione " Enter" para criar uma nova sub
2

Digite o seguinte para declarar as variáveis ​​: .

Dim wordApplication Como Word.Application < br >

Dim wordDocument Como Word.Document

Dim pText As String Dim

Prange Como Word.Range

Dim PCOUNT As Long Dim

rXLRow as Long
3

Digite o seguinte para criar uma nova pasta de trabalho Excel e abra o documento do Word para ser lido :

Workbooks.Add

Set wordApplication = CreateObject (" Word.Application " )

Definir wordDocument = wordApplication.Documents.Open ("C: \\ Text em Word.doc " )
4

Digite o seguinte para repetir através dos parágrafos no documento do Word e adicioná-los para o novo livro do Excel : .

rXLRow = 2

com wordDocument

Para PCOUNT = 1 To Paragraphs.Count < br > Definir

Prange = Range . (Start : . . = Os parágrafos ( PCOUNT ) Range.Start , _

End : . . = Os parágrafos ( PCOUNT ) Range.End )

pText = pRange.Text

ActiveSheet.Range ("A" & rXLRow ) . Fórmula = pText

rXLRow = rXLRow + 1

Próxima PCOUNT

. Fechar

End With
5

Digite o seguinte para salvar a nova pasta de trabalho, feche o Word e claras variáveis:

wordApplication.Quit

Set wordDocument = Nada : .

Set wordApplication = Nothing

ActiveWorkbook.Saved = True
6

Execute o sub
< br >