Aus Excel in Word Textfeld / Formular

amintire · 1970-01-01T00:00:00+00:00

Guten Abend alle zusammen, hat jemand evtl eine Lösung wie ich aus einem Excel Formular die Eingabe im Textfeld in Word in ein Textfeld einfügen kann (per VBA). Die Word Datei ist als .dot gespeichert und befindet sich z.b. auf C Laufwerk. Vielleicht gibt es ja schon Lösungen zu so einem Vorhaben. Vielen Dank. Gruß amintire

Hallo amintire,
im Prinzip funktioniert es so. Aus deiner Frage geht aber nicht hervor welcher Art das textfeld in Word ist.
Ich hoffe das hier kein Unterschied zwischen der 2003er und 2007er-Version von Office ist. Für Formularfelder hat es so auch schon unter Office 97 funktioniert.
Gruß
Franz

Sub Daten_von_Excel_UF_nach_Word_Textbox()
'Fügt Daten aus Excel-UF in ein Wordokuments ein
'Erstellt unter Excel 2007 / Word 2007
' Für Funktion des Makros muss im Excel VBA-Editor unter Extras-Verweise _
die Microsoft Word X.Y Object Library aktiviert werden
'Word muss vor dem Starten des Makros geöffnet sein!
Dim wdDoc As Document, wks As Worksheet
'Neues Worddokument auf Basis eine Vorlage öffnen
Word.Documents.Add Template:="C:\Users\Public\Vorlagen\Word\TestTemplate.dot"
Set wdDoc = ActiveDocument 'Dokument kann natürlich auch anders gesetzt werden
With wdDoc
'Daten in Worddokument einfügen
.Application.WindowState = wdWindowStateMinimize
'Daten in Texteingabefeld in Wordformular eintragen. Name des Formularfeldes anpassen!
.FormFields("TextVonExcel").Result = UserForm1.TextBox1
'Daten in Text Box in Word eintragen. Name der Textbox anpassen!
.Shapes("Text Box 2").TextFrame.TextRange.Text = UserForm1.TextBox1
End With
MsgBox "Daten sind übertragen"
End Sub

Hallo Amintire,
als ich schreib hier selten Unfug und das Öffnen der Word-Vorlagedatei als neues Dokument funktioniert bei mir einwandfrei. Ich weiß auch nicht welche Einstellungen man ggf. Anpassen muss, damit es funktioniert.
Hier eine Variation der Haupt-Prozedur für den Datentransfer nach Word. Diese funktioniert bei mir unabhängig davon, ob Word geöffnet ist oder nicht, und es wird eine 2. Instanz von Word gestartet.
Gruß
Franz

Sub Daten_von_Excel_nach_Word_Textmarken(arrTexte, arrTextmarken)
'Fügt Daten aus Excel in ein Wordokument basierend auf einer Vorlagedatei _
an Textmarken ein
'Erstellt unter Excel 2007 / Word 2007
' Für Funktion des Makros muss im Excel VBA-Editor unter Extras-Verweise _
die Microsoft Word X.Y Object Library aktiviert werden
'arrTexte = Array mit den in Word einzutragenden Texten
'arrTextmarken = Array mit den Bezeichnungen der Textmarken, an denen die _
Texte eingefügt werden sollen.
'Die beiden Arrays müssen gleich groß sein!
Dim objWord As New Word.Application
Dim wdDoc As Word.Document, objWordTextmarke As Word.Bookmark, intI As Long
Dim strVorlage As String
On Error GoTo Fehler
'Prüfen der Arraygrößen
If UBound(arrTexte)  UBound(arrTextmarken) Then Err.Raise Number:=9
'Name und Verzeichnis der Vorlage anpassen!
strVorlage = "C:\Users\Public\Vorlagen\Word\TestTemplate.dot"
If Dir(strVorlage) = "" Then Err.Raise Number:=5151
'Neues Worddokument auf Basis einer Vorlage öffnen.
Set wdDoc = objWord.Documents.Add(Template:=strVorlage)
With wdDoc
'Daten in Worddokument einfügen
.Application.WindowState = wdWindowStateMinimize
'Daten an Textmarke(n) im Worddokument eintragen.
For intI = LBound(arrTexte) To UBound(arrTexte)
Set objWordTextmarke = .Bookmarks(arrTextmarken(intI))
objWordTextmarke.Range.Text = arrTexte(intI)
Resume01:
Next intI
End With
MsgBox "Daten sind übertragen"
objWord.Visible = True
Err.Clear
Fehler:
With Err
If .Number  0 Then
Select Case .Number
Case 9
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description & vbLf & vbLf _
& "Die Arrays für Texte und Textmarken müssen die gleiche " _
& "Anzahl Elemente haben!"
Case 5151
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description & vbLf & vbLf _
& "Bitte Verzeichnis\Datei-Name der Dokumentvorlage in Prozedur " _
& """Daten_von_Excel_nach_Word_Textmarken"" prüfen!"
Case 5941
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description & vbLf & vbLf _
& "Textmarke """ & arrTextmarken(intI) _
& """ existiert in der Dokumentvorlage nicht! " _
& "Bitte Bezeichnungen der Textmarken prüfen!"
Resume Resume01
Case Else
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
End Select
End If
End With
End Sub

Aus Excel in Word Textfeld / Formular

Forumthread: Aus Excel in Word Textfeld / Formular

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Excel Daten in Word Formular Einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Aus Excel in Word Textfeld / Formular

Forumthread: Aus Excel in Word Textfeld / Formular

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Excel Daten in Word Formular Einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread