Computer & Co
Makro für Markierungen auf A4-Papier zum Falten und Lochen:
Von Graukopf Karl
2. „Alt“-Taste drücken und halten und auf „F11“ klicken, „Alt“-Taste loslassen
3. Im nächsten erscheinenden Fenster den Eintrag „Normal“ markieren
4. Auf „Einfügen“ und „Modul“ klicken
5. Im neuen Fenster den nachfolgenden Text eintippen (genaue Eingabe der Zeichen
sowie der Leerzeichen!!)
Sub MarkierungSetzen()
Dim Objekt As Object
Dim Falt As Shape
Dim Loch As Shape
Set Objekt = ActiveDocument.Sections(1).Headers(1)
Set Falt = Objekt.Shapes.AddLine(CentimetersToPoints(0.5), _
CentimetersToPoints(5.6), _
CentimetersToPoints(1.5), _
CentimetersToPoints(5.6))
Falt.Line.Weight = 0.25
Falt.LockAnchor = True
Set Loch = Objekt.Shapes.AddLine(CentimetersToPoints(0.5), _
CentimetersToPoints(9.1), _
CentimetersToPoints(1), _
CentimetersToPoints(9.1))
Loch.Line.Weight = 0.25
Loch.LockAnchor = True
End Sub
6. Nun auf das „Speichern“-Symbol klicken, um das Makro zu speichern.
7. Bei gedrückter „Alt“-Taste auf „Q“ klicken
8. Nun ein Symbol bzw. Synonym in die Symbolleiste einfügen: Mit der rechten Maustaste
auf eine freie Stelle in der Symbolleiste (2.Leiste v.o.) klicken, im erscheinenden Menü
auf „Anpassen“ dann auf „Befehle“.
9. In der linken Spalte auf „Makros“ und dann in der rechten Liste auf den Eintrag
„Normal.Modul1.MarkierungSetzen“ , hier die Maustaste gedrückt halten und den
Eintrag per „drag&drop“ nach oben in die Symbolleiste (freie Stelle) ziehen, Maustaste
wieder loslassen.
10. Mit der rechten Maustaste auf den neuen Eintrag klicken und im aufklappenden Menü
auf „Name“ klicken. „Falz- und Lochmarkierung“ eintippen und mit der „Return-Taste“
bestätigen.
11. Das Fenster „Anpassen“ per Klick auf „Schließen“ beenden.
12. Das Setzen der Markierung geschieht nun nach Wunsch auf einem A4-Blatt durch
anklicken des Synonyms „Falz- und Lochmarkierung“ in der Symbolleiste.