Converting tables to text

WJSwanepoel · #1 07-25-2024, 07:19 AM

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 · #2 07-28-2024, 12:12 AM

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

WJSwanepoel · #3 07-28-2024, 08:32 PM

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 · #4 07-29-2024, 12:52 AM

You could try this bodgy code

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 · #5 07-29-2024, 03:04 AM

Thanks a million, will give it a go.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Converting tables to images - landscape issue.	arabgogs	Word VBA	0	07-19-2024 02:04 AM
Multiple tables in Word, converting working Excel macro	ez1138	Word VBA	5	04-14-2021 04:39 AM
Converting plain text to text box/frame	peacespotting	Word	1	08-08-2013 10:39 PM
converting arabic text pdf to word messes up text	jeffk	Word	0	10-20-2012 10:01 AM
converting picture into text	MS Office Noob	Word	2	06-12-2012 05:29 PM