向vba高手求助：如何用vba去除word文档表格，只保留文本？

Question

两种表格：
1.

2.

有没有方法将表格去除，按照以下格式保留文本？
1.A 2.B 3.C 4.D 5.E 6.F 7.G 8.H 9.I 10.J 11.K 12.L

Answer 1

 
Sub A()
Dim str1 As String
For j = 1 To 3 Step 2
For i = 1 To 6
        str1 = str1 & Replace(Tables(1).Cell(j, i).Range.Text, Chr(13), ".") & Replace(Tables(1).Cell(j + 1, i).Range.Text, Chr(13), "    ")
Next i
Next j
ActiveDocument.Content.InsertAfter Text:=str1
End Sub

粘贴代码试试！