2
Word Speichern unter Makro stoppt ohne ersichtlichen Grund
Guten Tag zusammen,
ich hätte dam mal ein kleines Problem.
Ich habe vor einiger Zeit an Makro mit folgenden Funktionen geschrieben:
- erkennen des Ursprungpfades
- erkennes des Ursprungdateinamens und ändern dieses
- abspeichern der Datei im Ursprungpfad als *.dot
- Vorgang mit allen geöffneten Word Dokumenten
- schließen der gespeicherten Datei
Quelltext:
Das Makro läuft momentan unter Windows Office 2000 auf einem Citrix WinServer 2003.
Das Makro läuft prinzipell so wie es soll. Es bennent die Dokumente odnungsgemäß ab und speichert diese im richtigen Dateiformat und am richtigen Platz.
Ebenso funktioniert das Speichern mehrere Dateien.
Ab und zu jedoch bricht das Makro nach 3 von 5 geöffneten Dateien aber oder speichert auch nur 2 der 5 Dateien. Stoße ich das Makro dann erneut an läuft es normal weite. Manchmal mit erneuten Stoppen manchmal ohne erneutes Stoppen.
Leider sehe ich momentan keinen Fehler im Makro oder bei der Handhabung, ebenfalls sind mir noch keine logischen zusammen hänge aufgefallen.
Es ist egal ob alle Word-Dokumente nur geöffnet sind, ein Word-Dokument gespeichert wurde (vor start des Makros) und die restlichen Dokumente nicht oder ob alle Dokumente vorher abgespeichert wurden.
Sollte jemand eine Idee haben woran es liegt wäre ich über etwas Hilfe sehr erfreut.
Vielen Dank schon einmal im voraus.
Gruß
duffman521
- erkennen des Ursprungpfades
- erkennes des Ursprungdateinamens und ändern dieses
- abspeichern der Datei im Ursprungpfad als *.dot
- Vorgang mit allen geöffneten Word Dokumenten
- schließen der gespeicherten Datei
Quelltext:
Sub Speichern2()
For Each doc In Documents
Debug.Print doc.Name
dname = ActiveDocument.Name
laenge = Len(dname)
laenge = laenge - 4
dname = Left(dname, laenge)
dateipfad = ActiveDocument.Path
dateiname = dateipfad + "\" + dname
ActiveDocument.SaveAs FileName:= _
dateiname _
, FileFormat:=wdFormatTemplate, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
ActiveDocument.Close
Next
End SubDas Makro läuft momentan unter Windows Office 2000 auf einem Citrix WinServer 2003.
Das Makro läuft prinzipell so wie es soll. Es bennent die Dokumente odnungsgemäß ab und speichert diese im richtigen Dateiformat und am richtigen Platz.
Ebenso funktioniert das Speichern mehrere Dateien.
Ab und zu jedoch bricht das Makro nach 3 von 5 geöffneten Dateien aber oder speichert auch nur 2 der 5 Dateien. Stoße ich das Makro dann erneut an läuft es normal weite. Manchmal mit erneuten Stoppen manchmal ohne erneutes Stoppen.
Leider sehe ich momentan keinen Fehler im Makro oder bei der Handhabung, ebenfalls sind mir noch keine logischen zusammen hänge aufgefallen.
Es ist egal ob alle Word-Dokumente nur geöffnet sind, ein Word-Dokument gespeichert wurde (vor start des Makros) und die restlichen Dokumente nicht oder ob alle Dokumente vorher abgespeichert wurden.
Sollte jemand eine Idee haben woran es liegt wäre ich über etwas Hilfe sehr erfreut.
Vielen Dank schon einmal im voraus.
Gruß
duffman521
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Kommentar vom Moderator Biber am May 06, 2011 um 14:25:01 Uhr
Es bennent die Dokumente odnungsgemäß ab und speichert diese
Set /a rgc+=1#751
Leider knapp zu spät für den Jubliäums-Sekt.
Aber bei #777 spendier ich auch was.
Content-Key: 165790
Url: https://administrator.de/contentid/165790
Printed on: April 23, 2024 at 22:04 o'clock
2 Comments
Latest comment
Hallo duffman521!
Das passt irgendwie nicht zusammen.
Wenn Du eine Auflistung der Dokumente über die Object-Variable 'doc' machst, dann nutze diese auch anstelle von 'ActiveDocument'.
Versuchs mal so:
Gruß Dieter
Das passt irgendwie nicht zusammen.
Wenn Du eine Auflistung der Dokumente über die Object-Variable 'doc' machst, dann nutze diese auch anstelle von 'ActiveDocument'.
Versuchs mal so:
Sub Speichern2()
For Each doc In Documents
Debug.Print doc.Name
dname = doc.Name
laenge = Len(dname)
laenge = laenge - 4
dname = Left(dname, laenge)
dateipfad = doc.Path
dateiname = dateipfad + "\" + dname
doc.SaveAs Filename:= _
dateiname _
, FileFormat:=wdFormatTemplate, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
doc.Close
Next
End SubGruß Dieter
