FormFields automatisch doppelt befüllen
28.11.2018 14:49:10
Stefanie
Ich brauche mal wieder Hilfe. Ich habe eine Exceltabelle aus der ich automatisch eine Word-Vorlage befülle. Jetzt habe ich das PRoblem, dass ein Fehler kommt, wenn ein Text länger als 255 Zeichen ist.
Nach einiger Google Suche habe ich ein Makro gefunden, dass das Formfield mit den ersten 255 Zeichen befüllt und dann das gleiche Textfeld mit den nächsten 255 Zeichen befüllt, allerdings funktioniert das bei mir nicht.
Deshalb meine zwei Fragen:
1. gibt es die möglichkeit, dass mehr als 255 Zeichen eingetragen warden? (Im Word Dokument ist das Formfield auf Unbegrenzt setzt)
Oder
2. Was muss ich in dem Code ändern, dass das getrennte eintragen bei mir funktioniert?
Auschnitt aus meinem Code, für Punkt 1:
wdDok.FormFields("Testerwartung").result = Cells(i, Testerwartung.Column).Value
str = Cells(i, Testerwartung.Column).Value
filltext = str
lenfilltext = Len(filltext)
FirstBit = Left(filltext, 255)
If lenfilltext > 255 Then
secondbit = Mid(filltext, 256, lenfilltext - 255)
wdDok.FormFields("testerwartung").Result = FirstBit
Selection.Goto what:=wdGoToBookmark, Name:="Testerwartung"
Selection.InsertAfter secondbit
wdDok.FormFields.Add("Testerwartung").Result = secondbit
Else
wdDok.FormFields("testerwartung").Result = filltext
End If
"https://www.ms-office-forum.net/forum/archive/index.php?t-141623.html"
Ich hoffe, mir kann einer helfen.
Vielen Dank schonmal
Grüße
Steffi