|
Hallo Zusammen!
Ich habe folgendes Problem zu lösen.
Ein Programm generiert aus einer Datenbankheraus ein WordDokument. Das WordDokument soll im Anschluss als .tex Datei gespeichert, das WordDokument gelöscht und anschließend ein Tex Editor mit der .tex Datei geöffnet werden.
Ich habe folgende Skipt.
Sub saveastxt()
Dim RetVal As Object
Dim strDelete As String
Dim strName As String
On Error Resume Next
ActiveDocument.Save
If ActiveDocument.Path = "" Then
MsgBox "Document not saved!"
GoTo lbl_Exit
End If
strDelete = ActiveDocument.FullName
strName = Replace(ActiveDocument.FullName, ".docx", ".tex")
ActiveDocument.SaveAs2 FileName:=strName, FileFormat:=wdFormatText
ActiveDocument.Close 0
RetVal = Shell("C:\Program Files (x86)\Texmaker\texmaker.exe " & strName, 1) 'Don't open the saved .txt file
Kill strDelete
lbl_Exit:
Exit Sub
End Sub
Das Ganze funktioniert auch; allerdings nur wenn im Dateinmaen keine Leerzeichen sind. Egal, welchen Editor ich nehmen. Entweder kommt die Fehlermeldung, dass die Datei nicht gefunden werden konnte. Oder der Editor wird ohne Datei geöffnet. Die Datei wird aber entsprechend dem Skript erzeugt.
Kurioser Weise funktioniert die Umwandlung in .tex und das Öffnen der Datei im notpad immer; egal wie der Dateiname aussieht.
Wo liegt das Problem?
Über Hilfe bin ich sehr dankbar.
|