|
Danke für den Hinweis auf die Fields. Wie baue ich dies in meinen Code ein? Folgendes funktioniert nicht. Was mache ich falsch?
Sub Speichern()
'
' Speichern Makro
'
'
ChangeFileOpenDirectory "G:\User\Thomas\Dokumente"
Set Title = Application.ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)
Set Betreff = Application.ActiveDocument.BuiltInDocumentProperties(wdPropertySubject)
Set Datum = Application.ActiveDocument.Fields(Date)
myFileName = Title.Value & "-" & Datum.Value & "_" & Betreff.Value & ".docx"
ActiveDocument.SaveAs2 FileName:=myFileName, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=15
End Sub
|