能否从Word文档生成XFDF文件并将其与PDF合并？

Hey there! Let me walk you through how to generate an XFDF file from your Word document and merge it with your PDF—this is a common workflow, so I’ve got you covered.

第一步：整理字段映射（关键前提） #

首先，你得把两个文件的字段对应关系理清楚：

• 打开你的目标PDF，用Adobe Acrobat这类工具查看表单的准确字段名称（XFDF里的字段名必须和PDF里的完全一致，大小写、拼写都不能错）。
• 在Word文档里，标记好需要提取的信息对应的字段（比如用内容控件、书签，或者直接记下每个信息对应的PDF字段名）。

第二步：生成XFDF文件 #

根据你的字段数量多少，有两种实用方法：

方法1：手动编写（适合字段少的场景） #

XFDF是XML格式的纯文本文件，你可以直接用记事本编写，基础结构如下：

<?xml version="1.0" encoding="UTF-8"?>
<xfdf xmlns="http://ns.adobe.com/xfdf/" xml:space="preserve">
  <fields>
    <field name="PDF_Field_Name_1">
      <value>从Word复制的对应内容</value>
    </field>
    <field name="PDF_Field_Name_2">
      <value>另一段Word里的信息</value>
    </field>
    <!-- 按这个格式添加所有需要的字段 -->
  </fields>
  <f href="你的目标PDF文件名.pdf"/>
</xfdf>

写完后，把文件保存为xxx.xfdf格式就行。

方法2：用Word VBA自动生成（适合字段多的场景） #

如果Word里的信息是结构化的（比如用了内容控件），可以写个简单的VBA脚本自动提取数据并生成XFDF：

1. 打开你的Word文档，按下Alt + F11打开VBA编辑器。
2. 插入新模块，粘贴下面的代码（记得根据你的实际情况修改字段映射）：

Sub GenerateXFDF()
    Dim fso As Object
    Dim outputFile As Object
    Dim xfdfContent As String
    Dim fieldMappings As Variant
    Dim i As Integer
    
    ' 自定义字段映射：第一个是Word内容控件的标题，第二个是PDF的字段名
    fieldMappings = Array( _
        Array("Word_用户姓名", "PDF_Username"), _
        Array("Word_联系电话", "PDF_Phone") _
    )
    
    ' 构建XFDF头部
    xfdfContent = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
    xfdfContent = xfdfContent & "<xfdf xmlns=""http://ns.adobe.com/xfdf/"" xml:space=""preserve"">" & vbCrLf
    xfdfContent = xfdfContent & "  <fields>" & vbCrLf
    
    ' 遍历映射，提取Word内容并写入XFDF
    For i = LBound(fieldMappings) To UBound(fieldMappings)
        Dim wordContent As String
        ' 从Word内容控件中提取内容，可根据实际情况调整获取方式
        wordContent = ActiveDocument.SelectContentControlsByTitle(fieldMappings(i)(0)).Item(1).Range.Text
        xfdfContent = xfdfContent & "    <field name=""" & fieldMappings(i)(1) & """>" & vbCrLf
        xfdfContent = xfdfContent & "      <value>" & wordContent & "</value>" & vbCrLf
        xfdfContent = xfdfContent & "    </field>" & vbCrLf
    Next i
    
    ' 完成XFDF结构
    xfdfContent = xfdfContent & "  </fields>" & vbCrLf
    xfdfContent = xfdfContent & "  <f href=""目标PDF文件名.pdf""/>" & vbCrLf
    xfdfContent = xfdfContent & "</xfdf>"
    
    ' 保存XFDF文件到Word文档同目录
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set outputFile = fso.CreateTextFile(ActiveDocument.Path & "\自动生成.xfdf", True, True)
    outputFile.Write xfdfContent
    outputFile.Close
    
    MsgBox "XFDF文件已生成！", vbInformation
End Sub

3. 修改fieldMappings数组，把你的Word字段标识和PDF字段名对应好，点击运行宏就能自动生成XFDF了。

第三步：合并XFDF与PDF #

用Adobe Acrobat可视化操作 #

• 打开目标PDF，点击工具 > 表单 > 更多表单选项 > 导入数据，选中你生成的XFDF文件，确认后PDF字段就会自动填充Word里的内容。

用命令行批量处理（适合多文件场景） #

可以用pdftk工具，命令如下：

pdftk 目标PDF文件.pdf fill_form 你的XFDF文件.xfdf output 填充后的PDF文件名.pdf flatten

加flatten参数会把填充的内容变成PDF的固定部分，无法再编辑；不加的话，字段还可以修改。

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