Hi,
manchmal tritt bei Formularen in Word das Phänomen auf, dass die Textmarken plötzlich verschwunden sind.
Wer kennt das. Gibt es eine Möglichkeit, das ganze zu vermeiden.
Könnte man ein Makro schreiben, das die Textmarken wieder herstellt?
Über Antworten würde ich mich freuen.
Gruß
Thomas Sattler
Hi,
manchmal tritt bei Formularen in Word das Phänomen auf, dass
die Textmarken plötzlich verschwunden sind.Wer kennt das. Gibt es eine Möglichkeit, das ganze zu
vermeiden.
Könnte man ein Makro schreiben, das die Textmarken wieder
herstellt?
Habe selbst eine Lösung gefunden:
Das folgende Makro durchläuft alle Formularfelder und setzt die Textmarken auf den Namen des Formularfelds. Falls das Dokument geschützt war, wird es am Schluss wieder geschützt, ohne die eingetragenen Texte überschrieben werden.
Sub TextmarkenSetzen()
Dim oDoc As Document
Dim Schutz As Boolean
Set oDoc = ActiveDocument
Dim xFeld As FormField
If oDoc.ProtectionType > 0 Then
oDoc.Unprotect
Schutz = True
End If
For Each xFeld In oDoc.FormFields
FormFeldname = xFeld.Name
oDoc.Bookmarks.Add _
Range:=oDoc.FormFields(xFeld.Name).Range, _
Name:=FormFeldname
Next
If Schutz Then
oDoc.Protect Type:=wdAllowOnlyFormFields, _
Noreset:=True, Password:=""
End If
End Sub
Th. Sattler
Über Antworten würde ich mich freuen.
Gruß
Thomas Sattler