Classe TableOfAuthorities (Word VBA)

La classe TableOfAuthorities représente une seule table de références dans un document (champ TOA).

Les procédures principales de la classe TableOfAuthorities sont Delete et TablesOfAuthorities.Add

Set

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

Dim toas as TableOfAuthorities
Set toas = ActiveDocument.TablesOfAuthorities(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TableOfAuthorities : TablesOfAuthorities.Add, TablesOfAuthorities.Item et Document.TablesOfAuthorities

For Each

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

Dim toa As TableOfAuthorities 
For Each toa In ActiveDocument.TablesOfAuthorities 
 toa.IncludeCategoryHeader = True 
Next toa

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

Format with its procedures KeepEntryFormatting et TablesOfAuthorities.Format
Page with its procedures PageNumberSeparator et PageRangeSeparator

Méthodes

Les méthodes principales de la classe TableOfAuthorities sont

Delete - Supprime la table de références spécifiée.

ActiveDocument.TablesOfAuthorities(1).Delete

TablesOfAuthorities.Add - Renvoie un objet TableOfAuthorities qui représente une table de références ajoutée à un document.

Dim toas As TableOfAuthorities
Set toas = ActiveDocument.TablesOfAuthorities.Add(Range:=)

Autre Méthodes

TablesOfAuthorities.MarkAllCitations - Insère un champ TA (Entrée de table de références) après toutes les occurrences du texte ShortCitation.

Dim strShortCitation As String: strShortCitation =  
ActiveDocument.TablesOfAuthorities.MarkAllCitations ShortCitation:=strShortCitation

TablesOfAuthorities.MarkCitation - Insère un champ TA (entrée de table de références) et renvoie le champ sous la forme d’un objet Field .

Dim strShortCitation As String: strShortCitation =  
Dim fldMarkCitation As Field
Set fldMarkCitation = ActiveDocument.TablesOfAuthorities.MarkCitation(Range:=, ShortCitation:=strShortCitation)

Propriétés

Bookmark Cette propriété renvoie ou définit le nom du signet à partir duquel regrouper une table de références.

ActiveDocument.TablesOfAuthorities(1).Bookmark =

Category Cette propriété renvoie ou définit la catégorie des entrées à inclure dans une table de références.

ActiveDocument.TablesOfAuthorities(1).Category =

EntrySeparator Cette propriété renvoie ou définit les caractères (jusqu'à cinq) qui séparent une table d'entrée de références et son numéro de page.

ActiveDocument.TablesOfAuthorities(1).EntrySeparator =

IncludeCategoryHeader True si le nom de catégorie pour un groupe d'entrées s'affiche dans la table de références.

ActiveDocument.TablesOfAuthorities(1).IncludeCategoryHeader = True

IncludeSequenceName Cette propriété renvoie ou définit l'identificateur de champ SEQ (Sequence) pour une table de références.

ActiveDocument.TablesOfAuthorities(1).IncludeSequenceName =

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

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfAuthorities(1).Parent

Passim La valeur true si au moins cinq références de pages pour la même autorité sont remplacés par « Passim ».

ActiveDocument.TablesOfAuthorities(1).Passim = True

Range Renvoie un objet Range qui représente la partie d'un document contenue dans une table de références.

Dim rngRange As Range
Set rngRange = ActiveDocument.TablesOfAuthorities(1).Range

Separator Cette propriété renvoie ou définit les caractères jusqu'à cinq qui apparaissent entre le numéro de séquence et le numéro de page dans une table de références.

ActiveDocument.TablesOfAuthorities(1).Separator =

TabLeader Cette propriété renvoie ou définit le caractère de suite qui apparaît entre les entrées et leur page associée numéros dans une table de références.

ActiveDocument.TablesOfAuthorities(1).TabLeader = wdTabLeaderDashes

TablesOfAuthorities.Count Renvoie un type long qui représente le nombre de tables de références dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.TablesOfAuthorities.Count

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

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfAuthorities.Parent