So speichern Sie ein eingebettetes Word-Dokument in einer Excel-Arbeitsmappe als separate Datei mit VBA

Question

Ich erstelle eine Arbeitsmappe, die eine eingebettete Word-Dokumentvorlage mit Bildern auffüllt und das Dokument anschließend an anderer Stelle speichert, ohne die eingebettete Vorlage zu bearbeiten. Allerdings, wenn ich versuche, das Dokument zu speichern, erhalte ich einen Laufzeitfehler 4605 sagt mir: „Die SaveAs-Methode oder Eigenschaft nicht verfügbar ist, weil dieses Dokument in einem anderen Applikator bearbeitet wird“

Dies ist die Unter die Vorlage zu öffnen:

Sub OpenWord() 
'Opens the template when the main function first runs 

    Set WDObj = Sheets("Template").OLEObjects("Template") 

    WDObj.Activate 
    WDObj.Object.Application.Visible = False 

    Set WDApp = GetObject(, "Word.Application") 

    Set WDDoc = WDApp.ActiveDocument     

End Sub 

danach einen Hauptunterlauf, die die Vorlage auffüllt, dann, wenn ich versuche, das Dokument zu speichern, verwenden:

WDDoc.SaveAs "myDocument.doc", FileFormat:=wdFormatDocumentDefault 

ich erhalte den Fehler.

Bitte hat jemand diesen Fehler vor/kennt, um ihn zu beheben, habe ich viel Googling gemacht, das mich noch nirgendwo hingebracht hat.

Answer 1

testete ich die folgende, die auf meinem System/Installation gearbeitet:

Sub OpenWord() 
'Opens the template when the main function first runs 

    Dim WDObj As Object 
    Dim WDApp As Object 

    Set WDApp = GetObject(, "Word.Application") 
    Set WDObj = Sheets("Template").OLEObjects("Template") 

    WDObj.Activate 
    WDObj.Object.Application.Visible = False 

    WDApp.ActiveDocument.SaveAs ("YourFilename.doc") 
    Set WDObj = Nothing 
    Set WDApp = Nothing 

End Sub