Classe Document (Word VBA)

La classe Document représente un modèle de document.

Les procédures principales de la classe Document sont Activate, AddToFavorites, Close, Select, Documents.Add, Documents.Close, Documents.Open et Documents.OpenNoRepairDialog

Set

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

Dim doc as Document
Set doc = ActiveDocument

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Document : Application.ActiveDocument, Application.CompareDocuments, Application.CustomizationContext, Application.MacroContainer, Application.MergeDocuments, Documents.Add, Documents.Item, Documents.Open, Documents.AddBlogDocument, Documents.OpenNoRepairDialog, KeyBinding.Context, KeyBindings.Context, KeysBoundTo.Context, MailingLabel.CreateNewDocument, MailingLabel.CreateNewDocumentByID, Pane.Document, ProtectedViewWindow.Edit, ProtectedViewWindow.Document, Range.Document, RecentFile.Open, Selection.Document, Subdocument.Open, Template.OpenAsDocument, Version.Open, Window.Document, XMLNode.OwnerDocument et Application.Documents

For Each

Voici un exemple de traitement des éléments Document dans une collection

For Each doc In Documents 
     doc.UpdateStyles 
     doc.Close SaveChanges:=wdSaveChanges 
Next doc

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

Review with its procedures AcceptAllRevisions, AcceptAllRevisionsShown, CheckConsistency, CheckGrammar, CheckSpelling, Comments, Compare, DeleteAllComments, DeleteAllCommentsShown, EndReview, Final, GrammarChecked, GrammaticalErrors, RejectAllRevisions, RejectAllRevisionsShown, Revisions, SendForReview, ShowGrammaticalErrors, ShowSpellingErrors, SpellingChecked, SpellingErrors et TrackRevisions
Format with its procedures ActiveTheme, ActiveWritingStyle, ApplyQuickStyleSet2, ApplyTheme, AutoFormat, AutoFormatOverride, ClickAndTypeParagraphStyle, CopyStylesFromTemplate, DefaultTableStyle, DefaultTabStop, DocumentTheme, DoNotEmbedSystemFonts, EmbedTrueTypeFonts, EnforceStyle, FormattingShowClear, FormattingShowFont, FormattingShowNextLevel, FormattingShowNumbering, FormattingShowParagraph, FreezeLayout, GridOriginFromMargin, LockQuickStyleSet, LockTheme, OMathLeftMargin, OMathRightMargin, PageSetup, ReadingLayoutSizeX, ReadingLayoutSizeY, ReadingModeLayoutFrozen, RemoveDocumentInformation, RemoveLockedStyles, RemovePersonalInformation, RemoveTheme, SaveAsQuickStyleSet, SaveFormat, SaveSubsetFonts, SetDefaultTableStyle, Styles, StyleSheets, StyleSortMethod, TrackFormatting, UpdateStyles et UpdateStylesOnOpen
Name with its procedures ActiveThemeDisplayName, FormattingShowUserStyleName, FullName, Name, OMathFontName, OriginalDocumentTitle, RevisedDocumentTitle et SelectContentControlsByTitle
Save with its procedures AutoSaveOn, CanCheckin, CheckIn, CheckInWithVersion, IsInAutosave, Save, SaveAs2, Saved, SaveEncoding et Documents.Save
Close with its procedures Close, ClosePrintPreview et Documents.Close
Code with its procedures CodeName, VBASigned, VBProject et ViewCode
Open with its procedures CompatibilityMode, OpenEncoding, ReadOnly, ReadOnlyRecommended, SetCompatibilityMode, Documents.CanCheckOut, Documents.CheckOut, Documents.Open et Documents.OpenNoRepairDialog
Export with its procedures ExportAsFixedFormat et ExportAsFixedFormat2
Print with its procedures FitToPages, PrintFormsData, PrintOut, PrintPostScriptOverText, PrintPreview et PrintRevisions
Password with its procedures HasPassword, Password, PasswordEncryptionAlgorithm, PasswordEncryptionFileProperties, PasswordEncryptionKeyLength, PasswordEncryptionProvider, ProtectionType, SetPasswordEncryptionOptions et WritePassword

Méthodes

Les méthodes principales de la classe Document sont

Activate - Active le document spécifié pour en faire le document actif.

ActiveDocument.Activate

