如何在Microsoft Word 2022中插入XML标签并导出纯净XML文件

方案一：自定义样式替代XML标签 + VBA宏导出XML #

由于Word 2010后取消了XML结构面板，用自定义样式标记内容是最简便的替代方式，再通过VBA宏导出符合Anki要求的XML：

1. 创建自定义标记样式

   • 打开Word 2022，点击「开始」→「样式」→「新建样式」
   • 分别创建两个样式：Anki_Question（标记问题）、Anki_Answer（标记答案），可以设置独特格式（比如问题蓝色加粗、答案绿色斜体）方便快速识别

2. 标记课程笔记内容

   • 选中笔记里的问题段落，应用Anki_Question样式；选中答案段落，应用Anki_Answer样式

3. 编写并运行导出宏

   • 按Alt+F11打开VBA编辑器，右键「Normal」→「插入」→「模块」，粘贴以下代码：

Sub ExportAnkiXML()
    Dim doc As Document
    Dim para As Paragraph
    Dim xmlContent As String
    Dim question As String, answer As String
    
    Set doc = ActiveDocument
    xmlContent = "<anki_deck><name>课程笔记闪卡</name>" & vbCrLf
    
    For Each para In doc.Paragraphs
        If para.Style.NameLocal = "Anki_Question" Then
            ' 导出上一组问答（如果存在）
            If question <> "" And answer <> "" Then
                xmlContent = xmlContent & "<card>" & vbCrLf
                xmlContent = xmlContent & "  <question>" & CleanText(para.Range.Text) & "</question>" & vbCrLf
                xmlContent = xmlContent & "  <answer>" & CleanText(answer) & "</answer>" & vbCrLf
                xmlContent = xmlContent & "</card>" & vbCrLf
                answer = ""
            End If
            question = CleanText(para.Range.Text)
        ElseIf para.Style.NameLocal = "Anki_Answer" Then
            answer = answer & CleanText(para.Range.Text) & "<br>"
        End If
    Next para
    
    ' 处理最后一组问答
    If question <> "" And answer <> "" Then
        xmlContent = xmlContent & "<card>" & vbCrLf
        xmlContent = xmlContent & "  <question>" & question & "</question>" & vbCrLf
        xmlContent = xmlContent & "  <answer>" & Left(answer, Len(answer) - 4) & "</answer>" & vbCrLf
        xmlContent = xmlContent & "</card>" & vbCrLf
    End If
    
    xmlContent = xmlContent & "</anki_deck>"
    
    ' 保存XML文件
    Dim savePath As String
    savePath = Application.GetSaveAsFilename(FileFilter:="XML Files (*.xml), *.xml", Title:="导出Anki XML")
    If savePath <> "False" Then
        Open savePath For Output As #1
        Print #1, xmlContent
        Close #1
        MsgBox "XML导出完成！"
    End If
End Sub

Function CleanText(text As String) As String
    ' 清理文本中的换行符和XML特殊字符
    CleanText = Replace(Replace(text, vbCr, "", , , vbTextCompare), "<", "&lt;")
    CleanText = Replace(CleanText, ">", "&gt;")
End Function

• 回到Word，按Alt+F8选择ExportAnkiXML运行，选择保存路径即可生成XML文件

4. 导入Anki
   • 打开Anki，点击「文件」→「导入」，选择导出的XML，设置「字段分隔符」为「XML」，匹配问题和答案字段后完成导入

方案二：使用Word内置XML映射功能 #

Word 2022仍保留XML架构绑定功能，无需依赖旧版面板：

1. 准备自定义XML架构文件
   创建一个anki_notes.xsd文件，内容如下：

<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
  <xs:element name="notes">
    <xs:complexType>
      <xs:sequence>
        <xs:element name="note" maxOccurs="unbounded">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="question" type="xs:string"/>
              <xs:element name="answer" type="xs:string"/>
            </xs:sequence>
          </xs:complexType>
        </xs:element>
      </xs:sequence>
    </xs:complexType>
  </xs:element>
</xsd>

2. 绑定架构到文档

   • 打开「开发工具」选项卡（未显示的话，右键功能区→「自定义功能区」勾选「开发工具」）
   • 点击「开发工具」→「XML」→「架构」→「添加架构」，选择上述anki_notes.xsd并确认

3. 用内容控件标记内容

   • 选中问题内容，点击「开发工具」→「XML」→「映射」，选择question节点，点击「插入内容控件」→「纯文本」
   • 选中答案内容，同理插入绑定到answer节点的纯文本控件

4. 导出XML
   点击「开发工具」→「XML」→「导出」，保存XML文件后直接导入Anki即可

方案三：第三方插件（可选） #

如果不想手动操作VBA或XML架构，可选择支持Word 2022的正规第三方笔记标记插件，这类工具通常支持一键标记内容并导出Anki兼容格式，但注意从官方渠道下载避免安全风险

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