Clase HTMLDivision (Word VBA)

La clase HTMLDivision representa un solo elemento DIV de HTML en un documento Web.

Los principales procedimientos de la clase HTMLDivision son Delete y HTMLDivisions.Add

Set

Para usar una variable de clase HTMLDivision, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase HTMLDivision : HTMLDivisionParent, HTMLDivisions.Add, HTMLDivisions.Item, Document.HTMLDivisions, HTMLDivisions, Range.HTMLDivisions y Selection.HTMLDivisions

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

Métodos

Los principales métodos de la clase HTMLDivision son

Delete - Elimina la división HTML especificada.

ActiveDocument.Range.HTMLDivisions(1).Delete

HTMLDivisions.Add - Devuelve un objeto HTMLDivision que representa una nueva división HTML agregada a un documento Web.

Dim htm As HTMLDivision
Set htm = ActiveDocument.Range.HTMLDivisions.Add()

Propiedades

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

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

HTMLDivisions Devuelve un objeto HTMLDivisions que representa una división HTML en un documento Web.

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

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 =

Parent Devuelve un objeto Object que representa el objeto primario del objeto HTMLDivision especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.HTMLDivisions(1).Parent

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.Range.HTMLDivisions(1).RightIndent =

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 =

HTMLDivisions.Count Devuelve un Long que representa el número de elementos div de HTML de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Range.HTMLDivisions.Count

HTMLDivisions.NestingLevel Devuelve el nivel de anidamiento de la etiqueta DIV de HTML especificado de elementos.

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Range.HTMLDivisions.NestingLevel

HTMLDivisions.Parent Devuelve un objeto Object que representa el objeto primario del objeto HTMLDivisions especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.HTMLDivisions.Parent