Cómo copiar el contenido del archivo en Word y viceversa, usando VBA

Uno de los primeros pasos para el aprendizaje de la programación de computadoras es aprender a leer de un archivo y añadir el contenido a otro, como un documento de Word. VBA es un lenguaje de programación que se pueden utilizar en aplicaciones de Microsoft Office para automatizar procesos tales como la copia de datos entre archivos. En VBA, puede utilizar objetos de Office para abrir documentos de Word u otras aplicaciones de Office, lo que le permite acceder a programas externos y manipular datos adicionales.

Instrucciones

1 Lanzamiento de Microsoft Office Word, haga clic en la pestaña "revelado" en la cinta y haga clic en "Visual Basic" para iniciar la ventana del editor de VBA. Haga clic en el menú "Insertar" y haga clic en "Módulo" para insertar un nuevo módulo de código. Crear un nuevo procedimiento de substitución:

copyFileContents Private Sub ()

2 Agregue el código siguiente para crear los objetos de la aplicación de Word y otras variables:

Dim wrdApp Como Word.Application

wrdDoc tenue Como Word.Document

Dim i, r As Integer

Dim LCntr como número entero

3 Añadir un código para abrir el archivo de texto y copiar todo su contenido a una matriz de cadenas:

Dim MiCadena (10) As String

Abre "C \ <nombre de fichero> .txt" For Input As # 1

Aunque no hacer EOF (1)

Input #1, MyString(lCntr)

LCntr = 1 + LCntr

Lazo

Close # 1

4 Copia y pega el código siguiente para agregar contenido de la matriz al documento de Word actual:

Para i = 0 Para LCntr - 1

Selection.TypeParagraph

Selection.TypeText texto: = MyString (i)

MyString (i - 0) = ""

Siguiente yo

5 Agregue el código siguiente para agregar algunos datos al documento de Word actual:

Selection.TypeParagraph

Selection.TypeText texto: = "Estos datos son en Word"

Selection.Expand wdLine

6 Escriba el siguiente código para abrir el archivo de texto y añadir el texto añadido en el paso anterior:

MiArchivo = "C: \ <nombre de archivo> .txt"

fn = FreeFile ()

MiArchivo abierta para salida Como fn

Escribe #fn, Selection.Text

Cerrar #fn

7 Agregue el código siguiente para liberar objetos de palabra de la memoria y poner fin al procedimiento de substitución:

wrdApp.Quit

Establecer wrdDoc = Nada

Establecer wrdApp = Nada

End Sub

8 Pulse la tecla "F5" para ejecutar el código VBA.