how to delete(or convert into textframe) the linked text boxes without deleting the text on that page using VBA macro

Thanks for your reply fellas, 

I'm sorry for the delay in reply. I have tried both of your methods, it was working good. But I forgot to mention that I wanted each text boxes' text should be placed in the same  order of text boxes (Some text boxes are un-linked which is placed in between the linked text boxes). We came up with the following macro that would read the text box's name from a xml and copy the text range, then place it in a new file. Once again Thank you fellas. 

The following is the macro which we came up with

Sub ExtracttextboxRangetext()
    Dim shp As Shape
    Dim oRngAnchor As range
    Dim sString As String
    Dim xmldoc As MSXML2.DOMDocument
    Dim oXmlNode As MSXML2.IXMLDOMNode
    Set xmldoc = New MSXML2.DOMDocument
    Set doc1 = ActiveDocument
    Set doc = Documents.Add 'create a new document
    doc1.Activate
    Dim j As Integer
    xmldoc.async = False
  If xmldoc.Load("C:\Users\Textframe\Output.xml") = True Then
    Set iList = xmldoc.SelectNodes("//Measurements/TextFrame")
    For Each iNode In iList
    shapeNamFrmXml = iNode.Attributes.getNamedItem("id").Text
        For Each shp In ActiveDocument.Shapes
            If shp.name = shapeNamFrmXml Then
                shp.textframe.TextRange.Select
                pageNum = Selection.Information(wdActiveEndPageNumber)
                MsgBox (pageNum)
                Selection.range.Copy
                doc.Activate
                doc.range.Select
                Selection.EndKey Unit:=wdStory
                Selection.InsertBefore (Chr(13))
                Selection.PasteAndFormat (wdPasteDefault)
                Selection.InsertBefore (Chr(13))
                doc1.Activate
            End If
        Next shp
    Next iNode
    End If
End Sub