Hallo,
wie kann man ein geöffnetes Worddokument per Makro speichern ohne Dialog?
Danke.
wie kann man ein geöffnetes Worddokument per Makro speichern
ohne Dialog?
Hallo Gunter,
Sub Speicherung()
activedocument.Save
End Sub
Gruß
Reinhard
Hallo Reinhard,
ich möchte dem Dokument unter einem anderen Namen speichern.
Wie geht das dann?
Danke
ich möchte dem Dokument unter einem anderen Namen speichern.
Wie geht das dann?
Hallo Gunter,
ähnlich 
Sag mal genauer was du planst.
Welches Dokument ist offen? ein bislang ungespeichertes, ein Dokument mit namen, in welchen Pfad soll es, in den gleichen?
Welcher name soll vorgeschlagen werden?
Gruß
Reinhard
Hallo Reinhard,
dank Deiner ersten Hilfe, habe ich ein wenig recherchiert und bin zu folgender Lösung gekommen:
Dim file as String
file = ActiveDocument.Path & „“ & TextBox1.Text & „.doc“
ActiveDocument.SaveAs FileName:=file
Vielen Dank.
Gruß
Gunter
Speichern Unter mit vorgegebenen Namen Ordner
Dim file as String
file = ActiveDocument.Path & „“ & TextBox1.Text & „.doc“
ActiveDocument.SaveAs FileName:=file
Hallo Gunter,
du könntest das so schreiben:
file = ActiveDocument.Path & „“ & TextBox1.Text & „.doc“
Application.displayalerts=false
ActiveDocument.SaveAs FileName:=file
Application.displayalerts=True
dann kommt keine Meldung wenn es die Datei da schon gibt.
Das Risiko dabei, also immer ohne Rückfrage gnadenlos eine bestehende Datei gleichen Namens zu überschreiben solltest du sorgsam bedenken.
Und auch, welche User ggfs. diese Datei „bedienen“.
viele Wege führen nach Rom.
Notiere dir mal den folgenden Code.
Angenommen, du willst auch mal den Speicherpfad abändern oder den Dateinamen ohne im Code rumzuändern, manche leute haben auch Horror vor Vba, mit Recht, was ich nicht kenne vermeide ich auch je nachdem.
Test halt mal.
Sub MeinSpeichern()
With Application.Dialogs(84)
.Name = "c:\test\NeuerName.doc"
.Show
End With
End Sub
Gruß
Reinhard
Hallo Reinhard,
besten Dank, so geht es natürlich noch besser.
Gruß
Gunter