Partilhar via


Propriedade DocumentBase.Subdocuments

Obtém um Subdocuments coleção que representa todos os subdocumentos do documento.

Namespace:  Microsoft.Office.Tools.Word
Assembly:  Microsoft.Office.Tools.Word.v4.0.Utilities (em Microsoft.Office.Tools.Word.v4.0.Utilities.dll)

Sintaxe

'Declaração
Public ReadOnly Property Subdocuments As Subdocuments
    Get
public Subdocuments Subdocuments { get; }

Valor de propriedade

Tipo: Microsoft.Office.Interop.Word.Subdocuments
A Subdocuments coleção que representa todos os subdocumentos do documento.

Exemplos

O exemplo de código a seguir aplica o estilo Título 1 ao primeiro parágrafo na seleção e, em seguida, cria um subdocumento para o conteúdo da seleção. O código, em seguida, exibe uma mensagem que mostra o número de subdocumentos do documento. Para usar esse exemplo, executá-lo do ThisDocument a classe em um projeto de nível de documento.

Private Sub DocumentSubdocuments()
    Dim style As Object = Word.WdBuiltinStyle.wdStyleHeading1

    Me.Paragraphs(1).Range.InsertParagraphBefore()
    Me.Paragraphs(1).Range.Text = "This is sample text."
    Dim currentRange As Word.Range = Me.Paragraphs(1).Range
    currentRange.Select()
    Me.Application.Selection.Paragraphs(1).Style = style

    Me.Subdocuments.Expanded = True
    Me.Subdocuments.AddFromRange(Application.Selection.Range)

    MessageBox.Show("Total subdocuments: " & Me.Subdocuments.Count.ToString())
End Sub 
private void DocumentSubdocuments()
{
    object style = Word.WdBuiltinStyle.wdStyleHeading1;

    this.Paragraphs[1].Range.InsertParagraphBefore();
    this.Paragraphs[1].Range.Text = "This is sample text.";
    Word.Range currentRange = this.Paragraphs[1].Range;
    currentRange.Select();
    this.Application.Selection.Paragraphs[1].set_Style(ref style);

    this.Subdocuments.Expanded = true;
    this.Subdocuments.AddFromRange(Application.Selection.Range);

    MessageBox.Show("Total subdocuments: " + this.Subdocuments.Count.ToString());
}

Segurança do .NET Framework

Consulte também

Referência

DocumentBase Classe

Namespace Microsoft.Office.Tools.Word