Classe Application (Word VBA)

La classe Application représente l’application Microsoft Word.

La procédure principale de la classe Application est Activate

Set

Pour utiliser une variable de classe Application, elle doit d'abord être instanciée, par exemple

Dim app as Application
Set app = Application.KeyBindings

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

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

Méthodes

C'est la méthode principale de la classe Application

Activate - Active l’objet spécifié.

Application.Activate

Autre Méthodes

AddAddress - Ajoute une entrée au carnet d'adresses.

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

BuildKeyCode - Renvoie un numéro unique qui correspond à la combinaison de touches spécifiée.

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

CheckSpelling - Vérifie si une chaîne fautes d'orthographe.

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

CompareDocuments - Compare deux documents et renvoie un objet document qui représente le document contenant les différences entre les deux documents, marquées à l’aide de marques de révision.

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

GetAddress - Renvoie une adresse extraite du carnet d'adresses par défaut.

Dim strGetAddress As String
strGetAddress = Application.GetAddress()

GetSpellingSuggestions - Renvoie une collection SpellingSuggestions qui représente les mots suggérés en remplacement d’un mot donné.

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

KeyString - Renvoie la combinaison de touches qui correspond aux touches spécifiées (par exemple, CTRL+MAJ+A).

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

MergeDocuments - Compare deux documents et renvoie un objet document qui représente le document contenant les différences entre les deux documents, marquées à l’aide de marques de révision.

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

Move - Positionne une fenêtre de tâche ou la fenêtre de document active.

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

OnTime - Démarre une horloge d'arrière-plan qui exécute une macro à l'heure spécifiée.

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

OrganizerCopy - Copie l'insertion automatique, la barre d'outils, le style ou l'élément de projet de macro spécifié du document ou modèle source vers le document ou modèle cible.

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 - Supprime le style, l'insertion automatique, la barre d'outils ou l'élément de projet de macro spécifié contenu dans un document ou un modèle.

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

PixelsToPoints - Convertit en points une mesure en pixels.

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

PointsToPixels - Convertit en pixels une mesure exprimée en points.

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

Quit - Quitte Microsoft Word et, facultativement, enregistre ou distribue les documents ouverts.

Application.Quit

Resize - Redimensionne la fenêtre de l'application Word ou la fenêtre de la tâche spécifiée.

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

Run - Exécute une macro Visual Basic.

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

Propriétés

ActiveDocument Renvoie un objet Document qui représente le document actif (sélectionné).

Dim docActiveDocument As Document
Set docActiveDocument = ActiveDocument

ActiveEncryptionSession Renvoie un type long qui représente la session de chiffrement associée au document actif.

Dim lngActiveEncryptionSession As Long
lngActiveEncryptionSession = Application.ActiveEncryptionSession

ActiveProtectedViewWindow Renvoie un objet ProtectedViewWindow qui représente la fenêtre en mode protégé active.

Dim pvwActiveProtectedViewWindow As ProtectedViewWindow
Set pvwActiveProtectedViewWindow = ActiveProtectedViewWindow

ActiveWindow Renvoie un objet Window qui représente la fenêtre active (celle qui a le focus).

Dim wndActiveWindow As Window
Set wndActiveWindow = ActiveWindow

AddIns Renvoie une collection AddIns qui représente tous les compléments disponibles, qu’ils soient actuellement chargés ou non.

Dim aisAddIns As AddIns
Set aisAddIns = AddIns

ArbitraryXMLSupportAvailable Renvoie une valeur de type Boolean qui indique si Microsoft Word accepte les schémas XML personnalisés.

Dim booArbitraryXMLSupportAvailable As Boolean
booArbitraryXMLSupportAvailable = Application.ArbitraryXMLSupportAvailable

Assistance Renvoie un objet assistance qui représente la visionneuse de l’aide Microsoft Office.

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

AutoCorrect Renvoie un objet AutoCorrect qui contient les options, entrées et exceptions de correction automatique actuelles.

Dim actAutoCorrect As AutoCorrect
Set actAutoCorrect = AutoCorrect

AutoCorrectEmail Renvoie un objet AutoCorrect qui représente les corrections automatiques apportées aux messages électroniques.

Dim actAutoCorrectEmail As AutoCorrect
Set actAutoCorrectEmail = AutoCorrectEmail

AutomationSecurity Cette propriété renvoie ou définit une constante MsoAutomationSecurity qui représente le paramètre de sécurité que Microsoft Word utilise lors de l’ouverture de fichiers par programme.

Application.AutomationSecurity =

BackgroundSavingStatus Renvoie que le nombre de fichiers de la file d'attente d'être enregistrées en arrière-plan.

