Classe HTMLDivision - elemento DIV de HTML (Word VBA)

A classe HTMLDivision representa um único elemento DIV de HTML em um documento da Web. O objeto HTMLDivision é um membro da coleção HTMLDivisions. Para usar uma variável de classe HTMLDivision, ela primeiro precisa ser instanciada por exemplo

Dim htm as HTMLDivision
Set htm = ActiveDocument.Range.HTMLDivisions(Index:=1)

For Each

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

Dim htm As HTMLDivision
For Each htm In ActiveDocument.Range.HTMLDivisions
	
Next htm

Borders

Retorna uma coleção Borders que representa todas as bordas do objeto especificado.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

Dim brdsBorders As Borders
Set brdsBorders = ActiveDocument.Range.HTMLDivisions(1).Borders

Delete

Exclui a divisão HTML especificada.

ActiveDocument.Range.HTMLDivisions(1).Delete

HTMLDivisionParent

Retorna um objeto HTMLDivision que representa uma divisão pai da divisão HTML atual.

HTMLDivisionParent (LevelsUp)

LevelsUp: O número de divisões a contar de volta até retornar à divisão desejada. Se o argumento LevelsUp for omitido, a divisão HTML retornada estará um nível acima da divisão HTML atual.

Sub FormatHTMLDivisions() 
 With ActiveDocument.HTMLDivisions(1) 
 With .HTMLDivisions(1) 
 .LeftIndent = InchesToPoints(1) 
 .RightIndent = InchesToPoints(1) 
 With .Borders(wdBorderLeft) 
 .Color = wdColorBlue 
 .LineStyle = wdLineStyleDouble 
 End With 
 With .Borders(wdBorderRight) 
 .Color = wdColorBlue 
 .LineStyle = wdLineStyleDouble 
 End With 
 With .HTMLDivisionParent 
 .LeftIndent = InchesToPoints(1) 
 .RightIndent = InchesToPoints(1) 
 With .Borders(wdBorderTop) 
 .Color = wdColorBlack 
 .LineStyle = wdLineStyleDot 
 End With 
 With .Borders(wdBorderBottom) 
 .Color = wdColorBlack 
 .LineStyle = wdLineStyleDot 
 End With 
 End With 
 End With 
 End With 
End Sub

HTMLDivisions

Retorna um objeto HTMLDivisions que representa uma divisão de HTML em um documento da Web.

Sub FormatHTMLDivisions() 
 With ActiveDocument.HTMLDivisions(1) 
 With .Borders(wdBorderLeft) 
 .Color = wdColorRed 
 .LineStyle = wdLineStyleSingle 
 End With 
 With .Borders(wdBorderRight) 
 .Color = wdColorRed 
 .LineStyle = wdLineStyleSingle 
 End With 
 With .HTMLDivisions(1) 
 .LeftIndent = InchesToPoints(1) 
 .RightIndent = InchesToPoints(1) 
 With .Borders(wdBorderTop) 
 .Color = wdColorBlue 
 .LineStyle = wdLineStyleDouble 
 End With 
 With .Borders(wdBorderBottom) 
 .Color = wdColorBlue 
 .LineStyle = wdLineStyleDouble 
 End With 
 With .HTMLDivisions(1) 
 .LeftIndent = InchesToPoints(1) 
 .RightIndent = InchesToPoints(1) 
 With .Borders(wdBorderLeft) 
 .LineStyle = wdLineStyleDot 
 End With 
 With .Borders(wdBorderRight) 
 .LineStyle = wdLineStyleDot 
 End With 
 With .Borders(wdBorderTop) 
 .LineStyle = wdLineStyleDot 
 End With 
 With .Borders(wdBorderBottom) 
 .LineStyle = wdLineStyleDot 
 End With 
 End With 
 End With 
 End With 
 
End Sub

LeftIndent

Retorna ou define um valor único que representa o valor de recuo à esquerda em pontos da divisão HTML especificada. Leitura/gravação.

ActiveDocument.Range.HTMLDivisions(1).LeftIndent =

Range

Retorna um objeto Range que representa a parte de um documento que está contida no objeto especificado.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.HTMLDivisions(1).Range

RightIndent

Retorna ou define o recuo à direita em pontos dos parágrafos especificados. Leitura/gravação única.

ActiveDocument.Paragraphs.RightIndent = InchesToPoints(1)

SpaceAfter

Retorna ou define a quantidade de espaçamento em pontos após o elemento DIV de HTML especificado. Leitura/gravação única.

ActiveDocument.Range.HTMLDivisions(1).SpaceAfter =

SpaceBefore

Retorna ou define o espaçamento em pontos antes do elemento DIV de HTML especificado. Leitura/gravação única.

ActiveDocument.Range.HTMLDivisions(1).SpaceBefore =