Clase Application (Word VBA)

La clase Application representa la aplicación Microsoft Word.

El principal procedimiento de la clase Application es Activate

Set

Para usar una variable de clase Application, primero debe ser instanciado, por ejemplo

Dim app as Application
Set app = Application.KeyBindings

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Print with its procedures ActivePrinter, BackgroundPrintingStatus, PrintOut y PrintPreview
Name with its procedures AutoCaptions, Caption, LookupNameProperties, Name y UserName
DDE with its procedures DDEExecute, DDEInitiate, DDEPoke, DDERequest, DDETerminate y DDETerminateAll
Format with its procedures DefaultSaveFormat, FontNames, GetDefaultTheme, LandscapeFontNames, PortraitFontNames, RestrictLinkedStyles, SetDefaultTheme, ShowStylePreviews, SmartArtColors, SmartArtLayouts, SmartArtQuickStyles, SubstituteFont, UsableHeight, UsableWidth y Visible
Display/Show with its procedures DisplayAlerts, DisplayAutoCompleteTips, DisplayDocumentInformationPanel, DisplayRecentFiles, DisplayScreenTips, DisplayScrollBars, ShowAnimation, ShowClipboard, ShowMe, ShowStartupDialog y ShowVisualBasicEditor

Métodos

Este es el método principal de la clase Application

Activate - Activa el objeto especificado.

Application.Activate

Otros Métodos

AddAddress - Agrega una entrada a la Libreta de direcciones.

Dim strTagID() As String: strTagID() = 
Dim strValue() As String: strValue() =  
Application.AddAddress TagID:=strTagID(), Value:=strValue()

BuildKeyCode - Devuelve un número único para la combinación de clave especificada.

Dim lngBuildKeyCode As Long
lngBuildKeyCode = BuildKeyCode(Arg1:=wdKey0)

CheckSpelling - Comprueba si hay errores ortográficos en una cadena.

Dim strWord As String: strWord =  
Dim booCheckSpelling As Boolean
booCheckSpelling = CheckSpelling(Word:=strWord)

CompareDocuments - Compara dos documentos y devuelve un objeto Document que representa el documento que contiene las diferencias entre los dos documentos, marcadas con marcas de revisión.

Dim docCompareDocuments As Document
Set docCompareDocuments = Application.CompareDocuments(OriginalDocument:=, RevisedDocument:=)

GetAddress - Devuelve una dirección de la libreta de direcciones predeterminada.

Dim strGetAddress As String
strGetAddress = Application.GetAddress()

GetSpellingSuggestions - Devuelve una colección SpellingSuggestions que representa las palabras sugeridas como términos de reemplazo de una palabra determinada.

Dim strWord As String: strWord =  
Dim sssGetSpellingSuggestions As SpellingSuggestions
Set sssGetSpellingSuggestions = GetSpellingSuggestions(Word:=strWord)

KeyString - Devuelve la cadena de la combinación de las teclas especificadas; por ejemplo, CTRL+MAYÚS+A.

Dim lngKeyCode As Long: lngKeyCode =  
Dim strKeyString As String
strKeyString = KeyString(KeyCode:=lngKeyCode)

MergeDocuments - Compara dos documentos y devuelve un objeto Document que representa el documento que contiene las diferencias entre los dos documentos, marcadas con marcas de revisión.

Dim docMergeDocuments As Document
Set docMergeDocuments = Application.MergeDocuments(OriginalDocument:=, RevisedDocument:=)

Move - Coloca una ventana de tareas o la ventana del documento activo.

Dim lngLeft As Long: lngLeft = 
Dim lngTop As Long: lngTop =  
Application.Move Left:=lngLeft, Top:=lngTop

OnTime - Inicia un temporizador en segundo plano que ejecuta una macro a una hora especificada.

Dim dtWhen As Date: dtWhen = 
Dim strName As String: strName =  
Application.OnTime When:=dtWhen, Name:=strName

OrganizerCopy - Copia el elemento de Autotexto, la barra de herramientas, el estilo o la macro especificados desde el documento o la plantilla de origen al documento o plantilla de destino.

Dim strSource As String: strSource = 
Dim strDestination As String: strDestination = 
Dim strName As String: strName =  
Application.OrganizerCopy Source:=strSource, Destination:=strDestination, Name:=strName, Object:=wdOrganizerObjectAutoText

OrganizerDelete - Elimina de un documento o una plantilla el estilo, el elemento de Autotexto, la barra de herramientas o la macro seleccionados.

