Eingabemaske in Word?

Hallo, Ich möchte gerne eine Eingabemaske für eine Word-Datei erstellen. Die Userform habe ich bereits und auch die Textmarker, in denen die TextBoxen füllen sollen bzw. auch Daten automatisch aus den textmarker ziehen sollen. So sollen z.B. bei dein Empfängerdaten die Felder Abteilung, PVB und Tel.Nr. aus dem Dokument automatisch übernommen werden da diese in der Regel immer gleich sind, sollten aber auch bei Änderung übernommen werden. Bei den Absenderdaten ist es ähnlich. Hier sollen Abteilung und PVB übernommen werden. nachdem man dann auf übernehmen und drucken gedrückt hat sollten die Eingaben in den entsprechenden Textmarken geändert werden und die Seite gedruckt werden. Könnt Ihr da evtl. helfen?

Vielen Dank

Answer 1

[ProRatione]

Ich habe eine Möglichkeit gefunden, die bei mir, und ich hoffe auch allgemein, funktioniert:

Private Sub CommandButton1_Click()

    TMName = "Textmarke_Name"

    Dim TMRange As Range

    Set TMRange = ActiveDocument.Bookmarks(TMName).Range

    TMRange.Text = TextBox1.Value

    ActiveDocument.Bookmarks.Add Name:=TMName, Range:=TMRange

End Sub

Hier wird zuerst die Textmarke gesichert und nach der Änderung wieder hergestellt.

Ich hoffe es hilft dir.

Answer 2

[ProRatione]

Wenn du in deinem Word-Dokument eine Textmarke hast mit Namen

Textmarke_Name

dann sollte die Zuweisung (angepasst an deine Vorgaben) so aussehen:

ActiveDocument.Bookmarks("Textmarke_Name").Range.Text = TextBox1.Value

Comments

[RigaDone]

ja klappt soweit :) nun habe ich das Problem, dass nun die Textmarken nicht mehr da sind wenn ich das Makro nochmals aufrufe. Auch unter Textmarker sind diese jetzt weg. kann man dass irgendwie machen, dass die bestehenden marker bestehen bleiben?

 

[ProRatione]

@RigaDone

Wie man das vermeiden kann, weiß ich im Moment nicht. Es ist dafür vorgesehen, dass man immer eine neue Word-Vorlage mit den Daten quasi überschreibt.