LibreOfficeで開いているドキュメントの場所を取得する

Dim fileURL As String
Dim directory As String
fileURL = ConvertFromURL(ThisComponent.getURL())
directory = Left(fileURL, Len(fileURL) - Len(ThisComponent.getTitle()))
MsgBox(directory)