Classe HTMLDivision (Word VBA)

La classe HTMLDivision représente un élément DIV HTML unique dans un document Web.

Les procédures principales de la classe HTMLDivision sont Delete et HTMLDivisions.Add

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe HTMLDivision : HTMLDivisionParent, HTMLDivisions.Add, HTMLDivisions.Item, Document.HTMLDivisions, HTMLDivisions, Range.HTMLDivisions et Selection.HTMLDivisions

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

Méthodes

Les méthodes principales de la classe HTMLDivision sont

Delete - Supprime la division HTML spécifiée.

ActiveDocument.Range.HTMLDivisions(1).Delete

HTMLDivisions.Add - Renvoie un objet HTMLDivision qui représente une nouvelle division HTML ajoutée à un document Web.

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

Propriétés

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

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

HTMLDivisions Renvoie un objet HTMLDivisions qui représente une division HTML dans un document Web.

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

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 =

Parent Renvoie un Object qui représente l'objet parent de l'objet HTMLDivision spécifié.

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

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

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 =

HTMLDivisions.Count Renvoie un type long qui représente le nombre d'éléments div html dans la collection.

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

HTMLDivisions.NestingLevel Renvoie le niveau d'imbrication de DIV HTML spécifiés des éléments.

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

HTMLDivisions.Parent Renvoie un Object qui représente l'objet parent de l'objet HTMLDivisions spécifié.

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