Clase TableOfAuthorities (Word VBA)

La clase TableOfAuthorities representa una única tabla de autoridades de un documento (un campo TOA).

Los principales procedimientos de la clase TableOfAuthorities son Delete y TablesOfAuthorities.Add

Set

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

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

Los siguientes procedimientos se pueden usar para establecer variables de clase TableOfAuthorities : TablesOfAuthorities.Add, TablesOfAuthorities.Item y Document.TablesOfAuthorities

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos TableOfAuthorities en una colección.

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

Temas

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

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

Métodos

Los principales métodos de la clase TableOfAuthorities son

Delete - Elimina la tabla de autoridades especificada.

ActiveDocument.TablesOfAuthorities(1).Delete

TablesOfAuthorities.Add - Devuelve un objeto TableOfAuthorities que representa una tabla de autoridades agregada a un documento.

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

Otros Métodos

TablesOfAuthorities.MarkAllCitations - Inserta un campo TA (elemento de tabla de autoridades) después de cada aparición del texto marcado como ShortCitation.

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

TablesOfAuthorities.MarkCitation - Inserta un campo TA (elemento de tabla de autoridades) y devuelve el campo como un objeto Field .

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

Propiedades

Bookmark Devuelve o establece el nombre del marcador del que se va a recopilar la tabla de autoridades.

ActiveDocument.TablesOfAuthorities(1).Bookmark =

Category Devuelve o establece la categoría de las entradas que se deben incluir en una tabla de autoridades.

ActiveDocument.TablesOfAuthorities(1).Category =

EntrySeparator Devuelve o establece los caracteres (hasta un máximo de cinco) que separan una tabla de autoridades y su número de página.

ActiveDocument.TablesOfAuthorities(1).EntrySeparator =

IncludeCategoryHeader True si el nombre de categoría de un grupo de entradas aparece en la tabla de autoridades.

ActiveDocument.TablesOfAuthorities(1).IncludeCategoryHeader = True

IncludeSequenceName Devuelve o establece el identificador de campo secuencia (SEQ) para una tabla de autoridades.

ActiveDocument.TablesOfAuthorities(1).IncludeSequenceName =

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

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

Passim True si hay cinco o más referencias de página a la misma entidad se reemplazan con "Passim".

ActiveDocument.TablesOfAuthorities(1).Passim = True

Range Devuelve un objeto Range que representa la parte de un documento incluida en una tabla de autoridades.

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

Separator Devuelve o establece un máximo de cinco caracteres que aparecen entre el número de secuencia y el número de página en una tabla de autoridades.

ActiveDocument.TablesOfAuthorities(1).Separator =

TabLeader Devuelve o establece el carácter de relleno que aparece entre las entradas y su página asociada números de una tabla de autoridades.

ActiveDocument.TablesOfAuthorities(1).TabLeader = wdTabLeaderDashes

TablesOfAuthorities.Count Devuelve un Long que representa el número de tablas de autoridades de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.TablesOfAuthorities.Count

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

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