Klasse HTMLDivision - HTML-div-Element (Word VBA)

Die Klasse HTMLDivision stellt ein einzelnes HTML-div-Element in einem Webdokument dar.

Um eine HTMLDivision -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der HTMLDivision Klassenvariablen verwendet werden : HTMLDivisionParent, HTMLDivisions.Add und HTMLDivisions.Item.

For Each

Hier ist ein Beispiel für die Verarbeitung der HTMLDivision -Elemente in einer Sammlung

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

Borders

Gibt eine Borders -Auflistung zurück, die alle Rahmen für das angegebene Objekt darstellt.

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter zurückgeben eines Objekts aus einer Auflistung.

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

Delete

Löscht den angegebenen HTML-Bereich.

ActiveDocument.Range.HTMLDivisions(1).Delete

HTMLDivisionParent

Gibt ein HTMLDIVISION -Objekt zurück, das eine übergeordnete Division des aktuellen HTML-Bereichs darstellt.

HTMLDivisionParent (LevelsUp)

LevelsUp: Die zu zählende Anzahl der übergeordneten Abschnitte, um den gewünschten Abschnitt zurückzugeben.

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

Gibt ein HTMLDIVISIONS -Objekt zurück, das eine HTML-Abteilung in einem Webdokument darstellt.

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

Gibt einen einzelnen zurück, der den Wert des linken Einzugs (in Punkt) für den angegebenen HTML-Abschnitt darstellt, oder legt diesen fest.

ActiveDocument.Range.HTMLDivisions(1).LeftIndent =

Range

Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der im angegebenen Objekt enthalten ist.

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

RightIndent

Gibt den rechten Einzug (in Punkten) für die angegebenen Absätze zurück oder legt ihn fest.

ActiveDocument.Paragraphs.RightIndent = InchesToPoints(1)

SpaceAfter

Gibt den Abstand (in Punkt) nach dem angegebenen HTML DIV-Element zurück oder legt diesen fest.

ActiveDocument.Range.HTMLDivisions(1).SpaceAfter =

SpaceBefore

Gibt den Abstand (in Punkt) vor dem angegebenen HTML DIV-Element zurück oder legt diesen fest.

ActiveDocument.Range.HTMLDivisions(1).SpaceBefore =