如何通过导入方式更新LibreOffice的自定义属性？

当然可以！手动挨个修改20个自定义字段确实挺折腾的，下面给你两种实用的批量更新方法，帮你从文本文件导入数据自动更新属性：

方法一：用Python宏实现批量导入 #

这种方式灵活度高，适合有一点编程基础的朋友：

• 先把你的数据整理成键值对格式的文本文件，每行一个属性，比如：

  ReportDate=2024-05-20
  ClientName=ABC科技有限公司
  ProjectCode=PROJ-2024-005
  

• 打开你的LibreOffice Writer文档，按下Alt+F11打开宏编辑器，切换到Python语言，新建一个模块，把下面的代码粘贴进去：

  import uno
  def update_custom_properties_from_file():
      # 获取当前打开的文档
      doc = XSCRIPTCONTEXT.getDocument()
      # 文档的自定义属性集合
      user_props = doc.DocumentProperties.UserDefinedProperties
      
      # 替换成你自己的文本文件路径，Windows路径记得用双反斜杠或者单斜杠
      file_path = "/Users/xxx/Documents/report_properties.txt"
      
      with open(file_path, 'r', encoding='utf-8') as f:
          for line in f:
              line = line.strip()
              # 跳过空行或格式不对的行
              if not line or '=' not in line:
                  continue
              # 拆分属性名和属性值
              prop_name, prop_value = line.split('=', 1)
              # 存在则更新，不存在则新增
              if user_props.hasByName(prop_name):
                  user_props.setPropertyValue(prop_name, prop_value)
              else:
                  user_props.addProperty(prop_name, 0, prop_value)
      
      print("自定义属性更新完成！")
  

• 修改代码里的file_path为你的文本文件实际路径，保存宏后运行它，就能自动完成所有属性的更新啦。

方法二：用LibreOffice Basic宏实现 #

如果你更熟悉Basic语言，可以试试这个版本：

• 同样先准备好键值对格式的文本文件，打开宏编辑器切换到Basic语言，新建模块后粘贴代码：

  Sub UpdateCustomPropertiesFromFile()
      Dim doc As Object
      Dim userProps As Object
      Dim fileNum As Integer
      Dim lineText As String
      Dim keyValueArr As Variant
      Dim propName As String, propValue As String
      
      ' 获取当前文档
      doc = ThisComponent
      userProps = doc.DocumentProperties.UserDefinedProperties
      
      ' 替换成你的文本文件路径
      filePath = "C:\Users\xxx\Documents\report_props.txt"
      
      fileNum = FreeFile()
      Open filePath For Input As #fileNum
      
      ' 逐行读取文件
      Do While Not EOF(fileNum)
          Line Input #fileNum, lineText
          lineText = Trim(lineText)
          ' 只处理格式正确的行
          If lineText <> "" And InStr(lineText, "=") > 0 Then
              keyValueArr = Split(lineText, "=", 2)
              propName = keyValueArr(0)
              propValue = keyValueArr(1)
              
              ' 更新或新增属性
              If userProps.HasByName(propName) Then
                  userProps.SetPropertyValue(propName, propValue)
              Else
                  userProps.AddProperty(propName, 0, propValue)
              End If
          End If
      Loop
      
      Close #fileNum
      MsgBox "自定义属性已成功更新！", vbInformation
  End Sub
  

• 修改filePath为你的文件路径，运行宏后会弹出提示框告诉你更新完成。

小提示 #

如果你的数据是CSV格式（比如用逗号分隔属性名和值），只需要修改代码里的分割逻辑，把按=分割改成按逗号分割就行。另外，运行宏前建议先备份文档，避免意外情况哦。

备注：内容来源于stack exchange，提问作者Ben_L