AddToFavorites - Crée un raccourci vers un document ou un lien hypertexte, et l'ajoute dans le dossier Favoris.

ActiveDocument.AddToFavorites

Select - Sélectionne le contenu du document spécifié.

ActiveDocument.Select

Documents.Add - Renvoie un objet Document qui représente un nouveau document vide ajouté à la collection de documents en cours.

Dim doc As Document
Set doc = Documents.Add()

Autre Méthodes

ComputeStatistics - Renvoie une statistique basée sur le contenu du document spécifié.

Dim lngComputeStatistics As Long
lngComputeStatistics = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticCharacters)

ConvertNumbersToText - Convertit en texte les numéros de liste et les champs LISTNUM dans le document spécifié.

ActiveDocument.ConvertNumbersToText

CountNumberedItems - Renvoie le nombre d’éléments à puces ou numérotés et de champs LISTNUM dans l’objet document spécifié.

Dim lngCountNumberedItems As Long
lngCountNumberedItems = ActiveDocument.CountNumberedItems()

CreateLetterContent - Crée et renvoie un objet LetterContent basé sur les éléments de la lettre spécifiée.

Dim strDateFormat As String: strDateFormat = 
Dim strPageDesign As String: strPageDesign = 
Dim strRecipientName As String: strRecipientName = 
Dim strRecipientAddress As String: strRecipientAddress = 
Dim strSalutation As String: strSalutation = 
Dim strRecipientReference As String: strRecipientReference = 
Dim strMailingInstructions As String: strMailingInstructions = 
Dim strAttentionLine As String: strAttentionLine = 
Dim strSubject As String: strSubject = 
Dim strCCList As String: strCCList = 
Dim strReturnAddress As String: strReturnAddress = 
Dim strSenderName As String: strSenderName = 
Dim strClosing As String: strClosing = 
Dim strSenderCompany As String: strSenderCompany = 
Dim strSenderJobTitle As String: strSenderJobTitle = 
Dim strSenderInitials As String: strSenderInitials = 
Dim lngEnclosureNumber As Long: lngEnclosureNumber =  
Dim lctCreateLetterContent As LetterContent
Set lctCreateLetterContent = ActiveDocument.CreateLetterContent(DateFormat:=strDateFormat, IncludeHeaderFooter:=True, PageDesign:=strPageDesign, LetterStyle:=wdFullBlock, Letterhead:=True, LetterheadLocation:=wdLetterBottom, LetterheadSize:=, RecipientName:=strRecipientName, RecipientAddress:=strRecipientAddress, Salutation:=strSalutation, SalutationType:=wdSalutationBusiness, RecipientReference:=strRecipientReference, MailingInstructions:=strMailingInstructions, AttentionLine:=strAttentionLine, Subject:=strSubject, CCList:=strCCList, ReturnAddress:=strReturnAddress, SenderName:=strSenderName, Closing:=strClosing, SenderCompany:=strSenderCompany, SenderJobTitle:=strSenderJobTitle, SenderInitials:=strSenderInitials, EnclosureNumber:=lngEnclosureNumber)

FollowHyperlink - Cette méthode affiche un document mis en mémoire cache, s'il a déjà été téléchargé.

ActiveDocument.FollowHyperlink

GetCrossReferenceItems - Cette méthode renvoie un tableau d'éléments pouvant être renvoyés en fonction du type de renvoi spécifié.

Dim arrGetCrossReferenceItems() As Variant
arrGetCrossReferenceItems() = ActiveDocument.GetCrossReferenceItems(ReferenceType:=wdRefTypeBookmark)

GoTo - Renvoie un objet Range qui représente la position de début de l’élément spécifié, par exemple une page, un signet ou un champ.

Dim rngGoTo As Range
Set rngGoTo = ActiveDocument.GoTo()

Merge - Fusionne d'un document dans un autre les changements signalés par des marques de révision.

Dim strFileName As String: strFileName =  
ActiveDocument.Merge FileName:=strFileName

Range - Renvoie un objet Range en utilisant les positions de caractère de début et de fin spécifiées.

Dim rng As Range
Set rng = ActiveDocument.Range()

RemoveNumbers - Supprime des numéros ou des puces du document spécifié.

ActiveDocument.RemoveNumbers

RunLetterWizard - Démarre l'Assistant Courrier pour le document spécifié.

ActiveDocument.RunLetterWizard

