最北端で暮らすSEのknowhow

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

1
2
3
4
5
Dim fileURL As String
Dim directory As String
fileURL = ConvertFromURL(ThisComponent.getURL())
directory = Left(fileURL, Len(fileURL) - Len(ThisComponent.getTitle()))
MsgBox(directory)

hiro