关于LibreOffice Writer带复选框用户窗体功能实现的技术问询

一、单用户窗体实现步骤 #

1. 创建用户窗体 #

• 打开LibreOffice Writer，按下Alt+F11打开宏编辑器
• 顶部菜单栏点击「工具」>「窗体设计」，调出窗体设计面板
• 在左侧控件栏中，依次拖入复选框（按需添加数量）和一个按钮：
  • 右键每个复选框，选择「控件」>「属性」，在「常规」标签页设置：
    • 「名称」：比如chkText1、chkImage1、chkText2（方便代码识别）
    • 「标签」：比如「产品介绍文本」「公司Logo图片」「售后服务说明」（用户可见的名称）
  • 右键按钮，设置「名称」为btnSelect，「标签」为「确认选择并生成文档」

2. 编写宏代码 #

在宏编辑器中，右键左侧「我的宏」>「Standard」>「Module1」，选择「编辑」，粘贴以下代码（注释标注每一步作用）：

' 全局变量，用于存储选中的内容
Dim selectedContents As New Collection

Sub btnSelect_Click()
    ' 清空之前的选中记录
    While selectedContents.Count > 0
        selectedContents.Remove(1)
    Wend
    
    ' 获取当前窗体的控件
    Dim oForm As Object
    oForm = ThisComponent.DrawPage.Forms.getByIndex(0)
    
    ' 逐个检查复选框是否选中，收集内容
    ' 示例1：文本内容的复选框
    If oForm.getByName("chkText1").State = 1 Then
        selectedContents.Add("这是产品介绍的具体文本内容，可替换成你需要的文字。")
    End If
    If oForm.getByName("chkText2").State = 1 Then
        selectedContents.Add("这是售后服务说明的具体文本内容，可自定义修改。")
    End If
    
    ' 示例2：图片内容的复选框（替换为你的本地图片路径）
    If oForm.getByName("chkImage1").State = 1 Then
        selectedContents.Add("IMAGE:C:\Users\你的用户名\Desktop\公司Logo.png")
    End If
    
    ' 调用生成新文档的函数
    GenerateNewDocument()
End Sub

Sub GenerateNewDocument()
    ' 创建新的Writer文档
    Dim oNewDoc As Object
    oNewDoc = StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
    
    ' 获取新文档的文本光标
    Dim oCursor As Object
    oCursor = oNewDoc.Text.createTextCursor()
    
    ' 遍历选中的内容，插入到新文档
    Dim i As Integer
    For i = 1 To selectedContents.Count
        Dim content As String
        content = selectedContents.Item(i)
        
        ' 判断是文本还是图片
        If Left(content, 6) = "IMAGE:" Then
            ' 插入图片
            Dim imgPath As String
            imgPath = Mid(content, 7)
            Dim oGraphic As Object
            oGraphic = oNewDoc.createInstance("com.sun.star.text.GraphicObject")
            oGraphic.GraphicURL = ConvertToURL(imgPath)
            oNewDoc.Text.insertTextContent(oCursor, oGraphic, False)
            ' 图片后换行
            oNewDoc.Text.insertString(oCursor, Chr(13), False)
        Else
            ' 插入文本
            oNewDoc.Text.insertString(oCursor, content & Chr(13), False)
        End If
    Next i
    
    ' 自动保存新文档（替换为你的保存路径）
    Dim savePath As String
    savePath = "C:\Users\你的用户名\Desktop\选中内容文档.odt"
    oNewDoc.storeAsURL(ConvertToURL(savePath), Array())
    
    ' 提示操作完成
    MsgBox("新文档已生成并保存！")
End Sub

3. 关联按钮与宏 #

• 返回窗体设计器，右键btnSelect按钮，选择「事件」>「执行动作」
• 点击右侧「...」按钮，在宏选择窗口中找到Standard.Module1.btnSelect_Click，选中后点击「确定」
• 关闭窗体设计器，保存当前Writer文档（建议用.odt格式）

4. 测试功能 #