SelectNodes - Renvoie une collection XMLNodes qui représente tous les nœuds qui correspondent au paramètre XPath dans l'ordre dans lequel ils apparaissent dans le document ou la plage.

Dim strXPath As String: strXPath =  
Dim xmlsSelectNodes As XMLNodes
Set xmlsSelectNodes = ActiveDocument.SelectNodes(XPath:=strXPath)

SelectSingleNode - Renvoie un objet XmlNode qui représente le premier nœud qui correspond au paramètre XPath dans le document spécifié.

Dim strXPath As String: strXPath =  
Dim xmlSelectSingleNode As XMLNode
Set xmlSelectSingleNode = ActiveDocument.SelectSingleNode(XPath:=strXPath)

SendFax - Envoie le document spécifié en tant que télécopie, sans aucune intervention de l'utilisateur.

Dim strAddress As String: strAddress =  
ActiveDocument.SendFax Address:=strAddress

SendFaxOverInternet - Envoie un document à un fournisseur de service de télécopie, qui télécopie le document à un ou plusieurs destinataires spécifiés.

ActiveDocument.SendFaxOverInternet

TransformDocument - Applique le fichier XSLT (Extensible Stylesheet Language Transformation) indiqué au document spécifié et remplace le document par les résultats.

Dim strPath As String: strPath =  
ActiveDocument.TransformDocument Path:=strPath

Propriétés

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

Dim wndActiveWindow As Window
Set wndActiveWindow = ActiveDocument.ActiveWindow

AttachedTemplate Renvoie un objet template qui représente le modèle attaché au document spécifié.

ActiveDocument.AttachedTemplate =

AutoHyphenation True si la coupure de mots automatique est activée pour le document spécifié.

ActiveDocument.AutoHyphenation = True

Background Renvoie un objet Shape qui représente l’image d’arrière-plan pour le document spécifié.

ActiveDocument.Background =

Bibliography Renvoie un objet Bibliography qui représente les références bibliographiques contenues dans un document.

Dim bblBibliography As Bibliography
Set bblBibliography = ActiveDocument.Bibliography

Bookmarks Renvoie une collection Bookmarks qui représente tous les signets d’un document.

Dim bkmsBookmarks As Bookmarks
Set bkmsBookmarks = ActiveDocument.Bookmarks

Broadcast Renvoie un objet de diffusion qui représente une session de diffusion, dans laquelle les présentateurs peuvent présenter des documents Word à des participants distants sur le Web sans que les participants aient besoin d’installer des clients enrichis.

Dim brdBroadcast As Broadcast
Set brdBroadcast = ActiveDocument.Broadcast

BuiltInDocumentProperties Renvoie une collection DocumentProperties qui représente toutes les propriétés de document prédéfinies pour le document spécifié.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = ActiveDocument.BuiltInDocumentProperties

Characters Renvoie une collection Characters qui représente les caractères d’un document.

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveDocument.Characters

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

ActiveDocument.ChartDataPointTrack = True

CoAuthoring Renvoie un objet CoAuthoring qui fournit le point d'entrée dans le modèle objet de création Co.

Dim cagCoAuthoring As CoAuthoring
Set cagCoAuthoring = ActiveDocument.CoAuthoring

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 = ActiveDocument.CommandBars

Compatibility Cette propriété a la valeur True si l'option de compatibilité spécifiée par l'argument Type est activée.

ActiveDocument.Compatibility(Type:=wdAlignTablesRowByRow) = True

ConsecutiveHyphensLimit Cette propriété renvoie ou définit le nombre maximal de lignes consécutives pouvant se terminer par des tirets.

ActiveDocument.ConsecutiveHyphensLimit =

Container Renvoie l'objet qui représente l'application du conteneur du document spécifié.

Dim objContainer As Object
Set objContainer = ActiveDocument.Container

Content Renvoie un objet Range qui représente l’article principal du document.

Dim rngContent As Range
Set rngContent = ActiveDocument.Content

ContentControls Renvoie une collection ContentControls qui représente tous les contrôles de contenu d'un document.

Dim ccsContentControls As ContentControls
Set ccsContentControls = ActiveDocument.ContentControls

ContentTypeProperties Renvoie une collection MetaProperties qui représente les métadonnées stockées dans un document, telles que le nom de l'auteur, l'objet et la société.

