Vorhandenen AutoText ins Dokument einfügen (Teil 2)

Hier eine Alternative zum aufgezeichneten Code. Es wird wieder ein vorhandener AutoText in das Dokument an der aktuellen Cursorposition eingefügt. Hier ist nur der Unterschied, dass zunächst der Name des AutoTextes eingefügt wird und anschließend dieser Name durch den AutoText ersetzt wird:

001
002
003
004
005
006
007
008

Sub Autotext_einfuegen()

    'der Autotext "Vertraulich" wird in das Dokument eingefügt
   Selection.TypeText Text:="Vertraulich"
   Selection.Range.InsertAutoText

End Sub

In Zeile 3 wird nur der Text eingefügt, und anschließend durch den AutoText selbst ersetzt.

Sollte der AutoText nicht in der Dokumentvorlage vorhanden sein, wird ein Fehler ausgelöst.

zurück zur Übersicht Autotexte