PDA

Vollständige Version anzeigen : Alle FormFields im Dokument durchnummerieren


Major_Nese
02.07.2009, 15:22
Hallo,

ich habe ein kleines Problem. Ich habe ein Word-Dokument mit sehr vielen Formularfelder (so um die 300 Stück). Nun möchte ich das alle Textfelder im Dokument durchnummeriert werden un den Namen "Text1" "Text2" usw bekommen. Das gleiche gilt für Checkboxen ("Check1" "Check2" usw.)

Habe jetzt ewig an einem Makro rumgebastellt. Es funktioniert eigentlich schon. Aber nur wenn die Formularfelder in normalen Absätzen stehen. Meine Felder sind jedoch in einer riesigen Tabellen untergebracht. Irgendwie kommt mein Makro da nicht an die Formularfelder dran. Ich denke es liegt sicher an der Tabelle.

Muss dazu sagen das nicht so der VBA Profi bin.

Wäre cool wenn mir jemand helfen könnte. Danke schonmal im vorraus!


Hier mal mein Code:


Sub Felder_durchnummerieren()
'geht nicht in tabelle


Dim x As FormField
Dim i As Integer
Dim j As Integer

i = 0
j = 0

For Each x In ActiveDocument.FormFields

If x.Type = wdFieldFormTextInput Then
i = i + 1
x.Name = "Texti" & i
End If

If x.Type = wdFieldFormCheckBox Then
j = j + 1
x.Name = "Checki" & j
End If

Next x


End Sub

PapaSchlumpf
02.07.2009, 16:31
Hi

funktioniert eigentlich schon.
Sub FFNumbering()
Dim ff As FormField
Dim i As Integer
Dim j As Integer
Dim k As Integer

i = 0
j = 0
k = 0
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then ActiveDocument.Unprotect
For Each ff In ActiveDocument.FormFields
ff.Select
ff.Name = "xxx"
Select Case ff.Type
Case wdFieldFormTextInput
i = i + 1
ff.Name = "Text" & i
Case wdFieldFormCheckBox
j = j + 1
ff.Name = "Check" & i
Case wdFieldFormDropDown
k = k + 1
ff.Name = "Drop" & i
End Select
Next ff
ActiveDocument.Protect wdAllowOnlyFormFields
End Sub

allerdings ist es wenig hilfreich nur zu sagen, dass etwas nicht funktioniert ohne mitzuteilen was genau nicht klappt (Fehlermeldung?)

PS