Dim mpsContentTypeProperties As Office.MetaProperties
Set mpsContentTypeProperties = ActiveDocument.ContentTypeProperties

CurrentRsid Renvoie un type long qui représente un nombre aléatoire que Word affecte à des modifications dans un document.

Dim lngCurrentRsid As Long
lngCurrentRsid = ActiveDocument.CurrentRsid

CustomDocumentProperties Renvoie une collection DocumentProperties qui représente toutes les propriétés de document personnalisées pour le document spécifié.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = ActiveDocument.CustomDocumentProperties

CustomXMLParts Renvoie une collection CustomXMLParts qui représente le XML personnalisé dans le magasin de données XML.

Dim cxmsCustomXMLParts As Office.CustomXMLParts
Set cxmsCustomXMLParts = ActiveDocument.CustomXMLParts

DefaultTargetFrame Cette propriété renvoie ou définit une chaîne indiquant le cadre du navigateur dans lequel afficher une page Web accessible via un lien hypertexte.

ActiveDocument.DefaultTargetFrame =

DisableFeatures La valeur True désactive toutes les fonctionnalités introduites après la version spécifiée par la propriété DisableFeaturesIntroducedAfter.

ActiveDocument.DisableFeatures = True

DisableFeaturesIntroducedAfter Désactive toutes les fonctionnalités introduites après une version spécifiée de Microsoft Word uniquement dans le document.

ActiveDocument.DisableFeaturesIntroducedAfter = wd70

DocumentInspectors Renvoie une collection DocumentInspectors qui vous permet de rechercher des informations personnelles masquées, telles que le nom de l'auteur, le nom de la société et la date de révision.

Dim disDocumentInspectors As Office.DocumentInspectors
Set disDocumentInspectors = ActiveDocument.DocumentInspectors

DocumentLibraryVersions Renvoie une collection DocumentLibraryVersions qui représente la collection de versions d'un document partagé dont le contrôle de version est activé et qui est stocké dans une bibliothèque de documents sur un serveur.

Dim dlvsDocumentLibraryVersions As Office.DocumentLibraryVersions
Set dlvsDocumentLibraryVersions = ActiveDocument.DocumentLibraryVersions

Email Renvoie un objet email qui contient toutes les propriétés liées au courrier électronique du document actif.

Dim emlEmail As Email
Set emlEmail = ActiveDocument.Email

EmbedLinguisticData True pour que Microsoft Word incorpore la parole et l'écriture manuscrite afin que les données peuvent être converties en paroles ou écriture manuscrite.

ActiveDocument.EmbedLinguisticData = True

EncryptionProvider Renvoie une chaîne spécifiant le nom du fournisseur de chiffrement de l'algorithme que Microsoft Word utilise pour chiffrer les documents.

ActiveDocument.EncryptionProvider =

Endnotes Renvoie une collection Endnotes qui représente toutes les notes de fin d’un document.

Dim endsEndnotes As Endnotes
Set endsEndnotes = ActiveDocument.Endnotes

Envelope Renvoie un objet Envelope qui représente une enveloppe et les fonctionnalités d’enveloppe d’un document.

Dim envEnvelope As Envelope
Set envEnvelope = ActiveDocument.Envelope

FarEastLineBreakLanguage Cette propriété renvoie ou définit un WdFarEastLineBreakLanguageID qui représente la langue d'Asie orientale à utiliser lors de la coupure de lignes de texte dans le document ou le modèle spécifié.

ActiveDocument.FarEastLineBreakLanguage = wdLineBreakJapanese

FarEastLineBreakLevel Cette propriété renvoie ou définit un WdFarEastLineBreakLevel qui représente le niveau de contrôle des coupures de lignes pour le document spécifié.

ActiveDocument.FarEastLineBreakLevel = wdFarEastLineBreakLevelCustom

Fields Renvoie une collection Fields qui représente tous les champs du document.

Dim fldsFields As Fields
Set fldsFields = ActiveDocument.Fields

Footnotes Renvoie une collection Footnotes qui représente toutes les notes de bas de page d’un document.

Dim ftnsFootnotes As Footnotes
Set ftnsFootnotes = ActiveDocument.Footnotes

FormattingShowFilter Définit ou renvoie une constante WdShowFilter qui représente les styles et la mise en forme affichés dans le volet Office styles et mise en forme .

