Handbuch BasicMaker 2010 - SoftMaker

With tm.ActiveDocument.Paragraphs.Item(1)
.Borders(tmBorderLeft).Type = tmLineStyleSingle
.Borders(tmBorderLeft).Thick1 = 4
.Borders(tmBorderLeft).Color = smoColorBlue
.Borders(tmBorderRight).Type = tmLineStyleDouble
.Borders(tmBorderRight).Thick1 = 1
.Borders(tmBorderRight).Thick2 = 1
.Borders(tmBorderRight).Color = smoColorRed
End With
Set tm = Nothing
End Sub
Border (Objekt)
Zugriffspfade für Umrandungen von Absätzen:
Application Documents Item Paragraphs Item Borders Item
Application ActiveDocument Paragraphs Item Borders Item
Zugriffspfade für Umrandungen von Tabellen:
Application Documents Item Tables Item Borders Item
Application ActiveDocument Tables Item Borders Item
Zugriffspfade für Umrandungen von Tabellenzeilen:
Application Documents Item Tables Item Rows Item Borders Item
Application ActiveDocument Tables Item Rows Item Borders Item
Zugriffspfade für Umrandungen von Tabellenzellen:
Application Documents Item Tables Item Cell(x, y) Borders Item
Application ActiveDocument Tables Item Cell(x, y) Borders Item
Application Documents Item Tables Item Rows Item Cells Item Borders Item
Application ActiveDocument Tables Item Rows Item Cells Item Borders Item
1 Beschreibung
Ein Border-Objekt repräsentiert jeweils eine der Umrandungslinien von Absätzen, Tabellen, Tabellenzeilen beziehungsweise
Tabellenzellen (z.B. die obere, untere, linke oder rechte Linie). Es lässt Sie die Liniendicke, Farbe etc. dieser
Umrandungslinie auslesen und setzen.
2 Zugriff auf das Objekt
Die einzelnen Border-Objekte können ausschließlich über die Borders-Sammlung eines Absatzes, einer Tabelle, einer
Tabellenzeile oder einer Tabellenzelle angesprochen werden. Hierbei übergeben Sie der Borders-Sammlung als Parameter
die Nummer der Umrandungslinie, die Sie ansprechen möchten:
tmBorderTop
tmBorderLeft
tmBorderBottom
tmBorderRight
tmBorderHorizontal
tmBorderVertical
tmBorderBetween
= -1 ' Obere Umrandungslinie
= -2 ' Linke Umrandungslinie
= -3 ' Untere Umrandungslinie
= -4 ' Rechte Umrandungslinie
= -5 ' Horizontale Gitterlinie (nur bei Tabellen)
= -6 ' Vertikale Gitterlinie (nur Tabellen, Tabellenzeilen)
= -7 ' Umrandungslinie zwischen Absätzen (nur Absätze)
Einige Beispiele:
' Linke Umrandung des ersten Absatzes ändern
tm.ActiveDocument.Paragraphs(1).Borders(tmBorderLeft).Type = tmLineStyleSingle
' Obere Umrandung der ersten Tabelle ändern
tm.ActiveDocument.Tables(1).Borders(tmBorderTop).Type = tmLineStyleDouble
128 BasicMaker und TextMaker Handbuch BasicMaker 2010