Macro para Folio automático no funciona en LibreOffice

Hola a toda la comunidad en español de LibreOffice, me presento, soy Mike de chile y estoy usando con mis clientes libreoffice que a dado buenos resultados, pero tengo un problema con una macro que no funciona en libreoffice pero si funciona sin problemas en microsoft word

Sub AutoNew()

Order = System.PrivateProfileString("\192.168.1.253\umr aclin\config.txt", “MacroSettings”, “Order”)

If Order = “” Then
Order = 1
Else
Order = Order + 1
End If

System.PrivateProfileString("\192.168.1.253\umr aclin\config.txt", “MacroSettings”, _
“Order”) = Order

ActiveDocument.Bookmarks(“Order”).Range.InsertBefore Format(Order, “000#”)
ActiveDocument.SaveAs FileName:="\192.168.1.253\umr aclin\Carta Respaldo Aclin " & Format(Order, “000#”)

End Sub