Aus Excel in Word Textfeld / Formular

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

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

Beliebteste Forumthreads (12 Monate)

Aus Excel in Word Textfeld / Formular

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Excel in Word Textfeld / Formular

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

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread