Clase TableOfContents (Word VBA)

La clase TableOfContents representa una sola tabla de contenido en un documento.

Los principales procedimientos de la clase TableOfContents son Delete y TablesOfContents.Add

Set

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

Dim tocs as TableOfContents
Set tocs = ActiveDocument.TablesOfContents(Index:=1)

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

For Each

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

Dim hs As HeadingStyle 
If ActiveDocument.TablesOfContents.Count >=1 Then 
    ActiveDocument.TablesOfContents(1).HeadingStyles.Add Style:="Title", Level:=2 
 For Each hs In _ 
 ActiveDocument.TablesOfContents(1).HeadingStyles 
 MsgBox hs.Style 
 Next hs 
End If

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Page with its procedures IncludePageNumbers, RightAlignPageNumbers y UpdatePageNumbers

Métodos

Los principales métodos de la clase TableOfContents son

Delete - Elimina la tabla de contenido especificada.

ActiveDocument.TablesOfContents(1).Delete

TablesOfContents.Add - Devuelve un objeto TableOfContents que representa una tabla de contenido agregada a un documento.

Dim tocs As TableOfContents
Set tocs = ActiveDocument.TablesOfContents.Add(Range:=)

Otros Métodos

TablesOfContents.MarkEntry - Inserta un campo TC (tabla de contenido) después del intervalo especificado.

Dim fldMarkEntry As Field
Set fldMarkEntry = ActiveDocument.TablesOfContents.MarkEntry(Range:=)

Propiedades

HeadingStyles Devuelve un objeto HeadingStyles que representa los estilos adicionales utilizados para compilar una tabla de contenido o una tabla de ilustraciones (estilos distintos de título 1-título 9).

Dim hssHeadingStyles As HeadingStyles
Set hssHeadingStyles = ActiveDocument.TablesOfContents(1).HeadingStyles

HidePageNumbersInWeb Devuelve o establece si los números de página en una tabla de contenido o una tabla de ilustraciones deberían estar oculto cuando se publica en la Web.

ActiveDocument.TablesOfContents(1).HidePageNumbersInWeb = True

LowerHeadingLevel Devuelve o establece el nivel de título final de una tabla de contenido o una tabla de ilustraciones.

ActiveDocument.TablesOfContents(1).LowerHeadingLevel =

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

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

Range Devuelve un objeto Range que representa la parte de un documento incluida en la tabla de contenido especificada.

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

TabLeader Devuelve o establece el carácter entre las entradas y sus números de página en un índice, tabla de contenido o tabla de ilustraciones.

ActiveDocument.TablesOfContents(1).TabLeader = wdTabLeaderDashes

TableID Devuelve o establece un identificador de una sola letra que se utiliza para crear una tabla de contenido a partir de campos TOC.

ActiveDocument.TablesOfContents(1).TableID =

UpperHeadingLevel Devuelve o establece el nivel de título inicial de una tabla de contenido.

ActiveDocument.TablesOfContents(1).UpperHeadingLevel =

UseFields True si los campos de tabla de contenido (TC) se usan para crear una tabla de contenido o una tabla de ilustraciones.

ActiveDocument.TablesOfContents(1).UseFields = True

UseHeadingStyles True si estilos de título integrados se utilizan para crear una tabla de contenido.

ActiveDocument.TablesOfContents(1).UseHeadingStyles = True

UseHyperlinks Devuelve o establece si se deben aplicar formato de hipervínculos a las entradas en una tabla de contenido cuando se publique en la Web.

ActiveDocument.TablesOfContents(1).UseHyperlinks = True

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

Dim lngCount As Long
lngCount = ActiveDocument.TablesOfContents.Count

TablesOfContents.Format Devuelve o establece el formato de las tablas de contenido del documento especificado.

ActiveDocument.TablesOfContents.Format = wdTOCClassic

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

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