Clase HTMLDivision - elemento DIV de HTML (Word VBA)

La clase HTMLDivision representa un solo elemento DIV de HTML en un documento Web. Para usar una variable de clase HTMLDivision, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos HTMLDivision en una colección.

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

Borders

Devuelve una colección Borders que representa todos los bordes del objeto especificado.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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

Delete

Elimina la división HTML especificada.

ActiveDocument.Range.HTMLDivisions(1).Delete

HTMLDivisionParent

Devuelve un objeto HTMLDivision que representa una división primaria de la división HTML actual.

HTMLDivisionParent (LevelsUp)

LevelsUp: Número de divisiones primarias que hay que contar hacia atrás para devolver la división deseada.

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

Devuelve un objeto HTMLDivisions que representa una división HTML en un documento 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

Devuelve o establece un valor Single que representa el valor de la sangría izquierda (en puntos) de la división HTML especificada.

ActiveDocument.Range.HTMLDivisions(1).LeftIndent =

Range

Devuelve un objeto Range que representa la parte de un documento incluida en el objeto especificado.

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

RightIndent

Devuelve o establece la sangría derecha, en puntos, de los párrafos especificados.

ActiveDocument.Paragraphs.RightIndent = InchesToPoints(1)

SpaceAfter

Devuelve o establece la cantidad de espaciado (en puntos) después del elemento DIV de HTML especificado.

ActiveDocument.Range.HTMLDivisions(1).SpaceAfter =

SpaceBefore

Devuelve o establece el espaciado (en puntos) delante del elemento DIV de HTML especificado.

ActiveDocument.Range.HTMLDivisions(1).SpaceBefore =