Vorhandenen AutoText ins Dokument einfügen (Teil 1)

Ein für einen aufgezeichenten Code übersichtlicher Programmteil. Die Einstellungen, die der Makrorekorder automatisch mit aufzeichnet, halten sich in Grenzen und daher lässt sich diese Zeile wunderbar in den eigenen Code übernehmen:

001
002
003
004
005
006
007
008
009

Sub Autotext_einfuegen()
    '
    ' Autotext_einfuegen Makro
    ' Makro aufgezeichnet am xx.xx.2008 von www.vba-wordwelt.de
    '
      NormalTemplate.AutoTextEntries("VBA-WordWelt").Insert Where:=Selection.Range _

, RichText:=True

End Sub

In diesem Beispiel wird der AutoText mit dem Namen VBA-WordWelt an aktueller Cursorposition eingefügt, wobei natürlich der Wert für Where entsprechend verändert werden kann. Wie Sie aber bereits aus dem aufgezeichneten Code sehen, muss es sich um ein Range-Objekt handeln.

Der Wert für RichText gibt an, ob der AutoText mit seiner Formatierung eingefügt werden soll. Der hier aufgezeichnete Code stellt den Standardwert dar.

zurück zur Übersicht Autotexte