LibreOffice-如何通过python宏创建文件对话框？

Question

我想知道是否可以创建一个标准的文件对话框，通过python宏保存pdf。我试图根据这个过时的文档编写一些代码：wiki。openoffice。但LibreOffice在执行后崩溃：

import os
import uno
import sys
import traceback
from com.sun.star.ui.dialogs.TemplateDescription import FILESAVE_SIMPLE

def file_dialog():
    try:
        oCtx = uno.getComponentContext()
        oServiceManager = oCtx.getServiceManager()

        oFilePicker = oServiceManager.createInstanceWithArgumentsAndContext(
                'com.sun.star.ui.dialogs.FilePicker',
                (FILESAVE_SIMPLE,),
                oCtx
            )

        oFilePicker.Title = 'Export as'

        #oDisp = oFilePicker.Text

        oFilePicker.execute()

    except:
        pass
        #oDisp = traceback.format_exc(sys.exc_info()[2])

最后我需要传递选定的路径来编写文档，但是oDisp=oFilePicker。文本返回：（

有人有这方面的经验吗？




Answer 1

给出并接受答案（因为问题是交叉发布的！）在这里：

import uno
from com.sun.star.beans import PropertyValue

#shortcut:
createUnoService = (
        XSCRIPTCONTEXT
        .getComponentContext()
        .getServiceManager()
        .createInstance 
                    )

def pypdf_test():

    desktop = XSCRIPTCONTEXT.getDesktop()
    doc = desktop.getCurrentComponent()

    # filter data
    fdata = []
    fdata1 = PropertyValue()
    fdata1.Name = "SelectPdfVersion"
    fdata1.Value = 1
    fdata2 = PropertyValue()
    fdata2.Name = "Quality"
    fdata2.Value = 100
    fdata.append(fdata1)
    fdata.append(fdata2)

    args = []
    arg1 = PropertyValue()
    arg1.Name = "FilterName"
    arg1.Value = "writer_web_pdf_Export"
    arg2 = PropertyValue()
    arg2.Name = "FilterData"
    arg2.Value = uno.Any("[]com.sun.star.beans.PropertyValue", tuple(fdata) )
    args.append(arg1)
    args.append(arg2)
    fileurl = FilePicker()
    if fileurl:        
        doc.storeToURL( fileurl, tuple(args) )

def FilePicker(path=None, mode=1):
    """
    Datei öffnen:  `mode in (0, 6, 7, 8, 9)`
    Datei Schreiben `mode in (1, 2, 3, 4, 5, 10)`
    see: ('''http://api.libreoffice.org/docs/idl/ref/
            namespacecom_1_1sun_1_1star_1_1ui_1_1
            dialogs_1_1TemplateDescription.html''' )
    """

    filepicker = createUnoService( "com.sun.star.ui.dialogs.OfficeFilePicker" )
    if path:
        filepicker.setDisplayDirectory(path )
    filepicker.initialize( ( mode,) )
    if filepicker.execute():
        return filepicker.getFiles()[0]  

Answer 2

我在oFilePicker物体上用了X光。有两个有趣的方法叫做setCurrentFilter和appendFilterGroup。仅根据名称，它们可能用于过滤可见的文件类型。不幸的是，我不知道如何使用它们。

同样使用X射线，我确定文本不是oFilePicker对象的方法或属性。我不确定代码片段在那里要做什么？如果检索文件路径，1）需要在。执行和2）所选文件路径存储为字符串数组，因此必须从数组中取出该路径。我在OpenOffice中的大部分工作都是在StarBasic中完成的；下面是打印用户选择的文件路径的基本工作示例：

Sub TestFilePicker
    oFilePickerDlg = createUnoService( "com.sun.star.ui.dialogs.FilePicker" )
    oFilePickerDlg.setTitle("My test title")

    If oFilePickerDlg.execute() > 0 Then
        Print ConvertFromURL(oFilePickerDlg.Files(0))
    End If

End Sub