title image


Smiley Re: Autotexte per VBA auslesen - Word97
Hallo



Wenn ein Dokument geöffnet und aktiv ist, welches mit der Dokumentvorlage, welches die AutoTexte enthält verbunden ist, dann etwa wie folgt:



Bye



Sub ATSchleife()  Dim oV As Template, oDoc As Document, ATE As AutoTextEntry, AT() As String  Set oV = ActiveDocument.AttachedTemplate  Anz = oV.AutoTextEntries.Count  If Anz = 0 Then    MsgBox "Die Vorlage " & oV.Name & " enthält keine AutoText-Einträge."    Exit Sub  End If  ReDim AT(Anz - 1, 3)  i = -1  For Each ATE In oV.AutoTextEntries    i = i + 1    tmp = ATE.StyleName    For j = Len(tmp) To 32      tmp = tmp & " "    Next j    AT(i, 0) = tmp & ATE.Name    AT(i, 1) = ATE.Name    AT(i, 2) = ATE.StyleName    AT(i, 3) = ATE.Value  Next  If i > 0 Then WordBasic.SortArray AT()  Set oDoc = Documents.Add  oDoc.Styles(wdStyleNormal).ParagraphFormat.TabStops.Add CentimetersToPoints(5)  For i = 0 To Anz - 1    If Not AT(i, 2) = savStyle Then      oDoc.Range.InsertAfter AT(i, 2) & Chr(13)      oDoc.Paragraphs.Last.Previous.Style = wdStyleHeading2    End If    oDoc.Range.InsertAfter AT(i, 1) & vbTab & AT(i, 3) & Chr(13)    oDoc.Paragraphs.Last.Previous.Style = wdStyleNormal    savStyle = AT(i, 2)  Next iEnd Sub

Häufig gestelllte Fragen zu MS Word und Word-VBA
Index Inhalt



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: