Office: Wie erstelle ich eine Eingabemaske für Vorlagen?

Ich hab es geschafft, so ein Schmarren. Die Vorlage selbst mit Doppelklick oder Rechtsklick öffnen geht nicht bzw. ergibt nur eine Doc aus der Vorlage.

Man muß in Word im Menü auf Öffnen gehen, dann die Vorlage suchen und unten sieht man dann ein Dropdown Menü, in welchem man auswählen kann, ob man das Original oder eine Kopie etc. öffnen möchte.

Das war mal eine dezent schwere Geburt.

 

Gerade ist mir noch eine Sache aufgefallen. Ich habe Textmarken gesetzt und festgestellt, daß ich die selbe Textmarke z.B. VornameKunde nicht mehrmals in meinem Dokument verwenden kann. Muß ich dann statt dessen ein Textfeld-Formularsteuerelement aus dem Entwicklerbereich verwenden?

Wie ändert sich dadurch mein Code? Aktuell lautet er:

Dim VornameKunde As Range
Set VornameKunde = ActiveDocument.Bookmarks("VornameKunde").Range
VornameKunde.Text = Me.TextBox5.Value
Me.Repaint

 

Hallo mac,

das gehört so, dass eine Textmarke einzigartig im Dokument ist. Das ist bei den Formularsteuerelementen genau so. Und Inhaltssteuerelemente gibts nicht auf dem Mac? Jedenfalls fragt ein Guido das ganze Internet danach durch und kriegt nie eine Antwort.

Kopien aus Textmarken an anderen Stellen im Dokument gehen im Windows-Word per Einfügen > Feld > Querverweis. Vielleicht findest du was Entsprechendes.

 

Also beim Mac nennt sich das Textfeld-Formularsteuerelement. Hab dir mal ein Foto des Entwicklerbereiches beigefügt.

Wir können ja mal versuchen, ob es damit klappt und wir nur einen anderen Namen dafür haben.

Wenn ich so ein Teil einfüge und dann auf dessen Eigenschaften klicke, siehst du das Popup dazu auch im Anhang als Bild. Denkst du es könnte damit gehen?

Wie müsste ich dann den Code ändern?

Zu deinem Vorschlag mit dem Querverweis. Das würde gehen, hätte aber den Nachteil, daß ich glaub auch die Formatierung mitnehme. Und die unterscheidet sich bei mir, auch wenn es sich immer z.B. um den Kundennamen handelt. Daher würde ich diese Variante erst als Notlösung wählen.

Dritte Alternative wäre ja auch, VornameKunde1, VornameKunde2... die Textmarke quasi zu nummerieren und dann im Code es wie folgt zu schreiben:

Dim VornameKunde1 As Range
Set VornameKunde1 = ActiveDocument.Bookmarks("VornameKunde1").Range
VornameKunde1.Text = Me.TextBox5.Value

Dim VornameKunde2 As Range
Set VornameKunde2 = ActiveDocument.Bookmarks("VornameKunde2").Range
VornameKunde2.Text = Me.TextBox5.Value

Me.Repaint

Etwas nervig, aber wäre glaub eine Lösung. Lass es uns aber mal mit der ersten Variante probieren.

Hast du mir dazu den entsprechenden Codeschnipsel?

 

Hallo mac,

vorab eine methodische Bemerkung: angesichts unserer misslichen Lage, dass ich noch nie einen Mac gesehen, und du wenig Ahnung von VBA hast, sollten solche Sätze nicht sein: "(Querverweise) hätten aber den Nachteil, daß ich glaub auch die Formatierung mitnehme."

Das ist dein Part, es rauszufinden. Du sitzt vor dem Mac. Im Windows-Word übernimmt der Querverweis die Schriftformatierung des Absatzes , in den er eingefügt wird, es sei denn, die Quell-Textmarke schließt eine Absatzmarke mit ein. Aber das hast du ja in der Hand, diese Ausnahme auszuschließen. Insofern halte ich den Querverweis immer noch das Mittel der Wahl.

Dass du zwei gleichnamige Formularfelder einsetzen kannst, glaub ich nicht. So ein Ding besitzt automatisch eine Textmarke und es kann deshalb keine zwei gleichen geben. Auch das kannst du selber ausprobieren, ganz jenseits von VBA und deinem Projekt:
Nimm ein leeres Dokument, und füge zwei Formularfelder ein. Sieh nach, sie die zugehörigen Textmarken heißen. Versuche dann, dem zweiten Feld gleich dem ersten zu benennen. In der Windows-Welt ist das nicht möglich; eins von den Formularfeldern verliert seinen Textmarkennamen und ist daher nicht mehr per VBA ansprechbar.

Ein Formularfeld füllt man in der Windowswelt z.B. so:
Activedocument.Formfields("derNameDerTextmarke").Result = me.Textbox5.Value. Und darauf kannst du genau so einen Querverweis setzen wie auf eine bloße Textmarke.

Ein Formularfeld könnte gegenüber einer Textmarke einen Vorteil haben. In der Windows-Welt werden Textmarken beim Füllen zerstört und müssen erst wieder hergestellt werden. Bei Formularfeldern passiert das nicht.
So dass die Kombination Formularfeld > Querverweis vielleicht die günstigste Wahl ist.

Ich seh übrigens keinen Screenshot..

 

Hallo Gerhard,

entschuldige, letztes Mal war ich etwas in Eile.
Hier die konkrete Antwort: Querverweise nehmen auch die Formatierung mit. Daher kam das für mich nicht in Frage.

Ich hab es jetzt wie Folgt gelöst und bin mit dem Ergebnis absolut zufrieden:

Dim VornameKunde1 As Range
Set VornameKunde1 = ActiveDocument.FormFields("VornameKunde1").Range
VornameKunde1.Text = Me.TextBox5.Value

Dim VornameKunde2 As Range
Set VornameKunde2 = ActiveDocument.FormFields("VornameKunde2").Range
VornameKunde2.Text = Me.TextBox5.Value

Dim VornameKunde3 etc.

Ich hab einfach den gleichen Verweis durchnummeriert und mich immer auf die selbe Textbox bezogen.

Jetzt muß ich nur noch schauen, wie ich meinen Radio Button richtig programmiere, aber dazu schau ich erst mal bei Google etwas nach und erstell zur Not ein neues Thema hier.

An dieser Stelle nochmal ein herzliches Dankeschön für deine Hilfe!

Gruß mac