Function lastsavetime(de As Boolean)
Dim bb As String, curt As Date, curr, intt As Integer, inttt As Integer, last As Date

curt = Now()

    intt = InStr(1, curt, ":")
    curr = Mid(curt, intt + 1, 2)
    last = ActiveDocument.BuiltInDocumentProperties("Last Save Time")
    inttt = InStr(1, last, ":")
    bb = Mid(ActiveDocument.BuiltInDocumentProperties("Last Save Time"), intt + 1, 2)
        If CInt(bb) - CInt(curr) >= 5 Then
            de = True
        End If

End Function

Sub SaveMe()
Application.DisplayAlerts = False
ActiveDocument.Save
Application.DisplayAlerts = True
Application.OnTime Now + TimeValue("00:05:00"), "SaveMe"
MsgBox "Saved"
End Sub

Sub ActiveDocument_Save()
Application.OnTime Now + TimeValue("00:05:00"), "Savedoc"
Application.OnTime Now + TimeValue("01:00:00"), "Backupfile"
End Sub
Sub Savedoc()
ActiveDocument.Save
Application.OnTime Now + TimeValue("00:05:00"), "Savedoc"
End Sub
Sub Backupfile()
Dim str, name As String
    With ActiveDocument
        str = ActiveDocument.FullName
        name = ActiveDocument.name
        .Bookmarks.Add "CursorPosition", Selection.Range
        .Save
        .Close
        FileCopy str, "D:\Your Desired Location\" & name
        Application.OnTime Now + TimeValue("01:00:00"), "Backupfile"
        Documents.Open str
        ActiveDocument.Bookmarks("CursorPosition").Select
    End With
End Sub

Sub SaveACopyToFlash()
Dim strFileA As String
Dim strFlash As String
    strFlash = "D"
    If strFlash = "" Then
        MsgBox "User Cancelled", vbExclamation, "Cancelled"
        Exit Sub
    End If
    With ActiveDocument
        .Save 'save the original document
        strFileA = .FullName 'Saved original document name
        strFlash = strFlash & "\" & .name 'Flash drive filename
        .Close 'Close the document
    End With
    On Error GoTo oops 'Error handler for missing flash drive
    FileCopy strFileA, strFlash 'Copy source to flash
    Documents.Open strFileA
    ActiveWindow.View.Type = wdPrintView
    End
    oops:
    If Err.Number = 61 Then
        MsgBox "Disc Full! The partial file created will be deleted", vbExclamation
        Kill strFlash 'Remove the partial file
    Else
        MsgBox "The flash drive is not available", vbExclamation
    End If
        Documents.Open strFileA
        ActiveWindow.View.Type = wdPrintView
End Sub