如何修改VBA脚本实现带指定参数的Word转文本文件？

• 现有VBA脚本通过FileSystemObject的CreateTextFile方法，将PDF转换而来的Word文档转为文本文件，但生成的文本丢失了小节编号。
• 手动通过Word导出文本（选择Windows默认编码、不插入换行、允许字符替换）可得到符合需求的文件，录制宏得到包含InsertLineBreaks:=False、AllowSubstitutions:=True等参数的SaveAs2代码。
• 希望修改原脚本整合这些参数生成符合要求的文本文件，但CreateTextFile无对应配置选项，求解决方案。

直接使用Word内置的SaveAs2方法替代FileSystemObject.CreateTextFile即可。CreateTextFile仅能简单写入文本内容，无法识别和保留Word文档的结构化格式（如小节编号），而SaveAs2会严格遵循Word的导出规则，完美适配你需要的参数。

示例代码：

Sub ConvertWordToTxtProperly()
    Dim targetDoc As Document
    ' 替换为你的源文档路径
    Set targetDoc = Documents.Open("C:\YourFolder\InputFromPDF.docx")
    
    ' 执行带参数的文本导出
    targetDoc.SaveAs2 _
        FileName:="C:\YourFolder\OutputWithSectionNumbers.txt", _
        FileFormat:=wdFormatText, _
        Encoding:=msoEncodingWindowsDefault, _
        InsertLineBreaks:=False, _
        AllowSubstitutions:=True
    
    ' 可选：关闭源文档（不保存修改）
    targetDoc.Close SaveChanges:=wdDoNotSaveChanges
End Sub

关键参数说明：

• wdFormatText：指定导出格式为纯文本
• msoEncodingWindowsDefault：对应手动选择的Windows默认编码
• InsertLineBreaks:=False：禁用自动插入换行，和手动导出选项一致
• AllowSubstitutions:=True：允许字符替换，确保特殊字符处理符合要求

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