Alle AutoTexte in ein Array lesen

Diese Beispiel zeigt, wie Sie alle AutoTexte der Vorlage des aktuellen Dokuments in ein Array einlesen können. Dabei wird sowohl der Name des Autotextes als auch der Inhalt in das Array geschrieben:

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022

Sub Autotexte_in_Array()
   Dim Autotext As AutoTextEntry
   Dim MyTemplate As Template

   Dim z As Long

    'die aktuelle Vorlage zuordnen
   Set MyTemplate = ActiveDocument.AttachedTemplate

    'das Array dimensionieren
   ReDim Eintrag_(2, MyTemplate.AutoTextEntries.Count)
   z = 0

    'alle Autotexte auslesen
   For Each Autotext In ActiveDocument.AttachedTemplate.AutoTextEntries
       Eintrag_(0, z) = Autotext.Name
       Eintrag_(1, z) = Autotext.Value
       z = z + 1
   Next Autotext

End Sub

In den Zeilen 15 bis 19 werden die AutoTexteinträge der Reihe nach ausgelesen und in das Array geschrieben. Das Array Eintrag_(z, 0) bedeutet hier den Namen des AutoTextes und das Array Eintrag(z, 1) nimmt den Inhalt auf.

zurück zur Übersicht Autotexte