Dim strSource As String: strSource = 
Dim strName As String: strName =  
Application.OrganizerDelete Source:=strSource, Name:=strName, Object:=wdOrganizerObjectAutoText

PixelsToPoints - Convierte una medida de píxeles a puntos.

Dim sngPixelsToPoints As Single
sngPixelsToPoints = PixelsToPoints(Pixels:=)

PointsToPixels - Convierte una medida de puntos a píxeles.

Dim sngPointsToPixels As Single
sngPointsToPixels = PointsToPixels(Points:=)

Quit - Sale de Microsoft Word y, opcionalmente, guarda o distribuye los documentos abiertos.

Application.Quit

Resize - Cambia el tamaño de la ventana de aplicación de Word o la ventana de la tarea especificada.

Dim lngWidth As Long: lngWidth = 
Dim lngHeight As Long: lngHeight =  
Application.Resize Width:=lngWidth, Height:=lngHeight

Run - Ejecuta una macro de Visual Basic.

Dim strMacroName As String: strMacroName =  
Application.Run MacroName:=strMacroName

Propiedades

ActiveDocument Devuelve un objeto Document que representa el documento activo (el documento con el enfoque).

Dim docActiveDocument As Document
Set docActiveDocument = ActiveDocument

ActiveEncryptionSession Devuelve un Long que representa la sesión de cifrado asociada al documento activo.

Dim lngActiveEncryptionSession As Long
lngActiveEncryptionSession = Application.ActiveEncryptionSession

ActiveProtectedViewWindow Devuelve un objeto ProtectedViewWindow que representa la ventana de vista protegida activa.

Dim pvwActiveProtectedViewWindow As ProtectedViewWindow
Set pvwActiveProtectedViewWindow = ActiveProtectedViewWindow

ActiveWindow Devuelve un objeto Window que representa la ventana activa (la ventana con el foco).

Dim wndActiveWindow As Window
Set wndActiveWindow = ActiveWindow

AddIns Devuelve una colección AddIns que representa todos los complementos disponibles, independientemente de si están cargados en ese momento.

Dim aisAddIns As AddIns
Set aisAddIns = AddIns

ArbitraryXMLSupportAvailable Devuelve un valor Boolean que indica si Microsoft Word acepta esquemas XML personalizados.

Dim booArbitraryXMLSupportAvailable As Boolean
booArbitraryXMLSupportAvailable = Application.ArbitraryXMLSupportAvailable

Assistance Devuelve un objeto Assistance que representa el visor de ayuda de Microsoft Office.

Dim iaeAssistance As Office.IAssistance
Set iaeAssistance = Application.Assistance

AutoCorrect Devuelve un objeto AutoCorrect que contiene las opciones, entradas y excepciones actuales de Autocorrección.

Dim actAutoCorrect As AutoCorrect
Set actAutoCorrect = AutoCorrect

AutoCorrectEmail Devuelve un objeto AutoCorrect que representa las correcciones automáticas realizadas en los mensajes de correo electrónico.

Dim actAutoCorrectEmail As AutoCorrect
Set actAutoCorrectEmail = AutoCorrectEmail

AutomationSecurity Devuelve o establece una constante MsoAutomationSecurity que representa la configuración de seguridad que utiliza Microsoft Word al abrir archivos mediante programación.

Application.AutomationSecurity =

BackgroundSavingStatus Devuelve que el número de archivos en la cola que se guarde en segundo plano.

Dim lngBackgroundSavingStatus As Long
lngBackgroundSavingStatus = Application.BackgroundSavingStatus

Bibliography Devuelve un objeto Bibliography que representa las fuentes de referencias bibliográficas almacenadas en Microsoft Word.

Dim bblBibliography As Bibliography
Set bblBibliography = Application.Bibliography

BrowseExtraFileTypes Establezca esta propiedad en "texto/html" para que los archivos HTML con hipervínculos puedan abrirse en Microsoft Word en lugar de en el explorador de Internet predeterminado.

Application.BrowseExtraFileTypes =

Browser Devuelve un objeto Browser que representa la herramienta Seleccionar objeto de búsqueda en la barra de desplazamiento vertical.

Dim brwBrowser As Browser
Set brwBrowser = Application.Browser

Build Devuelve el número de versión y de revisión de la aplicación de Word.

Dim strBuild As String
strBuild = Application.Build

CapsLock True si está activada la tecla BLOQ MAYÚS.

Dim booCapsLock As Boolean
booCapsLock = Application.CapsLock

CaptionLabels Devuelve una colección CaptionLabels que representa todas las etiquetas de título disponibles.

