Sub InsHalbLeer 'Werner Roth tiberius@uni-paderborn.de 'Fügt ein "Halbes"-Leerzeichen ein (wird z.B. zum formatieren von langen 'Zahlenangaben, Datum usw. verwendet. 'Umschalt+Strg+2 'Wenn der Cursor auf Absatzende steht, füge noch ein Leerzeichen dahinter 'damit man ohne Format|Standard weiterschreiben kann. If Selection.Text.IsEndOfPara Then Selection.Text.Insert( Chr$(32) ) Selection.Text.GoLeft( 1, FALSE ) i% = 2 ELSE i% = 1 EndIf 'Nimm als "Leerzeichen" Chr(160), damit dieses nicht im Blocksatz auseinander- 'gezogen wird. Selection.Text.Insert( Chr$(160) ) Selection.Text.GoLeft( 1, TRUE ) Selection.Text.Font.Escapement = 1 Selection.Text.Font.RelativeSize = 30 Selection.Text.GoRight( i%, FALSE ) End Sub