Libreoffice 多重备份？

如何解决Libreoffice 多重备份？

有没有办法、设置、宏或其他方式，可以自动创建一系列当前文档的备份？比如，在一个 Writer 文档上工作，按一个宏按钮，然后创建一个备份，以便在文件夹中的先前备份中添加另一个备份？

解决方法

好吧，试试这个

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