pasar datos de txt a documento word(URGENTE)

daniotero
19 de Noviembre del 2003
Hola gente!
Mi problema es que tengo que hacer una macro en Visual Basic que me lea líneas de 124 caracteres de un txt y me las vaya escribiendo en el documento word(.doc) tal cual las lee. He conseguido meter las lineas en un string, pero ahora no se escribirlo en el documento word. Os adjunto el código que he hecho hasta el momento:
Sub Prueba()
'
' Prueba Macro
' Macro grabada el 19/11/2003 por dotero
'
Dim linea As String
Open "c:Pruebafa124cpl.txt" For Input As #1
Do While Not EOF(1)
Input #1, linea
'Codigo para copiar el string en word
Loop
Close #1
End Sub

Muchas gracias de antemano y un saludo

sdemingo
19 de Noviembre del 2003
Hola,

supongo que la macro es de word. En tal caso puedes grabar nueva macro, escribir en word o lo que quieras y luego ver el código para escribir las líneas.

De todas formas, si tienes el contenido en linea, para escribirlo en word tendrías que hacer esto.
Selection.TypeText Text:=linea ' Escribe
Selection.TypeParagraph ' Salto de linea y retorno de carro


Un saludo
sdemingo

daniotero
19 de Noviembre del 2003
sinceramente, muchisimas gracias, sobre todo por lo del salto de linea me estaba volviendo loco je,je.
oye, ya que estoy en plan usurpador de trucos, te comento otra cosa vale?me gustaria sustituir los dos primeros caracteres y el ultimo del string por un "espacio en blanco", como lo haria? es que he probado con esto y no funciona.
Sub Prueba()
'
' Prueba Macro
' Macro grabada el 19/11/2003 por dotero
'
Dim linea As String
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open FileName:="C:PruebaFactura.doc", ReadOnly:=False
Open "c:Pruebafa124cpl.txt" For Input As #1
Do While Not EOF(1)
Input #1, linea
'linea(0) = " "
'linea(1) = ""
'linea(123) = ""
wordApp.Selection.TypeText Text:=linea
Loop
Close #1
End Sub

sdemingo
19 de Noviembre del 2003
Hola,

lo tienes que hacer así:

Mid(linea, 1) = " "
Mid(linea, 2) = " "
Mid(linea, 124) = " "


Un saludo
sdemingo