Dim lngBackgroundSavingStatus As Long
lngBackgroundSavingStatus = Application.BackgroundSavingStatus

Bibliography Renvoie un objet Bibliography qui représente les sources de référence bibliographiques enregistrées dans Microsoft Word.

Dim bblBibliography As Bibliography
Set bblBibliography = Application.Bibliography

BrowseExtraFileTypes Affectez la valeur « text/html » à cette propriété pour pouvoir ouvrir des fichiers HTML contenant des liens hypertexte dans Microsoft Word (et non dans l'explorateur Internet par défaut).

Application.BrowseExtraFileTypes =

Browser Renvoie un objet Browser qui représente l’outil de sélection de l' objet parcourir dans la barre de défilement verticale.

Dim brwBrowser As Browser
Set brwBrowser = Application.Browser

Build Cette propriété renvoie le numéro de version et de compilation de l'application Word.

Dim strBuild As String
strBuild = Application.Build

CapsLock True si la touche de verrouillage des majuscules est activée.

Dim booCapsLock As Boolean
booCapsLock = Application.CapsLock

CaptionLabels Renvoie une collection CaptionLabels qui représente toutes les étiquettes de légende disponibles.

Dim clsCaptionLabels As CaptionLabels
Set clsCaptionLabels = CaptionLabels

ChartDataPointTrack Cette propriété renvoie ou définit un type Boolean qui spécifie si les graphiques utilisent le suivi du point de données de référence de cellule.

Application.ChartDataPointTrack = True

CheckLanguage La valeur true si Microsoft Word détecte automatiquement la langue que vous utilisez actuellement en cours de frappe.

Application.CheckLanguage = True

COMAddIns Renvoie une référence à la collection COMAddIns qui représente tous les compléments composant COM (Object Model) actuellement chargés dans Microsoft Word.

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

CommandBars Renvoie une collection CommandBars qui représente la barre de menus et toutes les barres d’outils dans Microsoft Word.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = CommandBars

CustomDictionaries Renvoie un objet Dictionaries qui représente la collection de dictionnaires personnels actifs.

Dim dctsCustomDictionaries As Dictionaries
Set dctsCustomDictionaries = CustomDictionaries

CustomizationContext Cette propriété renvoie ou définit un objet template ou document qui représente le modèle ou le document dans lequel sont stockées les modifications apportées aux barres de menus, aux barres d’outils et aux combinaisons de touches.

CustomizationContext =

DefaultLegalBlackline True pour que Microsoft Word de comparaison et fusion de documents à l'aide de l'option format légal dans la boîte de dialogue comparaison et fusion de Documents.

Application.DefaultLegalBlackline = True

DefaultTableSeparator Renvoie ou définit le caractère donné servant à scinder le texte en cellules lors de la conversion d'un texte en tableau.

Application.DefaultTableSeparator =

Dialogs Renvoie une collection Dialogs qui représente toutes les boîtes de dialogue prédéfinies de Word.

Dim dlgsDialogs As Dialogs
Set dlgsDialogs = Dialogs

Documents Renvoie une collection Documents qui représente tous les documents ouverts.

Dim docsDocuments As Documents
Set docsDocuments = Documents

DontResetInsertionPointProperties Cette propriété renvoie ou définit un type Boolean qui indique si Microsoft Word conserve les propriétés de mise en forme du texte à cette position du point d’insertion après l’exécution d’un autre code.

Application.DontResetInsertionPointProperties = True

EmailOptions Renvoie un objet EmailOptions qui représente les préférences globales pour la création de messages électroniques.

Dim eosEmailOptions As EmailOptions
Set eosEmailOptions = Application.EmailOptions

EmailTemplate Cette propriété renvoie ou définit une chaîne qui représente le modèle de document à utiliser lors de l’envoi de messages électroniques.

Application.EmailTemplate =

EnableCancelKey Renvoie ou définit la façon dont Word gère les interruptions utilisateur résultant de l'utilisation de la combinaison de touches Ctrl+Attn.

Application.EnableCancelKey = wdCancelDisabled

FeatureInstall Cette propriété renvoie ou définit la façon dont Microsoft Word gère les appels aux méthodes et propriétés qui nécessitent des fonctionnalités non installées.

Application.FeatureInstall =

FileConverters Renvoie une collection FileConverters qui représente tous les convertisseurs de fichier disponibles dans Microsoft Word.

Dim fcsFileConverters As FileConverters
Set fcsFileConverters = FileConverters

FileDialog Renvoie un objet FileDialog qui représente une instance unique d'une boîte de dialogue Fichier.

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

FileValidation Renvoie ou définit comment Word doit valider les fichiers avant de les ouvrir.

Application.FileValidation =

FindKey Renvoie un objet KeyBinding qui représente la combinaison de touches spécifiée.

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

FocusInMailHeader True si le point d’insertion se trouve dans un champ d’en-tête de message électronique (le champ à:, par exemple).

Dim booFocusInMailHeader As Boolean
booFocusInMailHeader = Application.FocusInMailHeader

HangulHanjaDictionaries Renvoie une collection HangulHanjaConversionDictionaries qui représente l'ensemble des dictionnaires personnels de conversion actifs.

Dim hhcsHangulHanjaDictionaries As HangulHanjaConversionDictionaries
Set hhcsHangulHanjaDictionaries = HangulHanjaDictionaries

Height Cette propriété renvoie ou définit la hauteur de la fenêtre du document actif en pixels.

Application.Height =

International Renvoie des informations relatives aux paramètres de pays/région et internationaux en cours.

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

IsObjectValid True si la variable spécifiée fait référence à un objet est valide.

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

IsSandboxed True si la fenêtre d’application est une fenêtre en mode protégé.

Dim booIsSandboxed As Boolean
booIsSandboxed = IsSandboxed

KeyBindings Renvoie une collection KeyBindings qui représente les affectations de touches personnalisées, qui incluent un code de touche, une catégorie de touches et une commande.

Dim kbsKeyBindings As KeyBindings
Set kbsKeyBindings = KeyBindings

KeysBoundTo Renvoie un objet KeysBoundTo qui représente toutes les combinaisons de touches affectées à l’élément spécifié.

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

Language Renvoie une constante MsoLanguageID qui représente la langue sélectionnée pour l’interface utilisateur de Microsoft Word.

Dim mliLanguage As Office.MsoLanguageID
mliLanguage = Application.Language

Languages Renvoie une collection languages qui représente les langues de vérification linguistique figurant dans la boîte de dialogue langue .

Dim lngsLanguages As Languages
Set lngsLanguages = Languages

LanguageSettings Renvoie un objet LanguageSettings , qui contient des informations sur les paramètres de langue dans Microsoft Word.

Dim lssLanguageSettings As Office.LanguageSettings
Set lssLanguageSettings = LanguageSettings

Left Cette propriété renvoie ou définit un type long qui représente la position horizontale du document actif, exprimée en points.

Application.Left =

ListGalleries Renvoie une collection ListGalleries qui représente les trois galeries de modèles de liste.

Dim lgsListGalleries As ListGalleries
Set lgsListGalleries = ListGalleries

MacroContainer Renvoie un objet template ou document qui représente le modèle ou le document dans lequel est stocké le module qui contient la procédure en cours d’exécution.

Dim docMacroContainer As Document
Set docMacroContainer = MacroContainer

MailingLabel Renvoie un objet MailingLabel qui représente une étiquette de publipostage.

Dim mllMailingLabel As MailingLabel
Set mllMailingLabel = Application.MailingLabel

MailMessage Renvoie un objet MailMessage qui représente le message électronique actif.

Dim mmeMailMessage As MailMessage
Set mmeMailMessage = Application.MailMessage

MailSystem Renvoie le(s) système(s) de messagerie installé(s) sur l'ordinateur hôte.

Dim wmsMailSystem As WdMailSystem
wmsMailSystem = Application.MailSystem

MAPIAvailable True si l'interface MAPI est installée.

Dim booMAPIAvailable As Boolean
booMAPIAvailable = Application.MAPIAvailable

MathCoprocessorAvailable True si un coprocesseur mathématique est installé et disponible dans Microsoft Word.

Dim booMathCoprocessorAvailable As Boolean
booMathCoprocessorAvailable = Application.MathCoprocessorAvailable

MouseAvailable True si une souris est disponible pour le système.

Dim booMouseAvailable As Boolean
booMouseAvailable = Application.MouseAvailable

NewDocument

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

NormalTemplate Renvoie un objet template qui représente le modèle normal.

Dim tmpNormalTemplate As Template
Set tmpNormalTemplate = NormalTemplate

NumLock Renvoie l'état de la touche NUM LOCK.

Dim booNumLock As Boolean
booNumLock = Application.NumLock

OMathAutoCorrect Renvoie un objet OMathAutoCorrect qui représente les entrées de correction automatique pour les équations.

Dim omaOMathAutoCorrect As OMathAutoCorrect
Set omaOMathAutoCorrect = Application.OMathAutoCorrect

OpenAttachmentsInFullScreen Cette propriété renvoie ou définit un type Boolean qui indique si Microsoft Word ouvre les pièces jointes en mode lecture.

Application.OpenAttachmentsInFullScreen = True

Options Renvoie un objet options qui représente les paramètres de l’application dans Microsoft Word.

Dim optsOptions As Options
Set optsOptions = Options

Parent Renvoie un Object qui représente l'objet parent de l'objet Application spécifié.

Dim objParent As Object
Set objParent = Parent

Path Renvoie le disque ou le chemin d'accès au Web à l'objet spécifié.

Dim strPath As String
strPath = Application.Path

PathSeparator Renvoie le caractère utilisé pour séparer les noms de dossiers.

Dim strPathSeparator As String
strPathSeparator = Application.PathSeparator

PickerDialog Renvoie un objet PickerDialog qui fournit la fonctionnalité permettant de sélectionner des personnes ou des données dans une boîte de dialogue.

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

ProtectedViewWindows Renvoie une collection ProtectedViewWindows qui représente toutes les fenêtres en mode protégé.

Dim pvwsProtectedViewWindows As ProtectedViewWindows
Set pvwsProtectedViewWindows = ProtectedViewWindows

RecentFiles Renvoie une collection RecentFiles qui représente les derniers fichiers utilisés.

Dim rfsRecentFiles As RecentFiles
Set rfsRecentFiles = RecentFiles

ScreenUpdating True si la mise à jour de l'écran est activée.

Application.ScreenUpdating = True

Selection Renvoie l'objet Selection qui représente une plage sélectionnée ou le point d'insertion.

Dim slcSelection As Selection
Set slcSelection = Selection

SpecialMode La valeur true si Microsoft Word est en mode spécial (par exemple, en mode de copie ou déplacement de texte).

Dim booSpecialMode As Boolean
booSpecialMode = Application.SpecialMode

StartupPath Cette propriété renvoie ou définit le chemin d'accès complet du dossier Démarrage, à l'exclusion du séparateur final.

Application.StartupPath =

StatusBar Cette propriété n'est plus prise en charge dans Microsoft Word Visual Basic for Applications.

StatusBar =

SynonymInfo Renvoie un objet SynonymInfo qui contient des informations du dictionnaire des synonymes sur les synonymes, les antonymes ou les mots et les expressions apparentés pour la phrase ou le mot spécifié.

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

System Renvoie un objet System qui peut être utilisé pour renvoyer des informations liées au système et effectuer des tâches liées au système.

Dim sysSystem As System
Set sysSystem = System

TaskPanes Renvoie une collection TaskPanes qui représente les tâches les plus courantes effectuées dans Microsoft Word.

Dim tpsTaskPanes As TaskPanes
Set tpsTaskPanes = Application.TaskPanes

Tasks Renvoie une collection Tasks qui représente l’ensemble des applications en cours d’exécution.

Dim tsksTasks As Tasks
Set tsksTasks = Tasks

Templates Renvoie une collection Templates qui représente tous les modèles disponibles (modèles globaux et ceux attachés aux documents ouverts).

Dim tmpsTemplates As Templates
Set tmpsTemplates = Templates

Top Cette propriété renvoie ou définit la position verticale du document actif.

Application.Top =

UndoRecord Renvoie un objet UndoRecord qui fournit un point d'entrée personnalisé dans la pile d'annulation.

Dim urdUndoRecord As UndoRecord
Set urdUndoRecord = Application.UndoRecord

UserAddress Cette propriété renvoie ou définit l'adresse postale de l'utilisateur.

Application.UserAddress =

UserControl True si le document ou l'application a été créée ou ouvert par l'utilisateur.

Dim booUserControl As Boolean
booUserControl = Application.UserControl

UserInitials Cette propriété renvoie ou définit les initiales de l'utilisateur, Microsoft Word utilise pour construire les marques de commentaire.

Application.UserInitials =

VBE Renvoie un objet VBE qui représente Visual Basic Editor.

Dim vbeVBE As VBIDE.VBE
Set vbeVBE = VBE

Version Renvoie le numéro de version de Microsoft Word.

Dim strVersion As String
strVersion = Application.Version

Width Cette propriété renvoie ou définit la largeur de la fenêtre d'application, en points.

Application.Width =

Windows Renvoie une collection Windows qui représente toutes les fenêtres de document.

Dim wndsWindows As Windows
Set wndsWindows = Windows

WindowState Renvoie ou définit l'état de la fenêtre de document ou de tâche spécifiée.

Application.WindowState = wdWindowStateMaximize

XMLNamespaces Renvoie une collection * * * * qui représente les schémas XML dans la bibliothèque de schémas.

Dim xmlsXMLNamespaces As XMLNamespaces
Set xmlsXMLNamespaces = Application.XMLNamespaces