Revised Macro to backuo the normal.dotm

gmaxey · #2 02-16-2024, 03:25 AM

Susan,

We are not a code writing service. When you post here, the expectation is to tell us your requirement and show us what you have tried in pursuing that goal. That will quicken the day that you are helping others as well.

A quick internet search would reveal many examples of how to use VBA to select a folder path.

All that said, here is a more general bit of code for backing up a template (regardless of what the template name is:

Code:

Sub BackupTemplate()
Dim strFileName As String
Dim strFolderPath As String
  strFolderPath = fcnBackupFolderSelect
  If strFolderPath = vbNullString Then
    MsgBox "You have not selected a valid folder path.", vbInformation + vbOKOnly, "INVALID PATH"
    GoTo lbl_Exit:
  End If
  strFileName = Left(ThisDocument.Name, InStrRev(ThisDocument.Name, ".") - 1) & " BU"
  strFileName = strFileName & " " & Format(Now, "MM-dd-yyyy") & " Time stamp " & Format(Now, "hh-mm-ss")
  ThisDocument.Save
  ThisDocument.SaveAs2 FileName:=strFolderPath & "\" & strFileName & ".dotm", Addtorecentfiles:=False
  MsgBox "The template backup is saved as " & strFileName & ".dotm" & " at: " & strFolderPath, vbInformation + vbOKOnly, "Completed"
lbl_Exit:
  Exit Sub
End Sub

Function fcnBackupFolderSelect() As String
  fcnBackupFolderSelect = vbNullString
  With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then
     fcnBackupFolderSelect = .SelectedItems(1)
    End If
  End With
lbl_Exit:
  Exit Function
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Normal.dotm reset	messgchr	Word	2	07-19-2020 03:53 PM
macro not saved in normal.dotm	silveredge8181	Word	8	06-09-2014 07:58 PM
Adding macro to normal.dotm programmatically	etippelt	Word VBA	6	04-08-2013 05:55 PM
New template/New normal.dotm	kenglade	Word	3	12-19-2011 04:00 PM
How to get to normal.dotm	Aiken_Bob	Word	4	05-02-2011 02:41 PM