Office: (Office 365) Word-Datei als OLE-Objekt in XLSM importieren

Hallo zusammen,

ich habe bereits eine Word-Datei (mit Textmarken sowie Kopf-und Fußzeilen) als OLE-Objekt in meine XLSM-Datei importiert und kann diese auch exportieren.

Wenn ich dann aber Daten in diese aus meiner Excel-Datei heraus erstellten Datei einfügen möchte, funktioniert dies nicht weil scheinbar keine Textmarken sowie Kopf-und Fußzeilen mehr vorhanden sind.

Was muss ich ggf. ändern damit die Word-Datei mit Kopf-und Fußzeilen und das Übertragen in die Textmarken funktioniert ?

Danke für Deine Antwort im Voraus.
Jensa

 

Ich denke mal das es an der Art des Exports aus Excel heraus liegt.
Denn wenn man das eingebettete Word-Dokument "richtig" (mit Doppeklick) öffnen, sieht man auch die Textmarken und die Kopf- und Fußzeilen.

Nun also die Frage was man am folgenden Export-Code verändern könnte, damit das eigebettete Word-Dokument auch als solches exportiert wird.

Code:

    ' Arbeitsblatt, das das OLE-Objekt enthält
    Set ws = ThisWorkbook.Sheets("WORD") ' im Reiter WORD ist die "Vorlage.docx" als OLE-Objekt gespeichert

    ' Definiere den Pfad zum Export der Word-Datei
    exportPath = ThisWorkbook.Path & "\Vorlage.docx" ' Pfad und Name der exportierten Datei

    ' Gehe durch alle OLE-Objekte im Arbeitsblatt
    For Each oleObj In ws.OLEObjects
        ' Überprüfen, ob es ein Word-Dokument ist
        If InStr(oleObj.progID, "Word.Document") > 0 Then
            ' OLE-Objekt öffnen
            oleObj.Activate
           
            ' Word-Instanz erstellen und das eingebettete Dokument öffnen
            Set wordApp = CreateObject("Word.Application")
            wordApp.Visible = False ' Das Word-Fenster bleibt im Hintergrund
           
            ' Kopiere den Inhalt des eingebetteten Word-Dokuments
            oleObj.Copy
           
            ' Erstelle ein neues leeres Word-Dokument
            Set wordDoc = wordApp.Documents.Add
            wordDoc.Content.Paste
           
            ' Speichere das Dokument an dem angegebenen Pfad
            wordDoc.SaveAs2 exportPath
           
            ' Schließe das Word-Dokument
            wordDoc.Close
            wordApp.Quit
           
            MsgBox "Die Datei ''Vorlage.docx'' wurde erfolgreich exportiert nach: " & exportPath, vbInformation, "Die Erstellung der Word-Vorlage war erfolgreich !"
            Worksheets("Eingabe").Select
            Exit Sub
        End If
    Next oleObj

    ' Wenn kein Word-OLE-Objekt gefunden wurde
    MsgBox "Die Datei ''Vorlage.docx'' wurde nicht in dieser Excel-Datei gefunden !", vbCritical, "Achtung Fehler !"
   
    End If

 

Ich habe mal den MacroRecorder eingeschalten und die eingebettete Word-Datei in der Excel-Datei mal gedoppelklickt und dann noch mal gedoppelklickt. Die eingebettete Word-Datei wird dann direkt in WORD temporär geöffnet.
Könnte man an dieser Stelle nicht das sich öffnende Word-Dokument was Textmarken sowie Kopf- und Fußzeilen enthält weiterverarbeiten ?

Das Ergebnis vom war zum MacroRecorder:
ActiveSheet.Shapes.Range(Array("Object 5")).Select
Selection.Verb Verb:=xlPrimary

Scheinbar ist es nicht möglich das OLE-Objekt doppelt doppelzuklicken … oder gibt es da vielleicht doch noch einen Profi-Kniff ?

 

Hallo Jensa,
in den Moment, wo du das Shape/Text oder wie auch immer an der Stelle des Bookmarks einfügst, ist der Bookmark natürlich überschrieben und nicht mehr Existent.
Um wieder darauf zu zugreifen zu können, musst du den Bookmark am besten auf die Länge eingestellt, wieder herstellen.
Dies hatte ich zu diesem Thema mal für jemanden zurechtgemacht:
Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

Gruß Uwe

 

Hallo Uwe und danke für Deine Antwort.
Ich weiß gerade nicht wie genau mir das in meinem Code weiterhelfen könnte.

PS: Ansonsten ist mein Anliegen das Folgende. Und zwar war mein Gedanke eine vorgefertigte Word-Vorlage in der Excel-Datei zu "parken" und sie zu exportieren, wenn in der Excel-Datei Daten eingegeben wurden, um sie dann in der Word-Datei in die Textmarken zu übergeben, ohne das ich die Excel- und die Word-Datei separat an die betreffenden Nutzer weitergeben muss.

 

Hallo Jensa,

was verstehst du unter "Parken".
Du kannst aus Excel Inhalte welcher Art auch immer nach Word in Bookmarks einfügen und ggf. im selben Range wieder diesen Bookmark anlegen und da wars aber auch schon. Damit ist die erneute Auffindbarkeit und wiederverwendbarkeit sichergestellt.
Anbei ein Beispiel zu deinen Problem aus #1: Bookmarks in Kopf- und Fusszeile.

Gruß Uwe

 

Mit "Parken" meine ich das Speichern der Word Vorlage-Datei in der Excel-Datei als OLE-Objekt, um sie eben dann zu exportieren wenn ich sie auch benötige. Letzteres klappt ja bereits, nur eben nicht der Export der Word-Datei als solche. Denn mit meinem Code lässt sich eben nur eine Kopie des Word-Datei (OLE-Objekt in Word) aus der Excel-Datei in eine neue Word-Datei kopieren ... und genau da liegt mein Problem, da das Übertragen der Daten aus Excel heraus in die Textmarken nicht funktioniert.

 

Der den nachfolgenden Code klappt's nun doch.

ActiveSheet.Shapes.Range(Array("Object 5")).Select
Selection.Verb Verb:=xlPrimary

Und zwar muss man dazu das OLE-Objekt, also die entsprechende externe Datei, über Einfügen -> Objekt -> "Als Symbol" importieren.

Jetzt stehe ich aber wieder am Anfang meines Threads #2 und dem dort befindlichen Code.
Es wird damit zum Einen eine Word-Datei erstellt die quasi meine Datei-Vorlage beinhaltet, ich dann aber nicht wie schon beschrieben nutzen kann und zum Anderen wird die Datei-Vorlage samt Textmarken sowie Kopf- und Fußzeilen, also genau wie ich sie benötige geöffnet angezeigt.
Wie müsste ich nun den Code anpassen, so dass die benötigte Datei unter dem gleichen Namen, wie die gerade geöffnete Excel-Datei, gespeichert werden kann ?