Variablen nach Word übertragen

Peer · 2020-04-17T13:46:42+00:00

Hallo. Ich arbeite und zweifle die letzten Tage an dem Versuch, Variablen an Word zu übermitteln.Ich hoffe, es gibt hier Helfer, die sich auskennen. mit Bookmarks(Name).Range.Text = Variable (bzw. Wert der TextBox) kann man den Inhalt übermitteln. Das funktioniert auch soweit. Aber jetzt wollte ich z.B. das aktuelle Datum mit Bookmarks("aktDatum").Value = xlToday an Word schicken, aber da kommt nur Null an. Weitere Gedankengänge waren, ob man statt Textmarken (Bookmarks) nicht besser Steuerelemente im Worddokument nimmt. Das hat den Vorteil, das man sie direkt ansprechen könnte. Aber wie spricht man diese an? Hier gibt es Unterschiede bei Formularsteuerelement und ActiveX. Ich möchte gern das Datum, das ich in der UF der Excel-Datei eingebe, an das Worddokument übermitteln, das man aber in dem Worddokument über das Formular-Kalendersteuerelement abändern kann. Geht das überhaupt? Wie gehe ich das an? Wie würdet ihr vorgehen? Vielen Dank für jeden Vorschlag im Voraus. LG Peer

Hallo Matthias.
Ich nehme mal an, du hast dich auch im Word-Forum dazu gemeldet hast.
In beiden Fällen danke ich dir.
Ich habe mit beiden Versionen probiert. Aber es funktioniert die Inline Variante (noch) nicht.
Ich habe im Word-Doc ein Textfeld erstellt und darin ein Nur-Text-Inhaltsteuerelement eingefügt.
Ich habe auch nur das Inhaltsteuerelement eingefügt, komme aber zu keinem Ergebnis.
Im Excel Code habe ich


With objDocument
' Textmarken in Word füllen
'.Shapes("txbPersNrHoch").TextRange.Text = lst_TN_Auswahl.List(0, 3)
.bookmarks("PersNr").Range.Text = lst_TN_Auswahl.List(0, 3)
.bookmarks("Teilnehmer").Range.Text = lst_TN_Auswahl.List(0, 2) & " " &  _
lst_TN_Auswahl.List(0, 1)
.bookmarks("Trainer").Range.Text = TrainerVorname & " " & TrainerName & " (" &  _
TrainerOE & ")"
.bookmarks("aktDatum").Range.Text = Date
.bookmarks("TeilnahmeDatum").Range.Text = dat_AusstellDatum
.bookmarks("Ausstellungsort").Range.Text = txt_AustellOrt
' Variante 1 von Matthias (funktioniert)
.TextBox1.Text = "was anderes"  'ActiveX TextBox
' Variante 2 von Matthias (funktioniert nicht)
.inlineshapes(1).OLEFormat.Object.Text = txt_AustellOrt  'Steuerelement "test" im  _
Textfeld
' Steuerelement in Word füllen
' Variante 1 von Gerhard aus MOF
.SelectContentControlsbyTag("aktDatum").Item(1).Range.Text = dat_AusstellDatum  ' _
nur Steuerelement "aktDatum"
End With

, wobei das Word-Doc als objDocument deklariert wurde.
LG
Peer


With objDocument
' Textmarken in Word füllen
'.Shapes("txbPersNrHoch").TextRange.Text = lst_TN_Auswahl.List(0, 3)
.bookmarks("PersNr").Range.Text = lst_TN_Auswahl.List(0, 3)
.bookmarks("Teilnehmer").Range.Text = lst_TN_Auswahl.List(0, 2) & " " &  _
lst_TN_Auswahl.List(0, 1)
.bookmarks("Trainer").Range.Text = TrainerVorname & " " & TrainerName & " (" &  _
TrainerOE & ")"
.bookmarks("aktDatum").Range.Text = Date
.bookmarks("TeilnahmeDatum").Range.Text = dat_AusstellDatum
.bookmarks("Ausstellungsort").Range.Text = txt_AustellOrt
' Variante 1 von Matthias (funktioniert)
.TextBox1.Text = "was anderes"  'ActiveX TextBox
' Variante 2 von Matthias (funktioniert nicht)
.inlineshapes(1).OLEFormat.Object.Text = txt_AustellOrt  'Steuerelement "test" im  _
Textfeld
' Steuerelement in Word füllen
' Variante 1 von Gerhard aus MOF
.SelectContentControlsbyTag("aktDatum").Item(1).Range.Text = dat_AusstellDatum  ' _
nur Steuerelement "aktDatum"
End With

, wobei das Word-Doc als objDocument deklariert wurde.
LG
Peer

Forumthread: Variablen nach Word übertragen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial