WORD OPEN TXT
Publicado por GabrielDR (5 intervenciones) el 02/03/2006 23:56:17
Hola a todos, en estos ultimos dias he estado
trabajando con VBA en Word para crear una
aplicación que lee archivos de texto plano (txt) y
realiza algunas busquedas y luego automaticamente los
guarda en otra si cumple algunos criterios en el mismo
formato (txt).
Ahora bien, opte por usar el viejo y gastado "OPEN" de
VB para abrir y leer todo el archivo TXT, ya que el
comando Documents.Open FileName: de VBA hacia un poco
tardado la carga del archivo (y vaya que son
bastantitos), y luego incrustarlo en el DOC usando
Selection.text=VariableTexto.
Hasta ahi bien, lo que no he logrado hacer es escribir
el contenido del texto usando OPEN WRITE, ya que al
hacerlo me "junta" las lineas de codigo. y así no me
sirva para nada.
¿Como escribir el contenido del selection.text en un
archivo de texto plano sin usar Documents.save
Aqui esta el codigo:
1.- Abrir el Archivo TXT
dim ValTEXT as variant
dim n as integer
' Abre el archivo para recibir los datos.
n=freefile
Open Archivo.txt For Input As #n
ValTEXT= Input(LOF(n), #n) ' Lee el carácter en
dos variables.
Close #n ' Cierra el archivo.
2.- Copiar la variable al documento WORD
dim docum as word.document
Dim Activo as Boolean
'Activar el documento de word
Set documW = ActiveDocument
documW.Activate
'Seleccionar todo el texto del DOC (si hubiere)
Selection.WholeStory
Selection.text=ValTEXT 'Hasta aqui todo bien
Activo=ProcesaDOC 'Se encarga de hacer algunas
comparaciones y cambios al texto, y regresa verdadero
si se cumplen.
if activo=true then
3.- ESCRIBIR EL TEXTO DEL DOC EN un archivo TXT nuevo.
'capturar el valor del DOC en la variable
ValTEXT = Selection.Text
n = FreeFile
Open c:\salida\nuevo.txt For Output As #n
'Abre el archivo para recibir los datos.
Write #1, ValTEXT
Close #fl ' Cierra el archivo.
endif
Al finalizar este proceso sucede lo siguiente
TEXTO ORIGINAL DEL ARCHIVO TXT
Linea1-Requisicion: 2564
Linea2-Hora: 10:54
Linea3-Codigo: "VERDE" Renglon: 44 Parte: "USB45"
Linea4-Recogido: 4:25
Linea5-Salida: 6:30
Linea6-Descripciones: No se alcanzo el codigo de calidad
parte "A" 210.
TEXTO DE SALIDA EN EL ARCHIVO NUEVO.TXT
"Linea1-Requisicion: 2564?Linea2-Hora: 10:54?Linea3-Codigo: ""VERDE""?Renglon: 44 Parte: ""USB45""?Linea4-Recogido: 4:25?Linea5-Salida:?6:30?Linea6-Descripciones: No se alcanzo el codigo de calidad parte ""A"" 210.???"
¿COMO HAGO PARA QUE LO GUARDE CORRECTAMENTE SIN USAR DOCUMENTS.SAVE y SIN TENER QUE REPROCESARLO?
trabajando con VBA en Word para crear una
aplicación que lee archivos de texto plano (txt) y
realiza algunas busquedas y luego automaticamente los
guarda en otra si cumple algunos criterios en el mismo
formato (txt).
Ahora bien, opte por usar el viejo y gastado "OPEN" de
VB para abrir y leer todo el archivo TXT, ya que el
comando Documents.Open FileName: de VBA hacia un poco
tardado la carga del archivo (y vaya que son
bastantitos), y luego incrustarlo en el DOC usando
Selection.text=VariableTexto.
Hasta ahi bien, lo que no he logrado hacer es escribir
el contenido del texto usando OPEN WRITE, ya que al
hacerlo me "junta" las lineas de codigo. y así no me
sirva para nada.
¿Como escribir el contenido del selection.text en un
archivo de texto plano sin usar Documents.save
Aqui esta el codigo:
1.- Abrir el Archivo TXT
dim ValTEXT as variant
dim n as integer
' Abre el archivo para recibir los datos.
n=freefile
Open Archivo.txt For Input As #n
ValTEXT= Input(LOF(n), #n) ' Lee el carácter en
dos variables.
Close #n ' Cierra el archivo.
2.- Copiar la variable al documento WORD
dim docum as word.document
Dim Activo as Boolean
'Activar el documento de word
Set documW = ActiveDocument
documW.Activate
'Seleccionar todo el texto del DOC (si hubiere)
Selection.WholeStory
Selection.text=ValTEXT 'Hasta aqui todo bien
Activo=ProcesaDOC 'Se encarga de hacer algunas
comparaciones y cambios al texto, y regresa verdadero
si se cumplen.
if activo=true then
3.- ESCRIBIR EL TEXTO DEL DOC EN un archivo TXT nuevo.
'capturar el valor del DOC en la variable
ValTEXT = Selection.Text
n = FreeFile
Open c:\salida\nuevo.txt For Output As #n
'Abre el archivo para recibir los datos.
Write #1, ValTEXT
Close #fl ' Cierra el archivo.
endif
Al finalizar este proceso sucede lo siguiente
TEXTO ORIGINAL DEL ARCHIVO TXT
Linea1-Requisicion: 2564
Linea2-Hora: 10:54
Linea3-Codigo: "VERDE" Renglon: 44 Parte: "USB45"
Linea4-Recogido: 4:25
Linea5-Salida: 6:30
Linea6-Descripciones: No se alcanzo el codigo de calidad
parte "A" 210.
TEXTO DE SALIDA EN EL ARCHIVO NUEVO.TXT
"Linea1-Requisicion: 2564?Linea2-Hora: 10:54?Linea3-Codigo: ""VERDE""?Renglon: 44 Parte: ""USB45""?Linea4-Recogido: 4:25?Linea5-Salida:?6:30?Linea6-Descripciones: No se alcanzo el codigo de calidad parte ""A"" 210.???"
¿COMO HAGO PARA QUE LO GUARDE CORRECTAMENTE SIN USAR DOCUMENTS.SAVE y SIN TENER QUE REPROCESARLO?
Valora esta pregunta
0