title image


Smiley Re: Word97 Abfrage der im Dokument vorhandenen Seriendruckfelder ?
Hi,



ich weiss nicht genau, welche Info du aus den Feldern brauchst, aber im Prinzip kannst du es dann umbauen.





Sub AlleFelder()

Dim MeinFeld As Field

Dim strListe As String



If ActiveDocument.Fields.Count > 0 Then

For Each MeinFeld In ActiveDocument.Fields

strListe = strListe & vbCr & MeinFeld.Code

Next

MsgBox strListe

Else

MsgBox "Kein Feld vorhanden im aktuellen Document."

End If



End Sub





Alexandra

Gruesse

Alexandra



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: