Tipps & Tricks
30.03.2007, 22:15 Uhr
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
---------------------------------
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
---------------------------------
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
Es sind keine Kommentare vorhanden.
