Compartilhar via

Objeto Subdocuments (Word)

  • Artigo

Uma coleção de objetos Subdocument que representa os subdocumentos de um intervalo ou documento.

Comentários

Use a propriedade de subdocumentos para retornar a coleção de subdocumentos. O exemplo a seguir expande todos os subdocumentos do documento ativo.

ActiveDocument.Subdocuments.Expanded = True

Use o método AddFromFile ou AddFromRange para adicionar um subdocumento a um documento. O exemplo a seguir adiciona um subdocumento chamado "Setup" ao final do documento ativo.

ActiveDocument.Subdocuments.Expanded = True 
Selection.EndKey Unit:=wdStory 
Selection.InsertParagraphBefore 
ActiveDocument.Subdocuments.AddFromFile Name:="C:\Temp\Setup.doc"

O exemplo a seguir aplica o estilo Heading 1 ao primeiro parágrafo da seleção e, em seguida, cria um documento para o conteúdo da seleção.

Selection.Paragraphs(1).Style = wdStyleHeading1 
With ActiveDocument.Subdocuments 
 .Expanded = True 
 .AddFromRange Range:=Selection.Range 
End With

Use subdocumentos (Index), onde Index é o número de índice, para retornar um único objeto Subdocument. O exemplo a seguir exibe o caminho e nome de arquivo do primeiro subdocumento do documento ativo.

If ActiveDocument.Subdocuments(1).HasFile = True Then 
 MsgBox ActiveDocument.Subdocuments(1).Path & _ 
 Application.PathSeparator _ 
 & ActiveDocument.Subdocuments(1).Name 
End If

Confira também

Referência do modelo de objeto do Word

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.