umbenennen

18/05/2008 - 10:55 von Emmi | Report spam
Ich bekomme oft viele Word-Dokumente mit nichtssagenden Dateinamen (àhnlich
den Dateinamen von Bildern von Digitalkameras).

Könnte man folgenden Ablauf automatisieren?
Die Datei wird natürlich geöffnet und gelesen. somit weiß ich eben einen
sinnvollen Namen und dann Speichern unter diesem Namen und (gleichzeitiges)
Löschen der "alten" Datei.
 

Lesen sie die antworten

#1 Thomas Gahler
19/05/2008 - 09:54 | Warnen spam
Hallo Emmi



Könnte man folgenden Ablauf automatisieren?
Die Datei wird natürlich geöffnet und gelesen. somit weiß ich eben einen
sinnvollen Namen und dann Speichern unter diesem Namen und
(gleichzeitiges)
Löschen der "alten" Datei.






Public Sub Umbenennen()
Dim doc As String

doc = ActiveDocument.FullName

Dialogs(wdDialogFileSaveAs).Show

If Not LCase$(doc) = LCase$(ActiveDocument.FullName) Then
Kill doc
End If
End Sub



Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen