Macro que mostra o caminho/diretório de um arquivo do libreOffice.

[RonaldoElias]

'Ajudando a comunidade LibreOffice com uma macro que mostra o caminho/diretório de um arquivo do libreOffice. Como exemplo uma planilha no Calc.

.

Function DiretorioLibreOffice()
                
                		Dim oDiretorioFormulario()
                		Dim iDF as Integer
                		Dim sDiretorioFormulario as String
                		Dim oSheet, oFormulario as String
                		
                		oDiretorioFormulario() 	= ThisComponent.getArgs()
                		On Error Resume Next
                		oDiretorioFormulario 	= oDiretorioProtocolo(iDF)
                		sDiretorioFormulario 	= sDiretorioFormulario & CStr(oDiretorioFormulario(iDF).Value)
                		sDiretorioFormulario 	= Mid(sDiretorioFormulario,1,11)'Mostra a pasta criada na raiz do disco. Para usar outro caminho, complementa-se com um: sDiretorioFormulario & "Nome de uma pasta ou arquivo" & ".(mais sua extensão)		
                		oSheet				= ThisComponent.Sheets.GetByName("Formulário")
                		oFormulario			= oSheet.DrawPage.Forms.getByName("Formulário")
                	
                		MsgBox "Esse é o caminho atual do documento ativo: " & sDiretorioFormulario,64,"Diretório Atual" 
            
            End Function

'Essa macro vale para um arquivo de extensão editável ou modelo.

[schiavinatto]

Ola @RonaldoElias, esta macro mostra o caminho completo:

Sub CurrentDirectory
'------------------------------------------------------------------------------
MsgBox CurDir, 0, "O Diretório atual é:" 
End Sub