Cómo asignar objetos de Excel a Word objetos en VBA

Excel es la hoja de cálculo incluido en la suite Microsoft Office. Word es el procesador de textos de la suite Microsoft Office. VBA (Visual Basic para Aplicaciones ) es un lenguaje de programación utilizado para crear macros , que son pequeños programas que automatizan los procesos de las aplicaciones . A menudo es útil para acceder a los objetos de una hoja de cálculo Excel y soltarlos en objetos de Word sin alternar entre ventanas. El Editor de Visual Basic de Excel permite a los usuarios escribir macros que se comunican entre Excel y Word. Instrucciones
1

lanzamiento Microsoft Word . Haga clic en " Inicio", " Microsoft Office Suite ", " palabra".
2

lanzamiento Microsoft Excel. Haga clic en " Inicio", " Microsoft Office Suite ", " Excel ".
3

Inicie el Editor de Visual Basic . Mientras la ventana de Excel está en la pantalla , pulse la tecla " Alt" y manténgala pulsada , a continuación, pulse "F11 ". El Editor de Visual Basic aparecerá por encima de la hoja de cálculo Excel.
4

Copiar el siguiente código al Editor de Visual Basic . Seleccione el código y haga clic en " Editar ", "Copiar " . Haga clic en el Editor de Visual Basic y luego haga clic en " Editar ", " Pegar".

Sub RangeToDocument ()

' Establecer una referencia a Microsoft Word VBE objetos Library of

WDApp As Word.Application

WDDoc As Word.Document

' Asegúrese de que se ha seleccionado una gama

Si No TypeName (Selección) = "Range" Entonces
< p > MsgBox "Seleccione un rango de hoja de cálculo y vuelva a intentarlo . " ,

vbExclamation , _ " No Rango seleccionado "

demás

'Referencia instancia existente de Word of

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

'Referencia activa documento

Set WDDoc = WDApp.ActiveDocument

' Referencia activa diapositiva

' Copia el rango

Selection.Copy

' Pega el rango

WDApp.Selection.PasteSpecial Enlace: = False , Tipo de datos: = wdPasteRTF , _

Colocación : = wdInLine , DisplayAsIcon : = False

'limpiar

WDDoc Set = Nothing

WDApp Set = Nothing

End If

End Sub
5

Guardar el código. Haga clic en " Archivo", " Guardar como ". Un cuadro de diálogo Guardar se abrirá. Asigne al archivo un nombre como "Excel -word " y luego haga clic en Guardar . El diálogo se seleccionará automáticamente la extensión.
6

Cambiar a la interfaz de Excel manteniendo pulsado "Alt " y luego presionar "F11 ".
7

ejecutar la macro. Seleccione varias celdas de la hoja de cálculo Excel. Haga clic en " Macros ", entonces el nombre que le dio el Macro ( en este caso " excel -word ") . El código se copiarán los datos en las celdas a un objeto de Excel y luego pegarlo en un objeto de Word y lo mostrará en la ventana de Word .
8

Modificar el código. Abra la macro en el Editor de Visual Basic y editar el código para personalizar la macro a sus necesidades específicas.