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.