Microsoft Office Forums - View Single Post - [Solved] Convert all tables to text but ...

bnyamin · 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.