HTMLDivision-Objekt (Word)
Stellt ein einzelnes HTML DIV-Element in einem Webdokument dar. Das HTMLDivision-Objekt ist ein Element der HTMLDivisions-Auflistung.
HinwBemerkungeneise
Verwenden Sie HTMLDivisions (Index), wobei Index auf die HTML-Division im Dokument verweist, um ein einzelnes HTMLDivision-Objekt zurückzugeben. Verwenden Sie die Borders-Eigenschaft , um Rahmeneigenschaften für eine HTML-Division zu formatieren. In diesem Beispiel werden drei geschachtelte Bereiche im aktiven Dokument formatiert. In diesem Beispiel wird vorausgesetzt, dass das aktive Dokument ein HTML-Dokument mit mindestens drei Bereichen ist.
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
HTML-Bereiche können innerhalb mehrerer HTML-Bereiche verschachtelt sein. Verwenden Sie die HTMLDivisionParent-Methode , um auf eine übergeordnete HTML-Division der aktuellen HTML-Division zuzugreifen. In diesem Beispiel werden die Rahmen für zwei HTML-Bereiche im aktiven Dokument formatiert. In diesem Beispiel wird vorausgesetzt, dass das aktive Dokument ein HTML-Dokument mit mindestens zwei Bereichen ist.
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
Siehe auch
Referenz zum Word-Objektmodell
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für