30. Mär 2007
Lesedauer 2 Min.
Tipps & Tricks
Word-Makro: Unter vorgegebenem Pfad speichern
Gibt es ein Makro für Word mit dem ich den Dialog «Speichern unter» mit einem vorgegebenen Pfad öffnen kann?
Das Makro sieht fast genau gleich aus wie jenes in Excel [1].
Makro
Quelle: PCtipp.ch---------------------------------
MAKRO ZUM KOPIEREN
---------------------------------
Sub SpeichernUnter()
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "C:\__EigeneDateien\testpfadNterordner\"
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad
.Show
End With
If dialog <> False Then dialog.Execute
End Sub
---------------------------------
Auch in Word setzen Sie das im VB-Editor erzeugte Makro per Extras/Anpassen in eine Symbolleiste oder ein Menü.
Kommentare