Convert all tables to text but ...

[bnyamin]

Convert all tables to text in endnotes

[Guessed]

Yes please, two sugars...

[Guessed]

... and thanks for making such an excellent effort to ask a question so succinctly that no-one knows what you want to do.

[macropod]

Let me guess - two guesses actually (after all we have two Guessed replies )
1. You want to turn all tables in the document body into endnotes - as text, not as tables; or
2. You want to turn all tables in endnotes into text.
Who knows? Maybe you want something different?

[bnyamin]

i want to turn all tables in endnotes into text

[Guessed]

In that case, try this macro

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]

Originally Posted by Guessed

In that case, try this macro

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.