|
Hallo Leute,
da der letzte Beitrag unleserlich war, aufgrund der nicht übernommenen Formatierung vom Internet Explorer, versuche ich es nochmal.
ich möchte ein Word-File als .mht Format automatisch abspeichern.
Hat bisher auch funktioniert aber aus irgendeinem Grund funktioniert es nun nicht mehr.
Nun öffnet sich beim SaveAs2-Befehl das Speichern-Unter-Fenster obwohl es die Datei direkt abspeichern sollte, aber nur beim ersten Programm Durchlauf im geöffneten Word-Dokument. Bei allen weiteren Durchläufen läuft es richtig. Erst wenn ich das Word-Dokument wieder schliese und erneut öffne kommt wieder beim 1. Durchlauf genau das Problem.
Ebenso kann ich das Fenster wegklicken, wenn es aufploppt. Dann erschneut ein Error, aber einfach durch klick auf debuggen und weiterlaufen lassen, funktioniert es auch plötzlich.
Hattet ihr schon mal ein derartiges Problem ?
Programm:
Set oDoc = ActiveDocument
full_name = oDoc.FullName
mht_path = oDoc.Path
mht_name = mht_file(full_name) 'Funktionsaufruf, Pfad mit mht Endung wird übernommen
%%%%% Funktionsaufruf
Function mht_file(pfad) 'Pfad nach dem "." aufteilen und mht Endung hinzufügen
split_path = Split(pfad, ".")
anz_punkt = UBound(split_path)
s_path = split_path(0)
For i = 1 To anz_punkt - 1
s_path = s_path & "." & split_path(i)
Next
mht_file = s_path & ".mht"
Debug.Print mht_file
End Function
%%%%% weiter mit richtigem Programm
oDoc.SaveAs2 FileName:=mht_name, FileFormat:= _
wdFormatWebArchive, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=0
Habe ein Makro aufnehmen lassen, anhanddessen ich sehen kann was intern passiert und daher auch die ganzen Parameter,
habe auch versucht weniger zu nehmen aber immer dasselbe Ergebnis.
Wie gesagt zuerst lief das Programm richtig und nach paar Wochen ist aufeinmal immer das Fenster aufgeploppt.
Witzigerweise, wenn ich Word von Matlab mit einem actxserver starte und von Matlab aus das Makro ausführen lasse, taucht das Problem nicht auf.
Vielen Dank für eure Hilfe!
|