修改LibreOffice Draw中定义的样式名称

目前我使用的是LibreOffice 4.2.4.2。经过以往的测试和使用经验，这是诸多版本中较为稳定和bug相对较少的。今天无意中发现该版本的LibreOffice Draw存在一个问题：样式名称修改后无法保存。于是，我便想到，既然在图形界面无法保存修改后的样式名称，那么能否用LibreOffice Basic宏命令试试看。事实证明，使用下面的代码则可以实现该功能。该函数会让用户依次指定欲修改样式所属的类别（Family）、样式名称、新的样式名称。由此也可以看出，LibreOffice也许在图形界面上存在一些bug，但是若通过宏命令直接调用底层的API，则可以有效地作用于文档，对相应的bug也是一个弥补。

' Change a style name with a new name. This solves the problem of changed style name in Draw cannot be saved.
Sub ChangeStyleNames
Dim style_family_name As String
Dim style_name As String
Dim style_new_name As String

'Names of styles. Array of string
Dim oStyles
'Styles is interface com.sun.star.container.XNameAccess
Dim oStyle

style_family_name = InputBox("Style family name: ")

If style_family_name <> "" Then
If ThisComponent.StyleFamilies.hasByName(style_family_name) Then
oStyles = ThisComponent.StyleFamilies.getByName(style_family_name)

style_name = InputBox("Style name: ")

If style_name <> "" Then
If oStyles.hasByName(style_name) Then
oStyle = oStyles.getByName(style_name)

style_new_name = InputBox("New style name: ")

If style_new_name <> "" And style_new_name <> style_name Then
oStyle.setName(style_new_name)
Else
MsgBox "Please specify a new style name!", 0, "Warning"
End If
Else
MsgBox "Cannot find the style: " + "test", 0, "Warning"
End If
Else
MsgBox "Please specify a style name!", 0, "Warning"
End If
Else
MsgBox "Style family name is invalid!", 0, "Error"
End if
Else
MsgBox "Please specify a style family name!", 0, "Warning"
End if
End Sub