RTF 批量转换为 DOCX 文件

  RTF是多信息文本格式，可用于多设备、系统。最近在做一个小的数据批量处理程序时遇到了RTF格式的数据文件，这种格式虽然跨设备跨系统，但是发现解析此格式的库比较少（至少Python比较少）而且功能不全，不能实现自己获取数据文件里面的表格的需求。而对于DOCX格式的文件，其解析库就相对成熟一些！所以我需要将RTF文件转换为DOCX文件。单个文件的话，直接用word打开，然后另存为docx即可，多个文件的时候就可以使用如下步骤进行批量处理：

1.新建一个空白 word，并双击打开：

2.Alt + F11 组合键打开宏运行环境。注意，如果该组合按键没有效果，可以试试 Alt + Fn + F11.

3.点击菜单栏的 插入 子菜单，选择 模块，插入一个代码模块：

4.将以下代码段复制到刚才打开的空白窗体中：

Option Explicit
Sub doc2docx()
Dim sEveryFile As String
Dim sSourcePath As String
Dim sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "C:\Users\yxiao\Documents\workspace\医疗检测\数据\"
sEveryFile = Dir(sSourcePath & "*.Rtf")
Do While sEveryFile <> ""Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)sNewSavePath = VBA.Strings.Replace(sSourcePath & "DOCX文件\" & sEveryFile, ".Rtf", ".docx")CurDoc.SaveAs2 sNewSavePath, wdFormatDocumentDefaultCurDoc.Close SaveChanges:=FalsesEveryFile = Dir
Loop
Set CurDoc = Nothing
End Sub

5.修改代码中 rtf 文件所在的目录，以及转换后的 docx 结果文件存放的文件夹名，默认是在 rtf文件所在的当前目录下新建一个名为 DOCX文件 的文件夹：

RTF文件目录和DOCX文件目录如下图所示：

6.按下 F5 按键或者点击如图绿色三角标执行代码，然后等待代码执行完毕。需要转换的RTF文件数量越多，等待代码执行完毕的时间越长，一般50个RTF文件转换执行所需时间为15秒左右：

7.转换结果如下图所示：