ActiveDocument.FormattingShowFilter = wdShowFilterFormattingAvailable

FormFields Renvoie une collection FormFields qui représente tous les champs de formulaire dans le document.

Dim ffsFormFields As FormFields
Set ffsFormFields = ActiveDocument.FormFields

FormsDesign True si le document spécifié est en mode Création.

Dim booFormsDesign As Boolean
booFormsDesign = ActiveDocument.FormsDesign

Frames Renvoie une collection frames qui représente tous les cadres contenus dans un document.

Dim frmsFrames As Frames
Set frmsFrames = ActiveDocument.Frames

Frameset Renvoie un objet Frameset qui représente une page de cadres entière ou un seul cadre sur une page de cadres.

Dim frmFrameset As Frameset
Set frmFrameset = ActiveDocument.Frameset

GridDistanceHorizontal Cette propriété renvoie ou définit une valeur unique qui représente la quantité d’espace horizontal entre les lignes du quadrillage invisible que Microsoft Word utilise lorsque vous dessinez, déplacez et redimensionnez des formes automatiques ou des caractères d’Asie orientale dans le document spécifié.

ActiveDocument.GridDistanceHorizontal =

GridDistanceVertical Cette propriété renvoie ou définit une valeur unique qui représente la quantité d’espace vertical entre les lignes du quadrillage invisible que Microsoft Word utilise lorsque vous dessinez, déplacez et redimensionnez des formes automatiques ou des caractères d’Asie orientale dans le document spécifié.

ActiveDocument.GridDistanceVertical =

GridOriginHorizontal Cette propriété renvoie ou définit une valeur unique qui représente le point, par rapport au bord gauche de la page, où vous voulez que commence la grille invisible pour le dessin, le mouvement et le redimensionnement des formes automatiques ou des caractères d’Asie orientale dans le document spécifié.

ActiveDocument.GridOriginHorizontal =

GridOriginVertical Cette propriété renvoie ou définit une valeur unique qui représente le point, par rapport à la partie supérieure de la page, où vous voulez que commence la grille invisible pour le dessin, le mouvement et le redimensionnement des formes automatiques ou des caractères d’Asie orientale dans le document spécifié.

ActiveDocument.GridOriginVertical =

GridSpaceBetweenHorizontalLines Cette propriété renvoie ou définit l'intervalle auquel Microsoft Word affiche les lignes horizontales du quadrillage en mode page.

ActiveDocument.GridSpaceBetweenHorizontalLines =

GridSpaceBetweenVerticalLines Cette propriété renvoie ou définit l'intervalle auquel Microsoft Word affiche le quadrillage des caractères vertical en mode page.

ActiveDocument.GridSpaceBetweenVerticalLines =

HasVBProject Renvoie une valeur de type Boolean qui indique si un document est associé à un projet Microsoft Visual Basic pour applications.

Dim booHasVBProject As Boolean
booHasVBProject = ActiveDocument.HasVBProject

HTMLDivisions Renvoie une collection HTMLDivisions qui représente les éléments html div dans un document Web.

Dim htmsHTMLDivisions As HTMLDivisions
Set htmsHTMLDivisions = ActiveDocument.HTMLDivisions

Hyperlinks Renvoie une collection Hyperlinks qui représente tous les liens hypertexte dans le document spécifié.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveDocument.Hyperlinks

HyphenateCaps True si les mots en majuscules peuvent être coupés.

ActiveDocument.HyphenateCaps = True

HyphenationZone Cette propriété renvoie ou définit la largeur de la zone de coupure, en points.

ActiveDocument.HyphenationZone =

Indexes Renvoie une collection Indexes qui représente tous les index du document spécifié.

Dim idxsIndexes As Indexes
Set idxsIndexes = ActiveDocument.Indexes

InlineShapes Renvoie une collection InlineShapes qui représente tous les objets InlineShape dans un document.

Dim issInlineShapes As InlineShapes
Set issInlineShapes = ActiveDocument.InlineShapes

IsMasterDocument True si le document spécifié est un document maître.

Dim booIsMasterDocument As Boolean
booIsMasterDocument = ActiveDocument.IsMasterDocument

IsSubdocument True si le document spécifié est un sous-document d'un document maître.

Dim booIsSubdocument As Boolean
booIsSubdocument = ActiveDocument.IsSubdocument

