Convert all tables to text but ...

Guessed · #1 05-25-2017, 12:03 AM

In that case, try this macro

Code:

Sub ConvertEndnoteTables()
  Dim aEN As Endnote, i As Integer
  For Each aEN In ActiveDocument.Endnotes
    For i = aEN.Range.Tables.Count To 1 Step -1
      aEN.Range.Tables(i).ConvertToText Separator:=wdSeparateByParagraphs, NestedTables:=True
    Next i
  Next aEN
End Sub

bnyamin · #2 05-25-2017, 12:15 AM

Quote:

Originally Posted by Guessed

In that case, try this macro

Code:

Sub ConvertEndnoteTables()
  Dim aEN As Endnote, i As Integer
  For Each aEN In ActiveDocument.Endnotes
    For i = aEN.Range.Tables.Count To 1 Step -1
      aEN.Range.Tables(i).ConvertToText Separator:=wdSeparateByParagraphs, NestedTables:=True
    Next i
  Next aEN
End Sub

Thank you for sharing your wisdom with me.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert Word Tables to PDF	tcoggins	Word Tables	2	06-29-2016 10:28 AM
I need to convert shaded text into highlighted text on about 80 different long documents. VBA macro?	AustinBrister	Word VBA	8	05-28-2015 02:42 PM
convert text to tables	oraenthu	Word	8	03-17-2015 10:22 AM
convert tables to fillable forms in word	expert4knowledge	Word	1	02-13-2014 03:06 AM
My plain text post got converted to rich text in a reply, how to convert it back?	david.karr	Outlook	0	01-05-2012 09:46 AM