我知道这个问题已经得到解答,但给定的解决方案对我不起作用。给定的解决方案是:
Dim oDoc As Object
Dim Path$
oDoc = ThisComponent
Path$ = oDoc.getURL()
实际上,这会为我返回一个空字符串 ("")。有什么我错过的吗?
我在 Kubuntu 12.04 上使用 LibreOffice 4.3.1.2。
谢谢你的帮助!
我知道这个问题已经得到解答,但给定的解决方案对我不起作用。给定的解决方案是:
Dim oDoc As Object
Dim Path$
oDoc = ThisComponent
Path$ = oDoc.getURL()
实际上,这会为我返回一个空字符串 ("")。有什么我错过的吗?
我在 Kubuntu 12.04 上使用 LibreOffice 4.3.1.2。
谢谢你的帮助!
如果你运行它会发生什么?
If oDoc.HasLocation() Then
Print "The Document URL is " & oDoc.getURL()
Else
Print "The document has not yet been stored"
End If
如果我编译宏它可以完美地工作,如果我调试未编译的宏它就不起作用。
当然,因为调试环境 Parent 和你的 Document Parent 不一样。