extracting text from text box

...and deleting the text box

is there a simple way without difficult procedure codes ? MY VBA version is 7.1
This is one of my questions on my previous post in reformatting pages on adding page numbers. :)
tanks in advance once again

Maybe something like the following will work with a selected floating text box

Code:

---

Sub Macro1()
Dim sText As String
Dim oRng As Range
    Set oRng = Selection.ShapeRange.TextFrame.TextRange
    sText = oRng.Text
    Set oRng = Selection.ShapeRange.ConvertToInlineShape.Range
    oRng.Text = sText
    Set oRng = Nothing
End Sub

---

The problem however is that the text box will have been used to format the document in a particular way, which will be lost.