Abrir y cerrar Word para Windows mediante una macro de Excel

Seleccione idioma Seleccione idioma
Id. de artículo: 68510 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
En Microsoft Excel, puede escribir una macro que abra y cierre Microsoft Word para Windows desde Microsoft Excel. Para crear esta macro, haga lo siguiente:

  1. Escribir una macro que creará un número de canal abierto.
  2. Ejecutar Word para Windows.
  3. Cierre Word para Windows.
  4. Cierre el número de canal abierto.
Microsoft proporciona ejemplos de macros con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo pero sin limitarse a las garantías implícitas de comerciabilidad e idoneidad para un propósito determinado. Esta macro se proporciona "tal cual" y Microsoft no garantiza que el código siguiente puede utilizarse en todas las situaciones. Microsoft no admite modificaciones del código para satisfacer los requisitos del cliente.

Macro de ejemplo 1

La siguiente macro de Microsoft Excel de ejemplo, se inicia Word para Windows, se inicia un canal DDE mediante el tema "Sistema" y termina el número de canal abierto:

A1: =EXEC("winword")
A2: =INITIATE("winword","system")
A3: =EXECUTE(A2,"[FileExit(1)]")
A4: =TERMINATE(A2)
A5: =RETURN()

Nota: Esta macro se supone que Word para Windows es la ruta de acceso.

Macro de ejemplo 2

La siguiente macro de Microsoft Excel, se inicia un canal DDE para Microsoft Word para Windows. Además, comprueba si Word para Windows se está ejecutando actualmente. Si es así, en la macro se inicia el canal de la sesión actual. Esto elimina el problema de varias instancias de Word para Windows se abre innecesariamente. Si no se ejecuta la macro en Word para Windows inicia Word.

A1: =SET.NAME("HANDLE",REGISTER("kernel","getModuleHandle","IC"))
A2: =SET.NAME("CALLVALUE",CALL(Handle,"WINWORD.EXE"))
A3: =IF(CallValue=0)
A4: =EXEC("WINWORD.EXE")
A5: =END.IF()
A6: =INITIATE("WINWORD","SYSTEM")
A7: =RETURN()

Nota: esto ocurre también para hojas de macro de Microsoft Excel versión 5.0 cuando utilice macros de la versión 4.0.
Expandir todo | Contraer todo

Referencias

"Referencia de función", versión 4.0, páginas 241 240
"Referencia de función", versión 3.0 para Windows, páginas 130 131
"Funciones y macros," versión 2.0 para Windows, página 307
"Microsoft Word para Windows Technical Reference," página 49

Propiedades

Id. de artículo: 68510 - Última revisión: domingo, 09 de febrero de 2014 - Versión: 1.4
La información de este artículo se refiere a:
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0c
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 4.0 Standard Edition
  • Microsoft Excel 3.0 Standard Edition
  • Microsoft Excel 2.10d
  • Microsoft Excel 2.1 Standard Edition
  • Microsoft Excel 2.01
  • Microsoft Excel 2.0 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt KB68510 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 68510

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com