Macrosexcelword

Sub AbrirArchivoWord()
Dim Archivo As Object
Set Archivo = CreateObject("Word.Application")
Archivo.Visible = True
Archivo.Documents.Open Filename:="D:\capacitacion excel\contratos.doc"
Set Archivo = Nothing
End Sub
Dim wDoc As Object
Dim wApp As Object

Set wApp = GetWord
Set wDoc = wApp.Documents.Open("archivo.doc")
....

Private Function GetWord() As Object
On Error GoToCreate
Set GetWord = GetObject(, "Word.Application")
Exit Function
Create:
Set GetWord = CreateObject("Word.Application")
End Function

OL97: Ejemplos de programación para hacer referencia a elementos y carpetas
Haga clic aquí para ver en paralelo el artículo de traducción automática y el artículo original en inglés.
Advertencia: Artículo de Traducción Automática, vea la exención deresponsabilidad.
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
Ver los productos a los que se aplica este artículo
-------------------------------------------------
En esta página
* Resumen
* Más información
* Hacer referencia a carpetas existentes
* Crear y hacer referencia a nuevas carpetas
* Crear yhacer referencia a nuevos elementos
* Hacer referencia a elementos existentes
* Referencias
<style>#tocTitle, #tocDiv{display: none;}</style>
Expandir todo | Contraer todo
-------------------------------------------------
Resumen
-------------------------------------------------
El modelo de objetos de Microsoft Outlook 97 suele utilizarse para tener acceso...
Elmodelo de objetos de Microsoft Outlook 97 suele utilizarse para tener acceso a diversos tipos de elementos en carpetas. Este artículo proporciona una introducción a los diversos métodos, propiedades y objetos que pueden utilizarse para hacer referencia a elementos y carpetas de Outlook.

En este artículo se resumen los siguientes temas:
Hacer referencia a carpetas existentes
* MétodoGetDefaultFolder
* Objeto Folders
* Parent (propiedad)
* Método GetSharedDefaultFolder
* Método GetFolderFromID
Crear y hacer referencia a nuevas carpetas
* Método Folders.Add
Crear y hacer referencia a nuevos elementos >
* CreateItem (método)
* Método Items.Add
* Método CreateItemFromTemplate
Hacer referencia a elementos existentes
* Usar Items (i) o ForEach... Next
* Usar Items("Éste es el asunto")
* Método Find
* Restringir el método
Volver al principio
-------------------------------------------------
Más información
-------------------------------------------------
Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente...
Microsoft proporciona ejemplos de programación 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. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y las herramientas utilizadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft puedenexplicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos a necesidades específicas.
Si tiene poca experiencia en programación, desea póngase en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:Microsoft certificado Partners - https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Servicios de asesoramiento de Microsoft - http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Para obtener más información acerca de las opciones de soporte técnico que están disponibles y cómo ponerse en contacto con...