Classe HTMLDivision - élément DIV HTML (Word VBA)

La classe HTMLDivision représente un élément DIV HTML unique dans un document Web. Pour utiliser une variable de classe HTMLDivision, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments HTMLDivision dans une collection

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

Borders

Renvoie une collection Borders qui représente la totalité des bordures de l’objet spécifié.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

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

Delete

Supprime la division HTML spécifiée.

ActiveDocument.Range.HTMLDivisions(1).Delete

HTMLDivisionParent

Renvoie un objet HTMLDivision qui représente une division parente de la division HTML actuelle.

HTMLDivisionParent (LevelsUp)

LevelsUp: Nombre de divisions représentant le déplacement vers l'arrière nécessaire pour retourner à la division recherchée.

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

Renvoie un objet HTMLDivisions qui représente une division HTML dans un document 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

Cette propriété renvoie ou définit une valeur unique qui représente la valeur de retrait gauche (en points) pour la division HTML spécifiée.

ActiveDocument.Range.HTMLDivisions(1).LeftIndent =

Range

Renvoie un objet Range qui représente la partie d'un document contenue dans l'objet spécifié.

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

RightIndent

Renvoie ou définit le retrait à droite, exprimé en points, pour les paragraphes spécifiés.

ActiveDocument.Paragraphs.RightIndent = InchesToPoints(1)

SpaceAfter

Cette propriété renvoie ou définit l'espacement (en points) après l'élément HTML DIV spécifié.

ActiveDocument.Range.HTMLDivisions(1).SpaceAfter =

SpaceBefore

Cette propriété renvoie ou définit l'espacement (en points) avant l'élément HTML DIV spécifié.

ActiveDocument.Range.HTMLDivisions(1).SpaceBefore =