Objet HTMLDivision (Word)
Représente un seul élément HTML DIV dans un document web. L'objet HTMLDivision est un membre de la collection HTMLDivisions.
Remarques
Utilisez HTMLDivisions (Index), où Index fait référence à la division HTML du document, pour renvoyer un objet HTMLDivision. Utilisez la propriété Borders pour les propriétés de bordure de format pour une division HTML. Cet exemple montre comment mettre en forme trois divisions imbriquées du document actif. Cet exemple suppose que le document actif est un document HTML au moins trois divisions.
Sub FormatHTMLDivisions()
With ActiveDocument.HTMLDivisions(1)
With .Borders(wdBorderLeft)
.Color = wdColorRed
.LineStyle = wdLineStyleSingle
End With
With .Borders(wdBorderTop)
.Color = wdColorRed
.LineStyle = wdLineStyleSingle
End With
With .HTMLDivisions(1)
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderRight)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
End With
With .Borders(wdBorderBottom)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
With .HTMLDivisions(1)
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderLeft)
.Color = wdColorBlack
.LineStyle = wdLineStyleDot
End With
With .Borders(wdBorderTop)
.Color = wdColorBlack
.LineStyle = wdLineStyleDot
End With
End With
End With
End With
End Sub
Divisions HTML peuvent être imbriquées au sein de plusieurs divisions HTML. Utilisez la méthode HTMLDivisionParent pour accéder à une division HTML parente de la division HTML active. Cet exemple montre comment mettre en forme des bordures de deux divisions HTML du document actif. Cet exemple suppose que le document actif est un document HTML au moins deux divisions.
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
Voir aussi
Référence du modèle objet Word
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour