vba word, textframe cut data is not pasting on same place of textarea

[sindhu2352]

im trying to cut data from text frame and paste it outside textframe, following code works but it do not paste outside on parent place/index of textframe

Sub fromtxtbox() 
     
     
    For Each s In ActiveDocument.Shapes 
      
         
         
        s.TextFrame.TextRange.Cut 

        Selection.PasteAndFormat (wdFormatOriginalFormatting) 
         
         
    Next 
End Sub

[gmaxey]

It does if the selection or IP is in the main text storyRange.