Tips: Makro: Chemische Formeln schneller schreiben (CHIP 06/2000)

Makro: Chemische Formeln schneller schreiben

Wenn Sie hΣufig chemische Formeln schreiben mⁿssen, k÷nnen Sie sich mit dem folgenden Makro viele Mausklicks sparen. Das Makro formatiert nΣmlich alle Zahlen im zuletzt geschriebenen Wort als tiefgestellt. Um das Makro einzugeben, fⁿhren Sie den Befehl ╗Extras | Makro | Makros½ aus. Geben Sie einen Namen wie zum Beispiel ╗ChemieMakro½ ein und klicken Sie anschlie▀end auf die SchaltflΣche ╗Erstellen½. Nun geben Sie im VBA-Editor die folgenden Anweisungen ein. Oder schneller: Kopieren Sie sie von der beiliegenden Heft-CD. Sie finden das Makro unter CHIP-Code CHEMIE

Public Sub ChemieMakro ()

Dim Wortlaenge As Byte

Dim CharPos As Byte

Selection.MoveLeft

Unit:=wdWord,

Extend:=wdExtend

Wortlaenge = Selection.

Characters.Count

For CharPos = 1 To Wortlaenge

If (Asc (Selection.

Characters  (CharPos))

<59)And (Asc (Selection.

Characters (CharPos))>47)

Then Selection.

Characters (CharPos) .

Font.Subscript = True

End If Next CharPo s

Selection.MoveRight

Unit:=wdWord,

Extend:=wdMove

Selection.Font.Subscript

= False

End Sub

Und so funktioniert das Listing: Nach der Variablendefinition setzen die nΣchsten Befehle den Cursor an den Wortanfang und bestimmen die WortlΣnge. Die folgende Schleife testet anhand des ASCII-Codes jedes einzelne Zeichen im Wort, ob es sich um eine Ziffer handelt. In diesem Fall aktiviert das Makro das Format ╗tiefgestellt½. Schlie▀lich kommt der Cursor wieder an das Wortende und das Format in den Normalzustand. Das Makro k÷nnen Sie natⁿrlich auch auf eine Tastenkombination legen. Dazu fⁿhren Sie den Befehl ╗Extras | Anpassen½ aus und klicken auf die SchaltflΣche ╗Tastatur½. WΣhlen Sie links die Kategorie ╗Makros½ und rechts das zuvor verfasste ╗ChemieMakro½. Setzen Sie nun den Cursor in das Eingabefeld ╗Neuen Shortcut drⁿcken½ und wΣhlen Sie die gewⁿnschte Tastenkombination. Dann klicken Sie auf ╗Zuordnen½ und beenden den Dialog mit ╗Schlie▀en½. Nun k÷nnen Sie eine Zeichenfolge durch Drⁿcken der Tastenkombination in eine chemische Formel verwandeln.