Classe Subdocuments (Word VBA)

Uma coleção de objetos Subdocument que representa os subdocumentos em um intervalo ou documento. Para usar uma variável de classe Subdocuments, ela primeiro precisa ser instanciada por exemplo

Dim sbds as Subdocuments
Set sbds = ActiveDocument.Subdocuments

For Each

Aqui está um exemplo de processamento dos itens Subdocuments em uma coleção.

Dim sbd As Subdocument
For Each sbd In ActiveDocument.Subdocuments
	
Next sbd

AddFromFile

Adiciona o subdocumento especificado ao documento mestre no início da seleção e retorna um objeto Subdocument .

Se o modo ativo não for o modo de exibição de estrutura de tópicos ou o modo de exibição do documento mestre, ocorrerá um erro.

AddFromFile (Name, ConfirmConversions, ReadOnly, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate)

ActiveDocument.ActiveWindow.View.Type = wdMasterView 
ActiveDocument.Subdocuments.AddFromFile _ 
 Name:="C:\Subdoc.doc"

Arguments

O seguinte argumento é necessário

Name (String) - O nome de arquivo do subdocumento a ser inserido no documento mestre.

Optional arguments

Os seguintes argumentos são opcionais

ConfirmConversions (Boolean) - True para confirmar a conversão de arquivo na caixa de diálogo Converter arquivo se o arquivo não estiver no formato do Word.

ReadOnly (Boolean) - True para inserir o subdocumento como um documento somente leitura.

PasswordDocument (String) - A senha necessária para abrir o subdocumento se ele estiver protegido por senha.

PasswordTemplate (String) - A senha necessária para abrir o modelo anexado ao subdocumento se o modelo for protegido por senha.

Revert (Boolean) - Controla o que acontece se o nome é o nome de arquivo de um documento aberto. True para inserir a versão salva do subdocumento. False para inserir a versão aberta do subdocumento, que pode conter alterações não salvas.

WritePasswordDocument (Document) - A senha necessária para salvar alterações no arquivo do documento se ele estiver protegido contra gravação.

WritePasswordTemplate (String) - A senha necessária para salvar alterações no modelo anexado ao subdocumento se o modelo estiver protegido contra gravação.

AddFromRange

Cria um ou mais subdocumentos a partir do texto no intervalo especificado e retorna um objeto Subdocument.

O argumento Range precisa começar com um dos estilos de nível de título internos (por exemplo, Título 1). Os subdocumentos são criados em cada parágrafo formatado com o mesmo formato de título usado no início do intervalo. Os arquivos de subdocumento são salvos quando o documento mestre é salvo e são automaticamente nomeados usando texto da primeira linha do arquivo.

AddFromRange (Range)

Range: O intervalo usado para criar um ou mais subdocumentos.

ActiveDocument.ActiveWindow.View.Type = wdMasterView 
ActiveDocument.SubDocuments.AddFromRange Range:=Selection.Range

Count

Retorna um Long que representa o número de subdocumentos na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.Subdocuments.Count

Delete

Excluir a coleção de subdocumentos.

ActiveDocument.Subdocuments.Delete

Expanded

True se os subdocumentos do documento especificado são expandidos. Boolean de leitura/gravação.

If ActiveDocument.Subdocuments.Count >= 1 Then 
 ActiveDocument.Subdocuments.Expanded = True 
End If

Item

Retorna um objeto Subdocument individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.

Dim sbd As Subdocument
Set sbd = ActiveDocument.Subdocuments(Index:=1)

Merge

Mescla os subdocumentos especificados de um documento mestre em um único documento.

Merge (FirstSubdocument, LastSubdocument)

If ActiveDocument.Subdocuments.Count >= 2 Then 
 Set aDoc = ActiveDocument 
 aDoc.Subdocuments.Merge _ 
 FirstSubdocument:=aDoc.Subdocuments(1), _ 
 LastSubdocument:=aDoc.Subdocuments(2) 
End If

Arguments

Optional arguments

Os seguintes argumentos são opcionais

FirstSubdocument (String) - O caminho e o nome de arquivo do documento original com o qual você deseja mesclar revisões.

LastSubdocument (String) - O último subdocumento de um intervalo de subdocumentos a serem mesclados.

Select

Seleciona o subdocumento especificado.

Depois de usar esse método, use o objeto Selection para trabalhar com os itens selecionados. Para obter mais informações, consulte o tópico Trabalhando com o objeto Selection.

ActiveDocument.Subdocuments.Select