Cómo crear MS Word Introducción de texto Uso de VBA para Excel

Si has empezado con Visual Basic para Aplicaciones ( VBA) para Excel , ya has visto cómo VBA puede convertir una buena hoja de cálculo en un grande. Macros grabadas pueden automatizar tareas, pero el verdadero poder de VBA está en el Editor de Visual Basic , donde se puede escribir procedimientos que extienden las capacidades de Excel. También puede utilizar VBA para llegar fuera 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 y escriba el texto en un documento. Ejecutar el código de ejemplo , y luego usar sus habilidades de VBA para modificar el código hasta que se adapte a sus necesidades. Instrucciones
1

lanzamiento Word y abra un nuevo documento. Guarde el documento con un nuevo nombre , por ejemplo " C : \\. Testdoc.doc " Anote el nombre elegido , ya que va a utilizar en el código VBA. Cierre el documento y salga de Word.
2

Abrir Excel.
3

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

Añada la biblioteca de objetos que contiene objetos, propiedades y métodos para Word. Seleccione "Herramientas ", seguido de "Referencias " en el menú . Desplácese por la lista hasta encontrar " Microsoft Word xx.x biblioteca de objetos " ( xx, x representa la versión , . , Por ejemplo , si está utilizando Office 2007, busque la palabra 12.0 Object Library Microsoft ) 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 " y luego " módulo " en el menú .
6

Comience un subprocedimiento . Escriba lo siguiente en el nuevo módulo: Sub

Word_Text ()

Pulse " Enter". Excel genera automáticamente un "Sub End" declaración.
7

Declare variables. Escriba el siguiente código entre el "Sub " y declaraciones " End Sub " :

wdApp Dim As Object , wdDoc As Object

WordFile Dim As String , enterstring As String
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 , cambie el nombre del 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 desee agregar en la parte superior el documento de Word . Escriba lo siguiente:

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

Añadir una rutina de control de errores para comprobar si Word se está ejecutando. Si no es así , abra una nueva instancia de Word. Escriba lo siguiente:

On Error Resume Next

Set wdApp = GetObject ( , " Word.Application " )

Si wdApp es nada entonces

Set wdApp = CreateObject ( " Word.Application " )

End If

On Error GoTo 0
11

Agregar código para abrir el documento de Word . Escriba lo siguiente:

Set wdDoc = GetObject ( WordFile )
12

Agregar código para que la aplicación Word visible, y luego mover el punto de inserción al principio del documento . Escriba lo siguiente:

wdApp

Visible = True

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

Extremo con
13

Agregar código para escribir el texto de ejemplo en " enterstring " al documento de Word seguida de un retorno de carro . Escriba lo siguiente : . .

WdDoc.Content

InsertAfter enterstring

InsertParagraphAfter

End con fotos de 14

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

wdDoc Set = Nothing

wdApp Set = Nothing

Deja el "End Sub" declaración en su sitio
15

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

Ver el documento 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 en el archivo . "