用VBA快速将Word文档表格转化为纯文本

一、原表格以及转移出来的文本

转为纯文本时，每一行内容保留表头，文本在表格下方

二、代码

Sub 表格转为纯文本()
    Dim t As Single
    t = Timer
    Dim i As Integer, j As Integer
    Dim ta As Table
    Dim arr() As String
    
    Set ta = ActiveDocument.Range.Tables(1)
    
    ReDim arr(1 To ta.Rows.count, 1 To ta.Columns.count)
    For i = 1 To ta.Rows.count
        For j = 1 To ta.Columns.count
            arr(i, j) = ta.cell(i, j).Range.Text
            arr(i, j) = Left(arr(i, j), Len(arr(i, j)) - 2)
        Next
    Next
    ta.Select
    With Selection
        .MoveRight Unit:=wdCharacter, count:=1, Extend:=wdMove
        For i = 2 To ta.Rows.count
            For j = 1 To ta.Columns.count
                .Range.Text = arr(1, j) & "：" & vbCr
                .EndKey Unit:=wdStory, Extend:=wdMove
                .Range.Text = arr(i, j)
                .EndKey Unit:=wdStory, Extend:=wdMove
                .TypeParagraph
            Next
        Next
    End With
        MsgBox "运行时间（秒）：" & Timer - t
End Sub