Supportnet / Forum / Textverarbeitung
Makro für Formular
Frage
Hi!
Ich habe einen Formular (UserForm) mit Feldern ("Name", "Adresse", usw.)erstellt. Diese Felder (Textmarken?) sollen sich im Dokument an bestimmten Stellen (Zeilen) wiederfinden. Leider bin ich zu doof ein Makro für "btn_Ok" zu schreiben. Wo finde ich die Befehle bzw. Makros um diese Aufgabe zu meistern.
Piotr
Antwort 1 von Gockel
Hallo, Piotr
Die Inhalte der Textfelder musst Du in Dokumentvariablen speichern. Dokumentvariable können nur über VBA angesprochen werden.
Hierzu schreibst Du in der Routine "btn_Ok_Click" die Anweisung zur Wertzuweisung der Dokumentvariablen:
On Error Resume Next
ActiveDocument.Variables.Add "Name"," "
ActiveDocument.Variables("Name") = txtName
Die Anweisungen wiederholst Du für jedes Feld aus dem Formular.
Du musst aber bei der Add-Anweisung unbedingt ein Leerzeichen als Wert zuweisen. Sonst legt Word keine Dokumentvariable an.
Im Dokument fügst Du dann an den entsprechenden Stellen die Feldfunktion ein:
{DOCVARIABLE "Name"}
Wenn Du dann noch am Ende der Routine die Anweisung
ActiveDocument.Fields.Update
stehen hast, werden auch gleich die Felder aktualisiert.
Dies funktioniert bei Word97/2000. Wie es bei XP aussieht, weiss ich nicht.
CU Gockel
Die Inhalte der Textfelder musst Du in Dokumentvariablen speichern. Dokumentvariable können nur über VBA angesprochen werden.
Hierzu schreibst Du in der Routine "btn_Ok_Click" die Anweisung zur Wertzuweisung der Dokumentvariablen:
On Error Resume Next
ActiveDocument.Variables.Add "Name"," "
ActiveDocument.Variables("Name") = txtName
Die Anweisungen wiederholst Du für jedes Feld aus dem Formular.
Du musst aber bei der Add-Anweisung unbedingt ein Leerzeichen als Wert zuweisen. Sonst legt Word keine Dokumentvariable an.
Im Dokument fügst Du dann an den entsprechenden Stellen die Feldfunktion ein:
{DOCVARIABLE "Name"}
Wenn Du dann noch am Ende der Routine die Anweisung
ActiveDocument.Fields.Update
stehen hast, werden auch gleich die Felder aktualisiert.
Dies funktioniert bei Word97/2000. Wie es bei XP aussieht, weiss ich nicht.
CU Gockel