Converting tables to text

[WJSwanepoel]

I have a large number of two column tables that I wish to convert to text in Word 365.


However, I do not want the conversion to worry about rows.
I need the entire first column of the table to be followed by the entire 2nd column.

Is there a way to do this?

[Guessed]

I think I would cut the second column and paste it below the first column, and then convert to text.

[WJSwanepoel]

Hi Andrew,
How absolutely dumb of me not to think of such a simple solution!
I was just hoping for a VBA solution, because there are quite a large number of these tables (in excess of a 100.

Regards,
Willem

[Guessed]

You could try this bodgy code

Sub TableDeconstructor()
  Dim i As Integer, aRng As Range
  For i = ActiveDocument.Tables.Count To 1 Step -1
    With ActiveDocument.Tables(i)
      If .Columns.Count > 1 Then
        .Columns(2).Select
        Selection.Cut
        Set aRng = .Range
        aRng.Collapse Direction:=wdCollapseEnd
        aRng.Select
        Selection.Paste
        .ConvertToText
      End If
    End With
  Next i
End Sub

[WJSwanepoel]

Thanks a million, will give it a go.