Excel -> Word
ing.grohn
ich möchte aus einer Excel-Anwendung Word aufrufen, einen Text dort bearbeiten und dann vermittels des aufrufenden Makros diesen Text unter dem im Makro vorgesehenen Pfad und Dateinamen speichern.
Im Forum habe ich folgendes Listig von Franz/fcs gefunden:
'Falls noch nicht gemacht dann im Excel-VBA-Editor unter Extras-Verweise den Verweis auf die
'Microsoft Word x.y Object Library aktivieren
Sub XY_Click()
Dim datei As String
Dim dok As Object
Dim wd As Object
Dim Pfad As String, Dateiname As String
datei = "\eigene dateien\vorlagen\testdatei.doc"
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set dok = wd.Documents.Add(datei)
dok.FormFields("T123").Range.text = Worksheets("tabelle3").Range("B2").Value '- hier _
Fehlermeldung
Pfad = "C:\eigene dateien\Test"
Dateiname = "Wordtestneu.doc"
With wd.Dialogs(wdDialogFileSaveAs)
.Name = Pfad & "\" & Dateiname
.Show
End With
End Sub
Das Makro verabschiedet sich mit der Fehlermeldung 5941 das angeforderte Element ist nicht vorhanden. Die Textmarke gibt es und die Datei wir auch geöffnet.
Wer weiss weiter?
Baie dankie
Mit freundlichen Grüßen
Albrecht