DocumentBase.TablesOfContents Propriedade
Definição
Importante
Algumas informações se referem a produtos de pré-lançamento que podem ser substancialmente modificados antes do lançamento. A Microsoft não oferece garantias, expressas ou implícitas, das informações aqui fornecidas.
Obtém uma coleção TablesOfContents que representa os sumários no documento.
public Microsoft.Office.Interop.Word.TablesOfContents TablesOfContents { get; }
Valor da propriedade
Uma coleção TablesOfContents que representa os sumários no documento.
Exemplos
O exemplo de código a seguir adiciona dois parágrafos ao documento e atribui os estilos título 1 e título 2 aos parágrafos. Em seguida, o código cria um sumário no ponto de inserção que inclui apenas parágrafos com estilo título 1. Para usar esse exemplo, execute-o na classe ThisDocument em um projeto no nível de documento.
private void DocumentTablesOfContents()
{
this.Paragraphs[1].Range.InsertParagraphBefore();
this.Paragraphs[1].Range.InsertParagraphBefore();
this.Paragraphs[1].Range.Text = "Heading 1";
this.Paragraphs[2].Range.Text = "Heading 2";
object Style1 = Word.WdBuiltinStyle.wdStyleHeading1;
this.Paragraphs[1].set_Style(ref Style1);
object Style2 = Word.WdBuiltinStyle.wdStyleHeading2;
this.Paragraphs[2].set_Style(ref Style2);
object HeadingLevel = 1;
this.TablesOfContents.Add(this.Application.Selection.Range,
ref missing, ref HeadingLevel, ref HeadingLevel,
ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing);
}
Private Sub DocumentTablesOfContents()
Me.Paragraphs(1).Range.InsertParagraphBefore()
Me.Paragraphs(1).Range.InsertParagraphBefore()
Me.Paragraphs(1).Range.Text = "Heading 1"
Me.Paragraphs(2).Range.Text = "Heading 2"
Dim Style1 As Object = Word.WdBuiltinStyle.wdStyleHeading1
Me.Paragraphs(1).Style = Style1
Dim Style2 As Object = Word.WdBuiltinStyle.wdStyleHeading2
Me.Paragraphs(2).Style = Style2
Dim HeadingLevel As Object = 1
Me.TablesOfContents.Add(Me.Application.Selection.Range, , HeadingLevel, _
HeadingLevel)
End Sub