Sub BackupDocument()
 Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
 ThisDoc=ThisComponent

 If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then
 GlobalScope.BasicLibraries.LoadLibrary("Tools")
 End If

 If ThisDoc.hasLocation=False Then
 MsgBox ("¡Hay que guardar el documento primero!", , "¡Atención!") :End
 End If

 DateToday=CDateToISO(Date) & "_" & Format(Hour(Now), "00") & "-" & Format(Minute(Now), "00") & "-"  & Format(Second(Now), "00")

 DocURL=ThisDoc.getURL()
 DocDir=DirectoryNameoutofPath(DocURL, GetPathSeparator())
 FileName=Dir(DocURL, 0)
 SaveFile=DocDir & GetPathSeparator() & FileName & "_" & DateToday
 FileProperties(0).Name="Overwrite"
 FileProperties(0).Value=True
 ThisDoc.storeToURL(SaveFile, FileProperties())
 End Sub