Word-Dok unter verändertem Namen abspeichern

Computer: Software & Programmierung Visual Basic
#1

Hi,
wie kann man ein Word-Dokument über ein Makro unter dem ursprünglichen Titel + einem Zusatz abgespeichert werden?
Bsp: Das Original heisst Januar. Es wird mit Hilfe eines Makros bearbeitet und soll danach automatisch unter JanuaroHK abgespeichert werden. Da sich der Name regelmäßig ändert, sollte also der Originalname in irgend einer Art angezogen werden.
Alexander

#2

So geht’s.

Hi,
wie kann man ein Word-Dokument über ein Makro unter dem
ursprünglichen Titel + einem Zusatz abgespeichert werden?

Sub NameErweitern()
Dim DateiName As String
 With ActiveDocument
 DateiName = Left(.Name, Len(.Name) - 4)
 ChangeFileOpenDirectory "C:\WINDOWS\Desktop\"
 .SaveAs DateiName & "\_" & Date & ".doc"
' Original aus Makro:
' .SaveAs FileName:="Hallo.doc", FileFormat:=wdFormatDocument, \_
' LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword \_
' :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, \_
' SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= \_
' False
 End With 'ActiveDocument
End Sub 'NameErweitern

Kristian

#3

Danke!
.