Dim strVar As String
Dim strVar2 As String
Dim i As Integer
   
Set uidoc = ws.currentDocument
i = 1
Set doc = uidoc.document
strVar = "feld_"  + Cstr(i)

strVar2= uidoc.FieldGetText(strVar )

Probiers mit
for i = 1 to 5
   set item = doc.GetFirstItem("Feld_0" + Cstr(i))
   Feldwert = item.Values(0)
Next

HTH
-dani

Oder noch einfacher:  

for i = 1 to 5
  Feldwert = doc.GetItemValue("Feld_0" & i )
Next

Oder noch einfacher:  

for i = 1 to 5
  Feldwert = doc.GetItemValue("Feld_0" & i )
Next

Hi,

was ist daran einfacher  

Du hast lediglich die Dim - Anweisung weggelassen. Für die Funktion hast das mit Sicherheit keinen Einfluss. Allerdings sollten alle verwendeten Variablen deklariert werden. Das gehört zu einem guten Script-Stil.


Axel

Daß Variablen deklariert gehören ist sowieso klar. Deswegen hab ich es auch nicht geschrieben. (doc und i sind auch nicht deklariert...)

Das einfachere war, daß man ein(e) Integer mir einem & an einen String hängen kann, ohne ihn (sie) mit Cstr() in einen String umwandeln zu müssen.

Deine Zeile:
Feldwert = doc.GetItemValue("Feld_0" + Cstr(i))

Meine Zeile:
Feldwert = doc.GetItemValue("Feld_0" & i )

-dani