Thread: [Solved] Convert all tables to text but ...
View Single Post
 
Old 05-25-2017, 12:03 AM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2013
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,159
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
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
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote