|
|
|
|
 |
Título da Dica: Copiando Textos de Documentos do Word
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Copiando Textos de Documentos do Word
'No evento desejado:
Dim Word As Object
Set Word = CreateObject("Word.Application")
'Abre o documento
Word.Documents.Open "C:\Meus Documentos\" & _
"NomeDoDocumento.DOC"
'Seleciona o documento inteiro
Word.Documents("NomeDoDocumento.DOC").Select
'Joga o conteúdo da seleção numa caixa de Texto.
Text1.Text = Word.Selection.Text
Pesquise o VBA, pois utilizando-o é possível selecionar palavras, parágrafos, tabelas, etc. Ou seja, qualquer parte do documento.
|
|
|
|
|