Dim clsCaptionLabels As CaptionLabels
Set clsCaptionLabels = CaptionLabels

ChartDataPointTrack Devuelve o establece un valor de tipo Boolean que especifica si los gráficos usan el seguimiento de punto de datos de referencia de celda.

Application.ChartDataPointTrack = True

CheckLanguage True si Microsoft Word detecta automáticamente el idioma está utilizando mientras se escribe.

Application.CheckLanguage = True

COMAddIns Devuelve una referencia a la colección COMAddIns que representa todos los complementos del modelo de objetos componentes (COM) cargados actualmente en Microsoft Word.

Dim comsCOMAddIns As Office.COMAddIns
Set comsCOMAddIns = Application.COMAddIns

CommandBars Devuelve una colección CommandBars que representa la barra de menús y todas las barras de herramientas de Microsoft Word.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = CommandBars

CustomDictionaries Devuelve un objeto dictionaries que representa la colección de los diccionarios personalizados activos.

Dim dctsCustomDictionaries As Dictionaries
Set dctsCustomDictionaries = CustomDictionaries

CustomizationContext Devuelve o establece un objeto Template o Document que representa la plantilla o el documento en el que se almacenan los cambios en las barras de menús, barras de herramientas y combinaciones de teclas.

CustomizationContext =

DefaultLegalBlackline True para que Microsoft Word para comparar y combinar documentos con la opción estilo jurídico en el cuadro de diálogo comparar y combinar documentos.

Application.DefaultLegalBlackline = True

DefaultTableSeparator Devuelve o establece el carácter utilizado para separar texto en celdas cuando éste se convierte en tabla.

Application.DefaultTableSeparator =

Dialogs Devuelve una colección Dialogs que representa todos los cuadros de diálogo integrados en Word.

Dim dlgsDialogs As Dialogs
Set dlgsDialogs = Dialogs

Documents Devuelve una colección Documents que representa todos los documentos abiertos.

Dim docsDocuments As Documents
Set docsDocuments = Documents

DontResetInsertionPointProperties Devuelve o establece un valor Boolean que representa si Microsoft Word conserva las propiedades de formato del texto en esa posición del punto de inserción después de ejecutar otro código.

Application.DontResetInsertionPointProperties = True

EmailOptions Devuelve un objeto EmailOptions que representa las preferencias globales para la creación de correo electrónico.

Dim eosEmailOptions As EmailOptions
Set eosEmailOptions = Application.EmailOptions

EmailTemplate Devuelve o establece una cadena que representa la plantilla de documento que se va a usar al enviar mensajes de correo electrónico.

Application.EmailTemplate =

EnableCancelKey Devuelve o establece la forma en la que Word trata las interrupciones del usuario efectuadas con CTRL+INTER.

Application.EnableCancelKey = wdCancelDisabled

FeatureInstall Devuelve o establece la forma en que Microsoft Word controla las llamadas a métodos y propiedades que requieran funciones no instaladas aún.

Application.FeatureInstall =

FileConverters Devuelve una colección FileConverters que representa todos los convertidores de archivos disponibles para Microsoft Word.

Dim fcsFileConverters As FileConverters
Set fcsFileConverters = FileConverters

FileDialog Devuelve un objeto FileDialog que representa una instancia única de un cuadro de diálogo de archivo.

Dim fdgFileDialog As Office.FileDialog
Set fdgFileDialog = Application.FileDialog(FileDialogType:=msoFileDialogOpen)

FileValidation Devuelve o establece la forma en que Word valida los archivos antes de abrirlos.

Application.FileValidation =

FindKey Devuelve un objeto KeyBinding que representa la combinación de teclas especificada.

Dim lngKeyCode As Long: lngKeyCode =  
Dim kbgFindKey As KeyBinding
Set kbgFindKey = FindKey(KeyCode:=lngKeyCode)

FocusInMailHeader True si el punto de inserción se encuentra en un campo de encabezado de correo electrónico (el campo para:, por ejemplo).

Dim booFocusInMailHeader As Boolean
booFocusInMailHeader = Application.FocusInMailHeader

HangulHanjaDictionaries Devuelve una colección HangulHanjaConversionDictionaries que representa todos los diccionarios de conversión personalizados activos.

Dim hhcsHangulHanjaDictionaries As HangulHanjaConversionDictionaries
Set hhcsHangulHanjaDictionaries = HangulHanjaDictionaries

Height Devuelve o establece el alto de la ventana del documento activo en píxeles.

Application.Height =

