Private Sub cmdConvertToText_Click()

On Error GoTo ErrorHandler
    If txtSeparator.Value <> "" Then
       Selection.Tables(1).Select
       Selection.Rows.ConvertToText Separator:="^", NestedTables:=True 'The ^ char is temporary.
       Call DoFindClean("^", (txtSeparator.Value), "0") 'Swap ^ for textbox content.
    Else
        Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
    End If
Exit Sub

ErrorHandler:
   MsgBox "Run Table Converter after clicking in a table.  Don't 'select' the table, just click in it."

End Sub

Sub DoFindClean(FindText As String, ReplaceText As String, WrapOrNot As String)
  'This module gets called from the Text Cleaner code
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = FindText
        .Replacement.Text = ReplaceText
        .Forward = True
        .Wrap = WrapOrNot
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub