Libreoffice 多重备份？

Question

有没有一种方法、设置、宏或其他方式可以自动创建系列中当前文档的备份？比如，在一个Writer文档上，按了一个宏按钮，当时创建了一个备份，这样在一个文件夹中的之前备份的基础上又多了一个备份？

Answer 1

好吧，试试这个

Sub createBackUp()
Dim sURL As String
Dim aURL As Variant
Dim saveTime As String
  sURL = ThisComponent.getURL()
  If Trim(sURL) = "" Then Exit Sub  ' No name - cannot store
  saveTime = "_" & FORMAT(Now,"YYYYMMDD\_HHmmSS")
  aURL = Split(sURL, ".")
  If UBound(aURL) < 1 Then  ' No extention?
    sURL = sURL & saveTime
  Else
    aURL(UBound(aURL)-1) = aURL(UBound(aURL)-1) & saveTime
    sURL = Join(aURL,".")
  EndIf
  On Error Resume Next
  ThisComponent.storeToURL(sURL,Array())
  On Error GOTO 0
End Sub

你也可以试试Timestamp Backup

Libreoffice 多重备份？

Libreoffice Multiple Backups?

backup

libreoffice

backup-strategies