some mistakes in macro

I have found a macro to select all of the tables in Word, but I want it to convert all of the tables to texts. Now I put the macro behind it but failed. Could you please help me？ I do need your help.

Selection.Cut
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst
    Selection.Paste
    Dim mytable As Table
    For Each mytable In ActiveDocument.Tables
    mytable.Range.Editors.Add wdEditorEveryone
 Next
    ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
    ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)

I add a macro Below. 

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
        NestedTables:=True

End Sub