Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Speichern unter über Makro mit Namenseingabe
zurück: Schützen verschiedener Abschnitte über Makro weiter: Word-VBA Formular - Wechsel aus dem Entwurfsmodus Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
07. Nov 2007, 14:40
Rufname:

Speichern unter über Makro mit Namenseingabe - Speichern unter über Makro mit Namenseingabe

Nach oben
       Version: Office XP (2002)

Hallo,

ich habe folgendes Makro erstellt (aufgenommen):

Sub Speichern()
'
' Speichern Makro
' Makro aufgezeichnet am 07.11.2007 von S.B.

ChangeFileOpenDirectory "\\Dc01\Verkauf_Strasse\Kunden"
ActiveDocument.SaveAs FileName:=" ", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub

Hierbei wird die Funktion Speichern unter ausgeführt. Unter dem angegebenen Ordner wird die Datei mit dem Namen " " gespeichert.
Wie bekomme ich es hin, dass ich beim ausführen dieses Makros den FileName verändern kann?
Das Makro wurde erstellt, dass nicht jedesmal der Zielordner ausgewählt werden muss.

Danke
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
07. Nov 2007, 22:29
Rufname:
Wohnort: Leipzig


AW: Speichern unter über Makro mit Namenseingabe - AW: Speichern unter über Makro mit Namenseingabe

Nach oben
       Version: Office XP (2002)

Hallo Gast,

wenn Du den Namen im Dialogfeld eingeben willst und nur das Verzeichnis voreingestellt sein soll, geht es so:

Sub SpeichernMitVerzeichnisvorgabe()
Dim strAltPfad As String
Dim strNeuPfad As String

strNeuPfad = "\\Dc01\Verkauf_Strasse\Kunden"
'Hier jeweils den Zielpfad eingeben

With Application.Options
strAltPfad = .DefaultFilePath(wdDocumentsPath)
'Der vorher eingestellte Pfad wird gesichert
ChangeFileOpenDirectory strNeuPfad
Dialogs(wdDialogFileSaveAs).Show
.DefaultFilePath(wdDocumentsPath) = strAltPfad
'Der vorherige Pfad wird wieder eingestellt
End With
End Sub



_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
16. Nov 2007, 10:02
Rufname:

AW: Speichern unter über Makro mit Namenseingabe - AW: Speichern unter über Makro mit Namenseingabe

Nach oben
       Version: Office XP (2002)

Hallo Lisa,

vielen vielen Dank für die Hilfe.
Dieses erleichtert die Arbeit ungemein.
Gast



Verfasst am:
16. Nov 2007, 16:11
Rufname:

AW: Speichern unter über Makro mit Namenseingabe - AW: Speichern unter über Makro mit Namenseingabe

Nach oben
       Version: Office XP (2002)

Nun habe ich noch eine ähnliche Frage, möchte aber kein neues Thema erstellen.

Über ein Makro möchte ich Bilder aus einem bestimmten Verzeichnis auswählen.

Wenn ich das Makro starte, soll er ein bestimmtes Verzeichnis öffnen , in welchem ich dann ein Bild auswählen und einfügen kann.

Leider komme ich nicht auf die richtige Funktion.
Gast



Verfasst am:
16. Nov 2007, 16:24
Rufname:


AW: Speichern unter über Makro mit Namenseingabe - AW: Speichern unter über Makro mit Namenseingabe

Nach oben
       Version: Office XP (2002)

Habe es doch noch hinbekommen mit folgender Fuktion:

With Application.Options
strAltPfad = .DefaultFilePath(wdDocumentsPath)
'Der vorher eingestellte Pfad wird gesichert
ChangeFileOpenDirectory strNeuPfad
Dialogs(wdDialogInsertPicture).Show

End With
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Makro, Seiten an verschiedene Drucker 2 hankfrittes 78 01. Apr 2014, 07:12
Gast Serienbrief mit Makro, Seiten an verschiedene Drucker
Keine neuen Beiträge Word Serienbriefe: Serienbrief als einzelne Word-Vorlagen speichern 0 Bluemotion 372 11. Jul 2013, 14:12
Bluemotion Serienbrief als einzelne Word-Vorlagen speichern
Keine neuen Beiträge Word Serienbriefe: Serienbrief einzeln nach Seriendruckfeldnamen Speichern 0 underOATH 394 13. Feb 2013, 11:27
underOATH Serienbrief einzeln nach Seriendruckfeldnamen Speichern
Keine neuen Beiträge Word Serienbriefe: Serienbrief in einzelne Word Dokumente speichern 2 klaus_a 2803 11. Apr 2012, 10:04
klaus_a Serienbrief in einzelne Word Dokumente speichern
Keine neuen Beiträge Word Serienbriefe: Einbinden Textmarken und Makro aus DOT-Datei in Serienbrief 0 hurganator 690 21. Feb 2012, 10:36
hurganator Einbinden Textmarken und Makro aus DOT-Datei in Serienbrief
Keine neuen Beiträge Word Serienbriefe: gruppierte Datensätze in einzelne Dokumente speichern 1 Gast_CH 586 22. Jun 2011, 10:29
Gast_CH gruppierte Datensätze in einzelne Dokumente speichern
Keine neuen Beiträge Word Serienbriefe: Serienbrief -> Speichern der einzelnen Dokumente pro Reco 14 Gaston 19870 11. Nov 2010, 10:49
Ryba Serienbrief -> Speichern der einzelnen Dokumente pro Reco
Keine neuen Beiträge Word Formate: Referenz Querverweis nach Speichern nciht mehr vorhanden 0 Harry2300 1310 28. Aug 2007, 11:30
Harry2300 Referenz Querverweis nach Speichern nciht mehr vorhanden
Keine neuen Beiträge Word Serienbriefe: jede Seite eines Worddokuments in eigene Datei speichern 1 computerschmied 2625 30. März 2007, 12:24
Gast jede Seite eines Worddokuments in eigene Datei speichern
Keine neuen Beiträge Word Serienbriefe: Seriendruckempfänger speichern ...aber wie?? 0 MBMBMB 1303 04. März 2007, 14:47
MBMBMB Seriendruckempfänger speichern ...aber wie??
Keine neuen Beiträge Word Formate: Word 2003 - Makros u. Autotexte speichern 1 Luzie 5854 26. Apr 2006, 13:24
Luzie Word 2003 - Makros u. Autotexte speichern
Keine neuen Beiträge Word Formate: Neue Vorlagen speichern - wo? 2 jh312 2605 15. Apr 2006, 21:17
Gast Neue Vorlagen speichern - wo?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum