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 \\ ¿ Aunque no EOF ( 1 ) entrada # 1 , MyString ( lCntr ) lCntr = lCntr + 1 Loop Close # 1 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 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 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 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 Press "F5 " para ejecutar el código VBA.
4
5
6
7
8