Ich habe eine Tabelle aus einer Access97 DB nach Word97 exportiert. Diese besteht aus zwei Spalten. Word soll nun per Makro alle Zeilen durchlaufen und dabei die jeweiligen Feldinhalte zu den Autotexten hinzufügen. Wenn ich also später im Dokument den Wert der ersten Spalte eingebe, soll automatisch auch der Wert der zweiten Spalte ausgegeben werden.
Wer hat 'ne Idee ?
probier folgendes makro:
Sub MakeAutoText()
Dim Zeile As Row
Dim Vorlage As Template
Dim Bereich As Range
Dim Tname As String
For Each Zeile In ActiveDocument.Tables(1).Rows
Tname = Zeile.Cells(1).Range.Text
Tname = Left(Tname, Len(Tname) - 2)
If (Len(Tname) > 0) Then
Set Bereich = Zeile.Cells(2).Range
Set Bereich = ActiveDocument.Range(Bereich.Start, Bereich.End - 1)
Set Vorlage = ActiveDocument.AttachedTemplate
Vorlage.AutoTextEntries.Add Name:=Tname, Range:=Bereich
End If
Next
End Sub
erwin