save as : indsætter automatisk daot

Vedr.: Word - sæt følgende VBA-kode ind i Normal.dot / ThisDocument:

Sub FilerGem()
Dim datostempel As String, initialer
    datostempel = Format(Now, "dd-mm-yy")
    initialer = Application.UserName
   
    With Dialogs(wdDialogFileSaveAs)
Rem hvis initialer & dato IKKE er sat i filens navn - 1. gang
        If InStr(LCase(.Name), initialer) = 0 Then
            .Name = initialer + "_" + datostempel + "_"
            .Show
    Else
            ActiveDocument.Save
            .Execute
        End If
    End With
End Sub

Sub FilerGemSom()
Dim datostempel As String, initialer
    datostempel = Format(Now, "dd-mm-yy")
    initialer = Application.UserName
   
    With Dialogs(wdDialogFileSaveAs)
Rem hvis initialer & dato IKKE er sat i filens navn - 1. gang
        If InStr(LCase(.Name), initialer) = 0 Then
            .Name = initialer + "_" + datostempel + "_"
            .Show
        Else
            .Show
        End If
    End With
End Sub

Mange tak for svaret, ville gerne give dig point, men har endnu ikke fundet funktionen hvorfra jeg gør dette?????

Derudover er det muligt at lave samme model i Excel og Powerpoint???

Hvis det skal gælde alle word dokumenter - så skal koden som nævnt indsættes i skabelonen Normal.dot/ThisDocument i VBA-vinduet:

Kopier koden ovenfor via udklipsholderen
Åbn Word
Alt+F11  VBA-vinduet åbnet
Dobbeltklik på ThisDocument i Normal i vinduet til venstre
Kodevinduet åbnes - Sæt Ind fra udklipsholder
Gem & luk VBA-vinduet
Sørg for at Word kan køre med makroer - Funktioner/Makro/Sikkerhed/Laveste niveau


-
I Excel & PowerPoint mener jeg ikke at du kan anvende samme metode - men det kan sikkert gøres via en makro tilknyttet en knap eller tilsvarende.

MVH