DocumentBase.TablesOfContents Eigenschaft
Definition
Wichtig
Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.
Ruft eine TablesOfContents-Auflistung ab, die die Inhaltsverzeichnisse im Dokument darstellt.
public Microsoft.Office.Interop.Word.TablesOfContents TablesOfContents { get; }
Eigenschaftswert
Eine TablesOfContents-Auflistung, die die Inhaltsverzeichnisse im Dokument darstellt.
Beispiele
Im folgenden Codebeispiel werden zwei Absätze zum Dokument hinzugefügt, und die Formatvorlagen 1 und Überschrift 2 werden den Absätzen zugewiesen. Der Code erstellt dann ein Inhaltsverzeichnis an der Einfügemarke, das nur Absätze formatierte Überschrift 1 enthält. Um dieses Beispiel zu verwenden, führen Sie es von der- ThisDocument Klasse in einem Projekt auf Dokument Ebene aus.
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