Вот такой кусочек кода:Код:Sub DocumentFileNames Dim oDoc Dim sDocURL oDoc = ThisComponent If (oDoc.hasLocation()) Then sDocURL = oDoc.getURL() Print sDocURL End IfEnd SubВыдает мне "красоту" в BASE64 кодировке,а после такогоКод:... sDocURL = oDoc.getURL() oFIC = CreateUnoService("com.sun.star.ucb.FileC ontentProvider") uu = oFIC.getSystemPathFromFileURL(sDocURL).. .В результате получили имя файла в человеко-читаемом виде.
|