Cómo crear archivos .rtf en Visual Basic 6

Microsoft desarrolló un formato de archivo en 1987 la etiqueta \ "RTF \" o formato de texto enriquecido. Este formato se utilizó para estandarizar el texto y formato gráfico. La creación de una desarrolladores de formato estándar que pueden pasar datos entre aplicaciones y retener los atributos de formato para artículos tales como párrafos, mesa, tamaño de fuente y características de la fuente. El formato RTF divide los datos en un archivo de datos en datos o de control. Los datos de control se utiliza para formatear los datos y denotan elementos tales como tipo de archivo y al final del archivo.

Instrucciones

1 Crear un archivo de texto con un editor de texto y guardarlo como \ "c: \ test.txt \".

2 Abra Microsoft Visual Basic 6 desde el botón de Windows \ "Inicio \".

3 Seleccionar la opción \ "standard.exe \" en el cuadro desplegable etiquetada \ "Nuevo proyecto \" y haga clic sobre el botón \ "Abrir \".

4 Coloque un botón de la caja de herramientas hasta el formulario. Haga doble clic en el botón para abrir la ventana de código para este botón.

5 Inserte el siguiente código debajo de la línea de código \ "Private Sub Command1_Click () \":

Dim obj As Object

Set obj = CreateObject(\"Word.basic\")
obj.fileopen \"c:\\test.txt\"
obj.FileSaveAs \"c:\\test.rtf\", 6
Set obj = Nothing
MsgBox \"Test.txt has been converted to RTF format\"

6 Pulse el botón \ "F5 \" para ejecutar el código en modo de depuración.

7 Haga clic en el botón con la etiqueta \ "Command1 \" para ejecutar el código para convertir a crear un archivo RTF. Se mostrará una ventana indicando el archivo de texto se ha convertido en RTF.

Consejos y advertencias

• Este código se puede ampliar para crear y guardar el archivo de texto desde dentro de Visual Basic y luego convertir el archivo en formato RTF.