JustificationMode Renvoie ou définit l'espacement des caractères pour le document spécifié.

ActiveDocument.JustificationMode = wdJustificationModeCompress

KerningByAlgorithm La valeur true si Microsoft Word effectue un crénage des caractères latins à demi-chasse et les signes de ponctuation dans le document spécifié.

ActiveDocument.KerningByAlgorithm = True

Kind Renvoie ou définit le type de format utilisé par Microsoft Word lors de la mise en forme automatique du document spécifié.

ActiveDocument.Kind = wdDocumentEmail

LanguageDetected Cette propriété renvoie ou définit une valeur qui indique si Microsoft Word a détecté la langue du texte spécifié.

ActiveDocument.LanguageDetected = True

ListParagraphs Renvoie un objet ListParagraphs qui représente tous les paragraphes numérotés dans un document.

Dim lpsListParagraphs As ListParagraphs
Set lpsListParagraphs = ActiveDocument.ListParagraphs

Lists Renvoie une collection lists qui contient toutes les listes mises en forme dans le document spécifié.

Dim lstsLists As Lists
Set lstsLists = ActiveDocument.Lists

ListTemplates Renvoie une collection ListTemplates qui représente tous les formats de liste du document spécifié.

Dim ltsListTemplates As ListTemplates
Set ltsListTemplates = ActiveDocument.ListTemplates

MailEnvelope Renvoie un objet MsoEnvelope qui représente un en-tête de message électronique pour un document.

Dim meeMailEnvelope As Office.MsoEnvelope
Set meeMailEnvelope = ActiveDocument.MailEnvelope

MailMerge Renvoie un objet MailMerge qui représente la fonctionnalité de fusion et publipostage pour le document spécifié.

Dim mmeMailMerge As MailMerge
Set mmeMailMerge = ActiveDocument.MailMerge

NoLineBreakAfter Cette propriété renvoie ou définit les caractères kinsoku après lesquels Microsoft Word ne permettra pas de rupture de ligne.

ActiveDocument.NoLineBreakAfter =

NoLineBreakBefore Cette propriété renvoie ou définit les caractères kinsoku avant lesquels Microsoft Word ne permettra pas rupture de ligne.

ActiveDocument.NoLineBreakBefore =

OMathBreakBin Cette propriété renvoie ou définit une constante WdOMathBreakBin qui indique où Microsoft Word place les opérateurs binaires lorsque les équations s'étendent sur deux ou plusieurs lignes.

ActiveDocument.OMathBreakBin = wdOMathBreakBinAfter

OMathBreakSub Cette propriété renvoie ou définit une constante WdOMathBreakSub qui indique comment Microsoft Word gère un opérateur de soustraction qui se trouve avant un saut de ligne.

ActiveDocument.OMathBreakSub = wdOMathBreakSubMinusMinus

OMathIntSubSupLim Cette propriété renvoie ou définit un type Boolean qui représente l’emplacement par défaut des limites pour les intégrales.

ActiveDocument.OMathIntSubSupLim = True

OMathJc Cette propriété renvoie ou définit une constante WdOMathJc qui représente la justification par défaut (gauche, droite, centré ou centré en tant que groupe) d'un groupe d'équations.

ActiveDocument.OMathJc = wdOMathJcCenter

OMathNarySupSubLim Cette propriété renvoie ou définit un type Boolean qui représente l’emplacement par défaut des limites pour les objets n-aire autres que des intégrales.

ActiveDocument.OMathNarySupSubLim = True

OMaths Renvoie une collection OMaths qui représente les objets OMath dans la plage spécifiée.

Dim omsOMaths As OMaths
Set omsOMaths = ActiveDocument.OMaths

OMathSmallFrac Cette propriété renvoie ou définit un type Boolean qui indique s'il faut utiliser de petites fractions dans les équations contenues dans le document.

ActiveDocument.OMathSmallFrac = True

OMathWrap Cette propriété renvoie ou définit une valeur unique qui représente le positionnement de la deuxième ligne d'une équation qui est renvoyée à une nouvelle ligne.

ActiveDocument.OMathWrap =

Paragraphs Renvoie une collection paragraphs qui représente tous les paragraphes du document spécifié.

Dim prgsParagraphs As Paragraphs
Set prgsParagraphs = ActiveDocument.Paragraphs

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Document.

