Macro for saving file to folder with specified name and date

[minscho39]

Hello,

I am new to using Macros. I would like to have a form with a submit button that will save a file to a specified folder using a specific file name with current date and time in the file name. Is this possible? I have forms that are filled out daily by my employees and would like them automatically saved to a folder on Teams with an automated file name containing the date and time. Any help would be appreciated.

Thanks,
Mitch

[arnelgp]

you add code Close event of the Document (on VBA->ThisDocument, past this code):

Private Sub Document_Close()
Dim strFile As String
'
' Change strFile to the Path and document name.
' the Extension should be (.docm, macro-enabled document)
'
' on this demo, i am saving it as "new.docm" on user's Document folder
'
strFile = Environ$("userprofile") & "\documents\new.docm"


' save it
Me.SaveAs2 saveToFileName(strFile), wdFormatXMLDocumentMacroEnabled
End Sub




Private Function saveToFileName(ByVal strFile As String) As String
    Dim file As String
    Dim ext As String
    Dim i As Integer, s As String
    ' get the extension
    i = InStrRev(strFile, ".")
    If i <> 0 Then
        ext = Mid$(strFile, i)
    End If
    ' get only the path+filename (without extension)
    file = Replace$(strFile, ext, "")
    ' new file has date on it
    s = file & Format$(Date, "_dd_mm_yyyy") & ext
    i = 1
    ' loop until we get "New" file
    Do While Len(Dir$(s)) <> 0
        s = file & Format$(Date, "_dd_mm_yyyy") & "(" & i & ")" & ext
        i = i + 1
    Loop
    saveToFileName = s
End Function