ARQUIVO .DOC, COMO FAZER??

MATHEUS 09/08/2007 11:54:21
#230175

Bom dia pessoal,
Gostaria de saber como faço para trazer para a tela todo arquivo em Word.

Obrigado,

Oswaldo

USUARIO.EXCLUIDOS 09/08/2007 11:57:31
#230176

tenta essa função

Function AbreArquivo(sArquivo As String) As String
  Dim iARQ As Integer
  Dim sLinha As String
  Dim sResult As String

  iARQ = FreeFile
  Open sArquivo For Input As iARQ
  Do While Not EOF(iARQ)
    *Pega o conteÃƒÃ‚Âºdo da linha
    Line Input #iARQ, sLinha

    *Quebra a linha e concatena (soma) o resultado
    sResult = sResult + Chr(13) & Chr(10) + sLinha
  Loop

  AbreArquivo = sResult

Fecha o arquivo
  Close iARQ
End Function

Para usar:
Text1.Text = AbreArquivo("C:\Texto.doc")

boa sorte

MATHEUS 09/08/2007 12:00:55
#230180

Sinkertec, assim eu já sabia, em todo caso agradeço, mas eu pensei que tivesse um jeito de trazer todo o arquivo de uma vez, sem fazer linha por linha do arquivo texto.

USUARIO.EXCLUIDOS 09/08/2007 12:20:45
#230183

Ah tá..entendi..vou pesquisar e te mando alguma coisa caso ache!!

MATHEUS 09/08/2007 12:30:13
#230187

Obrigado, novamente!!!

Matheus

USUARIO.EXCLUIDOS 09/08/2007 12:34:16
#230190

Vc quer pegar o conteudo de um arquivo do word e jogar num text

ou serve abrir o word automaticamente com o arquivo desejado?

MATHEUS 09/08/2007 12:37:39
#230192

Não, eu preciso pegar o conteudo e jogar num text, abrir automaticamente eu ja vi aqui mesmo, mas não Ã© isso que eu quero.

Obrigado,

Matheus

MATHEUS 09/08/2007 12:38:51
#230194

Detalhe a rotina acima que voce me passou serve apenas para arquivos texto, e não para arquivos word, estou certo!!!

Matheus

USUARIO.EXCLUIDOS 09/08/2007 12:47:14
#230196

é mesmo..teste aki..desculpa ae

MATHEUS 09/08/2007 12:49:39
#230198

Pois Ã©!!!
Não achei nada neste sentido, por exemplo, pegar o conteudo da linha 6 do arquivo em word (documento.doc)

Mas obrigado assim mesmo.

Matheus

FLAVIOGUILHERME 09/08/2007 13:51:42
#230225

Amigo tenta isso:

Dim Tmp1 As Object
Set Tmp1 = CreateObject("Word.Application")
Tmp1.Visible = True
Tmp1.Documents.Open App.Path & "\Modelo.doc"
Tmp1.Activate
TxtTexto.Text = Tmp1.ActiveDocument.Paragraphs(2) '(2) Numero da linha.

Página 1 de 2 [12 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar