Ein Makro klebt Post-Its auf Seiten eines Dokuments

Manche Leute sind regelrecht süchtig nach den kleinen, gelben Haftnotizen. Sie müssen auch in Word nicht auf Ihre kleinen Zettel verzichten, wenn sie eine gut sichtbare Notiz auf einem Dokument hinterlassen wollen. Gegenüber der Anmerkungsfunktion von Word haben diese Post-Its einige klare Vorteile: Man sieht sie viel besser und man muß auf seine liebgewonnenen Gewohnheiten im Umgang mit echtem Papier nicht verzichten.
Das untenstehende Makro fügt eine gelbe Haftnotiz rechts neben dem Absatz ein, in dem sich der Cursor gerade befindet. Sie ist mit der Absatzmarke verankert, wandert also mit, wenn ober- oder unterhalb dieses Absatzes etwas eingefügt wird. Sollte Ihnen die Position nicht gefallen etwa, weil sie Textbereiche verdeckt können Sie den Zettel per Drag and Drop an eine andere Stelle "kleben".
Wenn sich auf dem Dokument keine anderen Zeichnungsobjekte befinden, müssen Sie die Post-Its vor dem Ausdruck nicht einmal entfernen. Wechseln Sie einfach in das Menü »Extras | Optionen« und deaktivieren Sie die Option »Zeichnungsobjekte« im Bereich »Mit Dokument ausdrucken« auf der Registerkarte »Drucken«. So richtig praktisch wird das Makro aber erst, wenn Sie es als Schaltfläche in Ihre Symbolleiste integrieren.
Post-It Makro:
Sub MAIN
ZeichnungTextfeld
FormatZeichnungsElement .Registerkarte = "2",
.Füllfarbe = "7", .LinieFarbe = "", .FüllmusterFarbe = "8",
.Füllmuster = "1", .LinieDef = 0, .LinienArt = - 1,
.LinienStärke = "", .PfeilArt = - 1, .PfeilBreite = - 1,
.PfeilLänge = - 1, .schattiert = 1, .AbgerundeteEcken = 0,
.HorizontalPos = "12 cm", .HorizontalVon = 0, .VertikalPos = " cm", .VertikalVon = 2,
.VerankerungsPunktFixieren = 1, .Höhe = "4 cm", .Breite = "6 cm", .Innenrand = "1 pt"
End Sub