Bestimmen der horizontalen Position des Einfügepunkts (Microsoft Word)
Danny schreibt ein Makro und muss die horizontale Position der Einfügemarke relativ zum linken Rand in Zoll ermitteln. Dies kann mithilfe eines recht einfachen Makros erfolgen, z. B. des folgenden:
Sub HorPos() Location = Selection.Information( _ wdHorizontalPositionRelativeToTextBoundary) MsgBox PointsToInches(Location) End Sub
Das Makro verwendet die Information-Eigenschaft, um den Abstand von der Textgrenze in Punkten zu bestimmen. Dies wird dann in Zoll umgerechnet und angezeigt. Die Textgrenze ist meistens der linke Rand in einem normal formatierten Dokument. Unter bestimmten Umständen kann es sich auch um etwas anderes handeln, z. B. die Zellengrenze in einer Tabelle oder die Spaltengrenze in einem mehrspaltigen Format.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (3497) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: