如何在VBA中结合wdSeparateByTabs与默认列表分隔符|转换Word表格为文本？

要实现将Word文档中所有表格转换为以“|”为分隔符的文本，你可以将设置默认列表分隔符与表格转文本的逻辑合并到一个宏中，具体代码如下：

Sub ConvertTblsToTextWithPipeSeparator()
    ' 将所有表格转换为以"|"为分隔符的文本
    Dim tbl As Table
    Dim originalSeparator As String
    
    ' 保存原默认分隔符，处理后可恢复
    originalSeparator = Application.DefaultTableSeparator
    
    ' 设置默认列表分隔符为"|"
    Application.DefaultTableSeparator = "|"
    
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "此文档中没有表格。", vbOKOnly, "错误"
        ' 恢复原分隔符后退出
        Application.DefaultTableSeparator = originalSeparator
        Exit Sub
    End If
    
    ' 遍历所有表格，转换为文本
    For Each tbl In ActiveDocument.Tables
        tbl.ConvertToText Separator:=wdSeparateByDefaultListSeparator
    Next tbl
    
    ' 恢复原默认分隔符（可选，根据需求保留）
    Application.DefaultTableSeparator = originalSeparator
    
    MsgBox "所有表格已转换为以""|""为分隔符的文本。", vbOKOnly, "完成"
End Sub

关键说明： #

• 先保存原默认分隔符，避免修改后影响其他操作，处理完成后可恢复
• 通过Application.DefaultTableSeparator = "|"将默认列表分隔符设置为“|”
• 调用ConvertToText时指定Separator:=wdSeparateByDefaultListSeparator，此时会使用我们设置的“|”作为分隔符，替代原代码中的wdSeparateByTabs
• 保留了原代码中无表格时的错误提示逻辑

如果你不需要恢复原分隔符，可以删除保存和恢复原分隔符的代码行。

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