International Devuelve información sobre la configuración internacional y el país o región actual.

Dim varInternational As Variant
varInternational = Application.International(Index:=wd24HourClock)

IsObjectValid True si la variable especificada que hace referencia a un objeto es válida.

Dim booIsObjectValid As Boolean
booIsObjectValid = IsObjectValid(Object:=True)

IsSandboxed True si la ventana de la aplicación es una ventana de vista protegida.

Dim booIsSandboxed As Boolean
booIsSandboxed = IsSandboxed

KeyBindings Devuelve una colección KeyBindings que representa las asignaciones de teclas personalizadas, que incluyen un código de tecla, una categoría de teclas y un comando.

Dim kbsKeyBindings As KeyBindings
Set kbsKeyBindings = KeyBindings

KeysBoundTo Devuelve un objeto KeysBoundTo que representa todas las combinaciones de teclas asignadas al elemento especificado.

Dim strCommand As String: strCommand =  
Dim kbtKeysBoundTo As KeysBoundTo
Set kbtKeysBoundTo = KeysBoundTo(KeyCategory:=wdKeyCategoryAutoText, Command:=strCommand)

Language Devuelve una constante MsoLanguageID que representa el idioma seleccionado para la interfaz de usuario de Microsoft Word.

Dim mliLanguage As Office.MsoLanguageID
mliLanguage = Application.Language

Languages Devuelve una colección Languages que representa los idiomas de revisión que aparecen en el cuadro de diálogo idioma .

Dim lngsLanguages As Languages
Set lngsLanguages = Languages

LanguageSettings Devuelve un objeto LanguageSettings , que contiene información sobre la configuración de idioma en Microsoft Word.

Dim lssLanguageSettings As Office.LanguageSettings
Set lssLanguageSettings = LanguageSettings

Left Devuelve o establece un Long que representa la posición horizontal del documento activo, medido en puntos.

Application.Left =

ListGalleries Devuelve una colección ListGalleries que representa las tres galerías de plantillas de lista.

Dim lgsListGalleries As ListGalleries
Set lgsListGalleries = ListGalleries

MacroContainer Devuelve un objeto Template o Document que representa la plantilla o el documento en el que se almacena el módulo que contiene el procedimiento en ejecución.

Dim docMacroContainer As Document
Set docMacroContainer = MacroContainer

MailingLabel Devuelve un objeto MailingLabel que representa una etiqueta postal.

Dim mllMailingLabel As MailingLabel
Set mllMailingLabel = Application.MailingLabel

MailMessage Devuelve un objeto MailMessage que representa el mensaje de correo electrónico activo.

Dim mmeMailMessage As MailMessage
Set mmeMailMessage = Application.MailMessage

MailSystem Devuelve los sistemas de correo instalados en el equipo host.

Dim wmsMailSystem As WdMailSystem
wmsMailSystem = Application.MailSystem

MAPIAvailable True si MAPI está instalado.

Dim booMAPIAvailable As Boolean
booMAPIAvailable = Application.MAPIAvailable

MathCoprocessorAvailable True si un coprocesador matemático está instalado y disponible para Microsoft Word.

Dim booMathCoprocessorAvailable As Boolean
booMathCoprocessorAvailable = Application.MathCoprocessorAvailable

MouseAvailable True si hay un mouse disponible para el sistema.

Dim booMouseAvailable As Boolean
booMouseAvailable = Application.MouseAvailable

NewDocument

Dim nfeNewDocument As Office.NewFile
Set nfeNewDocument = Application.NewDocument

NormalTemplate Devuelve un objeto Template que representa la plantilla normal.

Dim tmpNormalTemplate As Template
Set tmpNormalTemplate = NormalTemplate

NumLock Devuelve el estado de la tecla BLOQ NUM.

Dim booNumLock As Boolean
booNumLock = Application.NumLock

OMathAutoCorrect Devuelve un objeto OMathAutoCorrect que representa las entradas de Autocorrección de las ecuaciones.

Dim omaOMathAutoCorrect As OMathAutoCorrect
Set omaOMathAutoCorrect = Application.OMathAutoCorrect

OpenAttachmentsInFullScreen Devuelve o establece un valor Boolean que indica si Microsoft Word abre los datos adjuntos de correo electrónico en modo lectura.

Application.OpenAttachmentsInFullScreen = True

Options Devuelve un objeto Options que representa la configuración de la aplicación en Microsoft Word.

Dim optsOptions As Options
Set optsOptions = Options

Parent Devuelve un objeto Object que representa el objeto primario del objeto Application especificado.

