Cómo crear MS Word introducción de texto usando VBA para Excel

Si has empezado a utilizar Visual Basic para Aplicaciones (VBA) para Excel, que ya ha visto cómo VBA puede convertir una buena hoja de cálculo en un grande. macros grabadas se pueden automatizar tareas, pero el poder real de VBA está en el Editor de Visual Basic, donde puede escribir los procedimientos que se extienden las capacidades de cálculo de Excel. También puede utilizar VBA para llegar más allá de Excel, en otra aplicación de Office como Word. Dado que ambas aplicaciones utilizan el lenguaje de programación VBA, puede escribir código en Excel para iniciar Word e introducir texto en un documento. Ejecutar el código de ejemplo y, a continuación, utilizar sus habilidades de VBA para modificar el código hasta que se adapte a sus necesidades.

Instrucciones

1 Lanzar Word y abra un nuevo documento. Guarde el documento con un nuevo nombre, tal como "C: \ Testdoc.doc." Anote el nombre elegido, a medida que lo va a utilizar en el código VBA. Cierre el documento y salga de Word.

2 Abra Excel.

3 Iniciar el Editor de Visual Basic. Haga clic en la ficha "Sheet1" en la parte inferior de la pantalla. Seleccione "Ver código".

4 Agregar la biblioteca de objetos que contienen objetos, propiedades y métodos para Word. Seleccionar "Herramientas", seguido de "Referencias" en el menú. Desplazarse por la lista hasta encontrar "Microsoft Word xx.x objeto de biblioteca" (xx, x representa la versión;. Por ejemplo, si está utilizando Office 2007, busque la Biblioteca de objetos de Microsoft Word 12.0) Marque la casilla de verificación, y haga clic en "Aceptar".

5 Insertar un módulo para mantener su código mediante la opción "Insertar" seguido de "módulo" en el menú.

6 Comenzar un subprocedimiento. Escriba lo siguiente en el nuevo módulo:

Sub Word_Text ()

Presione ENTRAR." Excel genera automáticamente una declaración "End Sub".

7 Declarar variables. Escriba el siguiente código entre las declaraciones "End Sub" "Sub" y:

Dim wdApp como objeto, como objeto wdDoc

Dim WordFile como secuencia, como secuencia enterstring

8 Establecer el valor de la variable "WordFile", especifica el documento de prueba que creó en Word. Si más adelante desea utilizar un documento de Word diferente, cambiar el nombre de archivo en esta línea de código. Escriba lo siguiente:

WordFile = "c: \ Testdoc.doc"

9 Establecer el valor de la "enterstring" variable en el texto que desea añadir en la parte superior del documento de Word. Escriba lo siguiente:

enterstring = "Añadir este texto en el archivo."

10 Añadir una rutina de tratamiento de errores para comprobar si la palabra ya se está ejecutando. Si no es así, abra una nueva sesión de Word. Escriba lo siguiente:

On Error Resume Next

Establecer wdApp = GetObject ( "Word.Application")

Si wdApp es nada Entonces

Establecer wdApp = CreateObject ( "Word.Application")

Terminara si

On Error GoTo 0

11 Añadir un código para abrir el documento de Word. Escriba lo siguiente:

wdDoc set = GetObject (WordFile)

12 Añadir un código para hacer visible la aplicación Word, y luego mover el punto de inserción al principio del documento. Escriba lo siguiente:

con wdApp

.Visible = True

Unidad .Selection.HomeKey: = wdStory, Extend: = wdMove

Terminar con

13 Añadir un código para escribir el texto de ejemplo en "enterstring" al documento de Word seguido de un retorno de carro. Escriba lo siguiente:

con wdDoc.Content

enterstring .InsertAfter

.InsertParagraphAfter

Terminar con

14 Añadir un código para vaciar las variables de objeto con el fin de liberar la memoria utilizada por la aplicación. Escriba lo siguiente:

Establecer wdDoc = Nada

Establecer wdApp = Nada

Deje la instrucción "End Sub" en su lugar.

15 Ejecutar el código. Seleccione "Ejecutar" y luego "Ejecutar Sub / UserForm" en el menú.

dieciséis Ver el documento de Word de ejemplo que creó en el paso 1. En la parte superior del documento, debería ver una línea que diga "Añadir este texto para el archivo."

Consejos y advertencias

• Si recibe un mensaje de error, buscar los errores de introducción de texto en el código, tales como comillas adicionales u omitidos, espacios y períodos.
• Una lectura mensaje de error, "Nombre de archivo o el nombre de la clase que no se encuentra durante la operación de automatización" significa que hubo un problema para encontrar el documento de Word prueba. Compruebe el valor asignado a "WordFile", incluyendo el nombre del archivo y la ruta.
• Si no ve el texto de la muestra en el documento de Word, o se encuentra con otro error, intenta recorrer el código. Coloque el cursor al principio del módulo. Pulse la tecla "F8" repetidamente para ejecutar una línea de código a la vez, observando los resultados.