埋め込みWord文書をVBAを使用して別のファイルとしてExcelブックに保存する方法

埋め込みWord文書テンプレートに画像を入力して埋め込みテンプレートを編集せずに別の場所に保存するブックを作成しています。「この文書は、別のアプリケータに編集されているので、SaveAsメソッドやプロパティは使用できません」埋め込みWord文書をVBAを使用して別のファイルとしてExcelブックに保存する方法

これはサブです：私は文書を保存しようとするとはしかし、私は、ファイル名を指定して実行時エラー4605が私に言ってもらいます私が使用して文書を保存しようとすると、その後、この後にテンプレートを移入メイン、サブの実行を

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

：テンプレートを開くために

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

を私はエラーを取得します。

これを解決するには、このエラーが発生する前に誰かに遭遇したことがあります。私はこのコードの多くの繰り返しを試してみましたが、私自身、まだ私は同じエラーを取得している

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

出典

2016-04-28 Alex Kitson