Dim objParent As Object
Set objParent = Parent

Path Devuelve el disco o la ruta de acceso Web al objeto especificado.

Dim strPath As String
strPath = Application.Path

PathSeparator Devuelve el carácter utilizado para separar los nombres de carpeta.

Dim strPathSeparator As String
strPathSeparator = Application.PathSeparator

PickerDialog Devuelve un objeto PickerDialog que proporciona la funcionalidad para seleccionar personas o datos en un cuadro de diálogo.

Dim pdgPickerDialog As Office.PickerDialog
Set pdgPickerDialog = Application.PickerDialog

ProtectedViewWindows Devuelve una colección ProtectedViewWindows que representa todas las ventanas de vista protegida.

Dim pvwsProtectedViewWindows As ProtectedViewWindows
Set pvwsProtectedViewWindows = ProtectedViewWindows

RecentFiles Devuelve una colección RecentFiles que representa los archivos a los que se ha tenido acceso más recientemente.

Dim rfsRecentFiles As RecentFiles
Set rfsRecentFiles = RecentFiles

ScreenUpdating True si la actualización de pantallas está activada.

Application.ScreenUpdating = True

Selection Devuelve el objeto Selection que representa un intervalo seleccionado o el punto de inserción.

Dim slcSelection As Selection
Set slcSelection = Selection

SpecialMode True si Microsoft Word está en un modo especial (por ejemplo, modo de CopyText o modo de MoveText).

Dim booSpecialMode As Boolean
booSpecialMode = Application.SpecialMode

StartupPath Devuelve o establece la ruta de acceso completa de la carpeta de inicio, sin incluir el separador final.

Application.StartupPath =

StatusBar Esta propiedad ya no se admite en Visual Basic para Aplicaciones de Microsoft Word.

StatusBar =

SynonymInfo Devuelve un objeto SynonymInfo que contiene información del Diccionario de sinónimos acerca de sinónimos, antónimos o palabras o expresiones relacionadas de la palabra o frase especificada.

Dim strWord As String: strWord =  
Dim sioSynonymInfo As SynonymInfo
Set sioSynonymInfo = SynonymInfo(Word:=strWord)

System Devuelve un objeto System , que se puede usar para devolver información relacionada con el sistema y realizar tareas relacionadas con el sistema.

Dim sysSystem As System
Set sysSystem = System

TaskPanes Devuelve una colección TaskPanes que representa las tareas que se realizan con mayor frecuencia en Microsoft Word.

Dim tpsTaskPanes As TaskPanes
Set tpsTaskPanes = Application.TaskPanes

Tasks Devuelve una colección Tasks que representa todas las aplicaciones que se están ejecutando.

Dim tsksTasks As Tasks
Set tsksTasks = Tasks

Templates Devuelve una colección templates que representa todas las plantillas disponibles: las globales y las adjuntas a los documentos abiertos.

Dim tmpsTemplates As Templates
Set tmpsTemplates = Templates

Top Devuelve o establece la posición vertical del documento activo.

Application.Top =

UndoRecord Devuelve un objeto UndoRecord que proporciona un punto de entrada personalizado en la pila de Deshacer.

Dim urdUndoRecord As UndoRecord
Set urdUndoRecord = Application.UndoRecord

UserAddress Devuelve o establece la dirección de correo del usuario.

Application.UserAddress =

UserControl True si el documento o la aplicación se ha creado o abierto por el usuario.

Dim booUserControl As Boolean
booUserControl = Application.UserControl

UserInitials Devuelve o establece las iniciales del usuario, que Microsoft Word utiliza para crear marcas de comentario.

Application.UserInitials =

VBE Devuelve un objeto VBE que representa el editor de Visual Basic.

Dim vbeVBE As VBIDE.VBE
Set vbeVBE = VBE

Version Devuelve el número de versión de Microsoft Word.

Dim strVersion As String
strVersion = Application.Version

Width Devuelve o establece el ancho de la ventana de la aplicación, en puntos.

Application.Width =

Windows Devuelve una colección Windows que representa todas las ventanas de documento.

Dim wndsWindows As Windows
Set wndsWindows = Windows

WindowState Devuelve o establece el estado de la ventana del documento o la ventana de la tarea especificada.

Application.WindowState = wdWindowStateMaximize

XMLNamespaces Devuelve una colección * * * * que representa los esquemas XML en la biblioteca de esquemas.

Dim xmlsXMLNamespaces As XMLNamespaces
Set xmlsXMLNamespaces = Application.XMLNamespaces