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

Uno de los primeros pasos para aprender programación de computadoras es aprender cómo leer de un archivo y añadir el contenido a otro , como un documento de Word. VBA es un lenguaje de programación que puede ser utilizado 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 los programas externos y manipular aún más datos. Cosas que necesitará
Microsoft Office
Ver Más instrucciones
1

lanzamiento Microsoft Office Word , haga clic en la pestaña de " revelado" en la cinta de opciones y haga clic en " Visual Basic " para abrir la ventana de editor de VBA. Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo de código . Crear un nuevo procedimiento sub :

copyFileContents Private Sub ( )
2

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

wrdApp As Word.Application

wrdDoc As Word.Document

Dim i, r As Integer

lCntr Dim As Integer
3

Agregue código para abrir el archivo de texto y copiar todos los contenidos de una matriz de cadenas :

MyString Dim ( 10 ) As String

abrir " . C \\ txt" para la entrada Como # 1

¿ Aunque no EOF ( 1 )

entrada # 1 , MyString ( lCntr )

lCntr = lCntr + 1

Loop

Close # 1
4

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

For i = 0 To lCntr - 1

Selection.TypeParagraph

Selection.TypeText Texto: = MiCadena ( i )

MyString ( i - 0 ) = ""

Siguiente I Love
5

agregue el código siguiente para agregar algunos datos del documento de Word actual :

Selection.TypeParagraph

Selection.TypeText texto: = "Esta información está en la Palabra "

Selection.Expand wdLine
6

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

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

fn = FreeFile ()

MiArchivo abierto para la salida como fn

Escribir # fn , Selection.Text

Cerrar # fn
7

Añada el siguiente código para liberar objetos de Word de la memoria y finalizar el procedimiento sub :

wrdApp.Quit

wrdDoc Set = Nothing

wrdApp Set = Nothing End Sub

8

Press "F5 " para ejecutar el código VBA.