This will convert a table to text while preserving the formatting

   Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= True