Dim objParent As Object
Set objParent = ActiveDocument.Parent

Path Renvoie le disque ou le chemin d'accès au Web pour le document.

Dim strPath As String
strPath = ActiveDocument.Path

Permission Renvoie un objet permission qui représente les paramètres d'autorisation dans le document spécifié.

Dim prmPermission As Office.Permission
Set prmPermission = ActiveDocument.Permission

ReadabilityStatistics Renvoie une collection ReadabilityStatistics qui représente les statistiques de lisibilité de la plage ou du document spécifié.

Dim rssReadabilityStatistics As ReadabilityStatistics
Set rssReadabilityStatistics = ActiveDocument.ReadabilityStatistics

RemoveDateAndTime Définit ou renvoie un type Boolean qui indique si un document stocke les métadonnées de date et d’heure pour le suivi des modifications.

ActiveDocument.RemoveDateAndTime = True

Research Renvoie un objet Research qui représente le service de recherche pour un document.

Dim rsrResearch As Research
Set rsrResearch = ActiveDocument.Research

SaveFormsData La valeur true si Microsoft Word enregistre les données entrées dans un formulaire comme un enregistrement délimité par des tabulations pour une utilisation dans une base de données.

ActiveDocument.SaveFormsData = True

Scripts Renvoie une collection scripts qui représente la collection des scripts HTML de l'objet spécifié.

Dim scrsScripts As Office.Scripts
scrsScripts = ActiveDocument.Scripts

Sections Renvoie une collection section qui représente les sections du document spécifié.

Dim sctsSections As Sections
Set sctsSections = ActiveDocument.Sections

Sentences Renvoie une collection sentences qui représente toutes les phrases du document.

Dim sntsSentences As Sentences
Set sntsSentences = ActiveDocument.Sentences

ServerPolicy Renvoie un objet ServerPolicy qui représente une stratégie spécifiée pour un document stocké sur un serveur exécutant Microsoft Office SharePoint Server 2007.

Dim spyServerPolicy As Office.ServerPolicy
Set spyServerPolicy = ActiveDocument.ServerPolicy

Shapes Renvoie une collection Shapes qui représente tous les objets Shape dans le document spécifié.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveDocument.Shapes

Signatures Renvoie une collection SignatureSet qui représente les signatures numériques d’un document.

Dim sstSignatures As Office.SignatureSet
Set sstSignatures = ActiveDocument.Signatures

SmartDocument Renvoie un objet SmartDocument qui représente les paramètres d’une solution de document dynamique.

Dim sdtSmartDocument As Office.SmartDocument
Set sdtSmartDocument = ActiveDocument.SmartDocument

SnapToGrid True si les formes automatiques ou les caractères d'Asie orientale sont alignent automatiquement sur le quadrillage invisible lorsqu'ils sont dessinés, déplacez ou redimensionnez dans le document spécifié.

ActiveDocument.SnapToGrid = True

SnapToShapes La valeur true si Microsoft Word aligne automatiquement les formes automatiques ou les caractères d'Asie orientale sur les lignes invisibles qui passent par les bords verticaux et horizontaux des formes automatiques voisines ou des caractères d'Asie orientale dans le document spécifié.

ActiveDocument.SnapToShapes = True

StoryRanges Renvoie une collection StoryRanges qui représente tous les articles du document spécifié.

Dim srsStoryRanges As StoryRanges
Set srsStoryRanges = ActiveDocument.StoryRanges

Subdocuments Renvoie une collection Subdocuments qui représente tous les sous-documents du document spécifié.

Dim sbdsSubdocuments As Subdocuments
Set sbdsSubdocuments = ActiveDocument.Subdocuments

Sync

Dim synSync As Office.Sync
Set synSync = ActiveDocument.Sync

Tables Renvoie une collection table qui représente tous les tableaux du document spécifié.

Dim tblsTables As Tables
Set tblsTables = ActiveDocument.Tables

TablesOfAuthorities Renvoie une collection TableOfAuthorities qui représente les tables de références dans le document spécifié.

Dim toasTablesOfAuthorities As TablesOfAuthorities
Set toasTablesOfAuthorities = ActiveDocument.TablesOfAuthorities

TablesOfAuthoritiesCategories Renvoie une collection TablesOfAuthoritiesCategories qui représente les catégories de tables de références disponibles pour le document spécifié.

Dim toasTablesOfAuthoritiesCategories As TablesOfAuthoritiesCategories
Set toasTablesOfAuthoritiesCategories = ActiveDocument.TablesOfAuthoritiesCategories

TablesOfContents Renvoie une collection TablesOfContents qui représente les tables des matières du document spécifié.

Dim tocsTablesOfContents As TablesOfContents
Set tocsTablesOfContents = ActiveDocument.TablesOfContents

TablesOfFigures Renvoie une collection TablesOfFigures qui représente les tables des illustrations du document spécifié.

Dim tofsTablesOfFigures As TablesOfFigures
Set tofsTablesOfFigures = ActiveDocument.TablesOfFigures

TextEncoding Cette propriété renvoie ou définit la page de codes ou jeu de caractères que Microsoft Word utilise pour un document enregistré comme un fichier texte codé.

ActiveDocument.TextEncoding =

TextLineEnding Cette propriété renvoie ou définit une constante WdLineEndingType indiquant la façon dont Microsoft Word marque les sauts de ligne et de paragraphe dans les documents enregistrés en tant que fichiers texte.

ActiveDocument.TextLineEnding = wdCRLF

TrackMoves Cette propriété renvoie ou définit un type Boolean qui indique s'il faut marquer le texte déplacé lorsque le suivi des modifications est activé.

ActiveDocument.TrackMoves = True

Type Renvoie le type de document (modèle ou document).

Dim wdtType As WdDocumentType
wdtType = ActiveDocument.Type

UseMathDefaults Cette propriété renvoie ou définit un type Boolean qui indique s’il faut utiliser les paramètres de mathématique par défaut lors de la création d’équations.

ActiveDocument.UseMathDefaults = True

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

ActiveDocument.UserControl = True

Variables Renvoie une collection variables qui représente les variables stockées dans le document spécifié.

Dim vrbsVariables As Variables
Set vrbsVariables = ActiveDocument.Variables

WebOptions Renvoie l’objet WebOptions , qui contient les attributs de niveau document utilisés par Microsoft Word lorsque vous enregistrez un document en tant que page Web ou que vous ouvrez une page Web.

Dim wosWebOptions As WebOptions
Set wosWebOptions = ActiveDocument.WebOptions

Windows Renvoie une collection Windows qui représente toutes les fenêtres du document spécifié.

Dim wndsWindows As Windows
Set wndsWindows = ActiveDocument.Windows

WordOpenXML Renvoie une chaîne qui représente le format XML plat pour le contenu Word Open XML du document.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.WordOpenXML

Words Renvoie une collection Words qui représente tous les mots d’un document.

Dim wrdsWords As Words
Set wrdsWords = ActiveDocument.Words

WorkIdentity

ActiveDocument.WorkIdentity =

WriteReserved True si le document spécifié est protégé par un mot de passe d'écriture.

Dim booWriteReserved As Boolean
booWriteReserved = ActiveDocument.WriteReserved

XMLSaveThroughXSLT Définit ou renvoie une valeur de type String qui spécifie le chemin d’accès et le nom de fichier de la transformation XSLT (Extensible Stylesheet Language Transformation) à appliquer lorsqu’un utilisateur enregistre un document.

ActiveDocument.XMLSaveThroughXSLT =

XMLSchemaReferences Renvoie une collection XMLSchemaReferences qui représente les schémas attachés à un document.

Dim xmlsXMLSchemaReferences As XMLSchemaReferences
Set xmlsXMLSchemaReferences = ActiveDocument.XMLSchemaReferences

XMLShowAdvancedErrors Cette propriété renvoie ou définit un type Boolean qui indique si le texte du message d’erreur est généré à partir des messages d’erreur prédéfinis dans Microsoft Word ou à partir du composant Microsoft XML Core Services (MSXML) 5,0 inclus dans Office.

ActiveDocument.XMLShowAdvancedErrors = True

XMLUseXSLTWhenSaving Renvoie un type Boolean qui indique s’il faut enregistrer un document au moyen d’une transformation XSLT (Extensible Stylesheet Language Transformation).

ActiveDocument.XMLUseXSLTWhenSaving = True

Documents.Count Renvoie un type Long qui représente le nombre de documents dans la collection.

Dim lngCount As Long
lngCount = Documents.Count

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

Dim objParent As Object
Set objParent = Documents.Parent