Office: (Office 2010) Formularfelder automatisch nach eingabe aktualisieren

Hallo, ich habe ein kleines Problem. Ich habe ein Word-Dokument mit zwei Textformularfeldern. Das eine heisst Text1 das andere Text2. Ich versuche über VBA es so zu realisieren, dass Text2 immer den Wert von Text1 übernimmt. Auch wenn beim laufenden Betrieb der Wert im Text1 sich ändert soll der im Text2 automatisch mitgeändert werden.
Bis habe ich so ein Code:
Code:

Ich habe ein UserForm und dort ein Button erstellt um es zu testen. Geht auch aber wie kriege ich es, dass es automatisch aktualisiert wird?

:)

 

Hallo snboy,

schreibe unter deine Zeile noch:
Activedocument.fields.update

Es ginge übrigens auch ganz ohne Makro:

Aktiviere dazu in den Eigenschaften von Formfield("Text1") die Option: "Beim Berechnen verlassen" und erstelle dort, wo du die Kopie haben willst, einen Querverweis (Einfügen > Querverweis > Verweistyp: Textmarke > Verweisen auf: Textmarkeninhalt) auf den Text1.

 

Ok, das ist jetzt mein Code:
Code:

Funktioniert aber irgendwie nicht. Also passiert gar nichts. Das mit dem Querverweis habe ich auch schon im Netz gefunden, jedoch klappt es in meinem Dokument nicht. Keine was ich genau falsch mache. Aber er übernimmt einfach nichts.

 

Hallo snboy,

zum Makro:
es sollte starten, wenn du das Dokument öffnest. Wenn gar nichts passiert, also nicht mal ne Fehlermeldung, dann könnte folgendes sein:

das Makro springt überhaupt nicht an (teste dies, indem du als erstes die Zeile msgbox "losgehts" oder so einfügst).

Wenn sich dann immer noch nichts tut, vermute ich, dass du nicht ein gewöhnliches Dokument öffnest, sondern ein Dokument auf Basis einer Vorlage (z.B. über Datei > Neu, oder Doppelklick der Vorlage. In dem Fall muss die erste Zeile lauten: Sub document_new()

Wenn aber die Meldung kommt, könnte es noch sein, dass das Formfeld Text1 zu dem Zeitpunkt leer ist.

Wenn das alles nichts bringt, lade doch ein Musterdokument hoch.

 

ooooooooooooooooooooooooooooooo, ist echt zum verzweifeln. so ein kleinkram und ich kriege es nciht hin

 

Also so sieht das ganze aus:
Code:

Es kommen keine Fehlermeldungen. Wenn ich das Dokument öffne kommt die MsgBox Meldung. Der Text von Feld 1 wird aber nicht in Feld 2 übertragen, sondern gelöscht. Wenn ich das mit Fields.Update ausschalte geht es manuel aber nicht automatisch.

 

hallo nochmal,

meinen Versuchen nach wird auch ohne fields.update aktualisiert. Wenn du es bei dir aus irgendwelchen Gründen einsetzen musst, dann natürlich NACH der Zeile ActiveDocument.FormFields("Text2").Result = ActiveDocument.FormFields("Text1").Result, und nicht davor.

Mehrere Sachen sind mir noch nicht klar:

• Was wird gelöscht? Der Inhalt von Formfeld text2? Oder das komplette Formfeld?
• Du schriebst, dass du den Code von einer Userform aus startest. Davon seh ich in deinem Code aber nichts?
• Was bedeutet: "Wenn ich das mit Fields.Update ausschalte geht es manuel aber nicht automatisch". Das ist doch ein Makro? Was kann da manuell gehen?

Irgendwo musst du noch geheimnisvollen Code versteckt haben, oder dein Dokument enthält irgendwas, was ich jetzt nicht überblicke. Bevor wir weiter im Kaffeesatz lesen, lad doch ein Musterdokument hoch.

 

Ok, es hat funktioniert. War wohl so blöd und habe anstatt eines Makros zu erstellen irgendwelche Prozeduren geschrieben. Man, man, man. Aber vielen vielen Dank für die Hilfe.

 

Hier der funktionierende Code: Code: