如何使用VBA将Microsoft Word内容控件字段数据写入文本文件？

Sub ExportContentControlData()
    Dim cc As ContentControl
    Dim filePath As String
    Dim fileNumber As Integer
    
    ' 设置文件路径
    filePath = "C:\path\to\output.txt"
    
    ' 打开文本文件以供写入
    fileNumber = FreeFile
    Open filePath For Output As fileNumber
    
    ' 遍历文档中的内容控件
    For Each cc In ActiveDocument.ContentControls
        ' 检查内容控件是否包含文本
        If cc.Type = wdContentControlText Then
            ' 将内容控件字段的值写入文本文件
            Print #fileNumber, cc.Range.Text
        End If
    Next cc
    
    ' 关闭文本文件
    Close fileNumber
End Sub