Makro Word automatische Speicherung/Aktualisierung
16.11.2018 14:30:13
john
ich möchte mit diesem Code folgendes bewirkten (aktuell funktioniert es nicht wie gewollt) Eine Word Datei soll nach dem Name der aktuellen Überschrift gespeichert werden. Danach soll die Überschrift sowie einmal Datum und Daten auf Seite 1 und 2 gelöscht und das aktuelle Datum eingefügt werden. Mit dem Makrorecorder ist der Code zustande gekommen der aber leider nicht ganz korrekt funktioniert. Die Datei wird leider nicht individuell benannt sondern immer nur nach der gleichen Überschrift.
Ausserdem startet das Makro erst wenn ein Text markiert wurde und wenn das Datum eingefügt wird ist es nicht an der Stelle wie das alte Datum sondern an der Stelle der Überschrift und dann doppelt.
Ist das was ich möchte mit Word überhaupt möglich da es hier keine Festen Zellen und Spatlten _ gibt?
Sub Makro1()
' Makro1 Makro
Selection.Copy
ChangeFileOpenDirectory _
"C:/Pfad "
ActiveDocument.SaveAs2 FileName:= _
"c:Pfad/Das%20soll%20der%20Dateiname%20werden..docm" _
, FileFormat:=wdFormatXMLDocumentMacroEnabled, LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, CompatibilityMode:=15
Selection.TypeBackspace
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
False, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
Selection.TypeBackspace
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
False, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
Selection.TypeBackspace
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub