Microsoft.Office.Interop.Word saveas2 und speichern mit vb.net bekommt Befehl fehlgeschlagen

Question

Ich bekomme ständig "Befehl fehlgeschlagen" entweder die saveas, saveas2 oder Speichern von Anrufen beim Versuch, eine neue programmgesteuert .docx zu speichern. Ich weiß, dass die Datei erstellt wird. funktioniert offline einwandfrei. Visual Studio 2013 Microsoft.Office.Interop.Word 15 Microsoft Office 10 auf dem Server und dev Maschine Testcode:

myInfo_lbl.Text = "" 
Dim word As New Microsoft.Office.Interop.Word.Application 
word.Visible = True 
Dim doc As Microsoft.Office.Interop.Word.Document 
doc = word.Documents.Add() 
Try 
    Dim insertText As String = "This thing needs to start fn working. Damn it!" 
Dim range As Microsoft.Office.Interop.Word.Range = doc.Range(Start:=0, End:=0) 
range.Text = insertText 
doc.SaveAs2("D:\myCVCOL_Files\test2.doc") 
'doc.Save() 
'doc.SaveAs2("D:\myCVCOL_Files\test2.doc") 
Catch ex As COMException 
    myInfo_lbl.Text = ex.ErrorCode & " ~ " & ex.HResult & " ~ " & ex.Message & " ~ try 6" 
Finally 
    Dim save_changes As Object = False 
    doc.Close(save_changes) 
    word.Quit(save_changes) 
End Try 

Answer 1

Sieht aus wie Sie nicht das Format festgelegt haben. Versuchen Sie diesen Code

Imports System.Runtime.InteropServices 

Module Module1 

    Sub Main() 
     CreateDoc() 
    End Sub 

    Public Sub CreateDoc() 
     Dim wordApp As New Microsoft.Office.Interop.Word.Application 
     Dim wordDoc As Microsoft.Office.Interop.Word.Document 
     Dim range As Microsoft.Office.Interop.Word.Range 
     Dim fileName As String 
     Dim insertText As String 

     Dim format As Microsoft.Office.Interop.Word.WdSaveFormat = Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatDocument 

     wordApp = New Microsoft.Office.Interop.Word.Application() 
     wordDoc = New Microsoft.Office.Interop.Word.Document() 
     insertText = "Some text" 

     wordApp.Visible = True 

     fileName = "D:\Projects\Sandbox\StackOverflow\ConsoleVB\test2.doc" 

     wordDoc = wordApp.Documents.Add() 

     range = wordDoc.Range(Start:=0, End:=0) 
     range.Text = insertText 

     wordDoc.SaveAs2(fileName, Format) 

     wordDoc.Close(Nothing, Nothing, Nothing) 
     wordDoc = Nothing 
     wordApp = Nothing 

    End Sub 
End Module 

Answer 2

Ich fand heraus, dass die Lösung für mein Problem, dass ich for2 Tage war auf der Suche nach einer Einstellung in Word war. Gefunden bei: https://social.msdn.microsoft.com/Forums/vstudio/en-US/53a0aa18-5f26-4a51-95c8-5c0ff9be28f4/command-failed-at-microsoftofficeinteropworddocumentclasssaveas?forum=vsto

„Ich habe dieses Problem konfrontiert, bevor und ich glotzte es für zwei Tage und schließlich fand ich die Lösung, den Befehl dcomcnfg.exe gehen zu laufen oder zu Component Service Go Dann müssen Sie DCOM-Konfiguration wählen und wähle Microsoft Word und erhalte Eigenschaften davon und wähle in der Registerkarte "Identität" den interaktiven Benutzer anstelle des startenden Benutzers. "