• 打开保存的文档，按下Ctrl+Shift+F11调出窗体（或点击「视图」>「窗体」）
• 勾选需要的复选框，点击「确认选择并生成文档」按钮，即可自动生成包含选中内容的新文档并保存

二、多用户窗体实现方法 #

多窗体的核心是用全局变量共享选中项，让多个窗体的操作都能访问和修改这个变量。

1. 准备多个窗体 #

• 按照单窗体的创建方法，创建多个窗体（比如「文本选择窗体」「图片选择窗体」），每个窗体放置对应的复选框和一个「添加选中项」按钮
• 再创建一个「最终生成文档」窗体，放置一个「生成文档」按钮

2. 修改宏代码 #

在Module1中保留全局变量selectedContents，为每个窗体的按钮编写点击事件：

' 全局变量，所有窗体共享
Dim selectedContents As New Collection

' 第一个窗体（文本选择）的添加按钮点击事件
Sub btnAddText_Click()
    Dim oForm As Object
    oForm = ThisComponent.DrawPage.Forms.getByIndex(0) ' 第一个窗体索引为0，第二个为1，以此类推
    
    If oForm.getByName("chkText1").State = 1 Then
        selectedContents.Add("产品介绍文本内容")
    End If
    If oForm.getByName("chkText2").State = 1 Then
        selectedContents.Add("售后服务说明文本内容")
    End If
    
    MsgBox("已添加选中的文本内容！")
End Sub

' 第二个窗体（图片选择）的添加按钮点击事件
Sub btnAddImage_Click()
    Dim oForm As Object
    oForm = ThisComponent.DrawPage.Forms.getByIndex(1)
    
    If oForm.getByName("chkImage1").State = 1 Then
        selectedContents.Add("IMAGE:C:\Users\你的用户名\Desktop\Logo.png")
    End If
    If oForm.getByName("chkImage2").State = 1 Then
        selectedContents.Add("IMAGE:C:\Users\你的用户名\Desktop\产品图.png")
    End If
    
    MsgBox("已添加选中的图片内容！")
End Sub

' 最终生成文档的按钮点击事件
Sub btnGenerate_Click()
    GenerateNewDocument()
End Sub

' 生成文档的通用函数（和单窗体一致）
Sub GenerateNewDocument()
    Dim oNewDoc As Object
    oNewDoc = StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
    
    Dim oCursor As Object
    oCursor = oNewDoc.Text.createTextCursor()
    
    Dim i As Integer
    For i = 1 To selectedContents.Count
        Dim content As String
        content = selectedContents.Item(i)
        
        If Left(content, 6) = "IMAGE:" Then
            Dim imgPath As String
            imgPath = Mid(content, 7)
            Dim oGraphic As Object
            oGraphic = oNewDoc.createInstance("com.sun.star.text.GraphicObject")
            oGraphic.GraphicURL = ConvertToURL(imgPath)
            oNewDoc.Text.insertTextContent(oCursor, oGraphic, False)
            oNewDoc.Text.insertString(oCursor, Chr(13), False)
        Else
            oNewDoc.Text.insertString(oCursor, content & Chr(13), False)
        End If
    Next i
    
    Dim savePath As String
    savePath = "C:\Users\你的用户名\Desktop\多窗体选中内容文档.odt"
    oNewDoc.storeAsURL(ConvertToURL(savePath), Array())
    
    MsgBox("新文档已生成并保存！")
End Sub

3. 关联各窗体按钮与宏 #

每个窗体的按钮按照单窗体的方法，关联对应的宏（比如第一个窗体按钮关联btnAddText_Click，第二个关联btnAddImage_Click，生成按钮关联btnGenerate_Click）

4. 测试多窗体功能 #

• 依次打开各个窗体，勾选内容后点击「添加选中项」
• 最后打开「最终生成文档」窗体，点击「生成文档」按钮，即可把所有窗体选中的内容汇总到新文档中

内容的提问来源于stack exchange，提问作者Mig