Convert Text Boxes to Normal Text in Word Using VBA Code

[laith93]

Hi,
Please how to convert already text boxes in Word to normal or plain text, sometimes, I copied text boxes from PowerPoint.
I used many codes on the internet for this purpose, but all does not fulfill my need, such as
Removing All Text Boxes In a Document (Microsoft Word)
Any fix, suggestion, please?
Use demo file



Thanks

[Guessed]

The basic principle is as follows

Sub FlattenTextBoxes()
  Dim shp As Shape, iShp As Integer, sString As String
  For iShp = ActiveDocument.Shapes.Count To 1 Step -1
    Set shp = ActiveDocument.Shapes(iShp)
    If shp.TextFrame.HasText Then
      sString = shp.TextFrame.TextRange.Text
      shp.Anchor.InsertBefore sString
      shp.Delete
    End If
  Next iShp
End Sub

Your sample file had all the text boxes anchored to the same paragraph and the text is getting put into the doc in reverse order. This single anchor makes it more complicated to get the resulting text in the same order as it appeared on the page. Perhaps this isn't an issue in your Actual documents - the code would likely need to be a lot more complicated to replicate the order of the original text.
I'm not sure if the numbering order uses Z-Order, creation order or physical location on the page.

[laith93]

Originally Posted by Guessed

The basic principle is as follows

Sub FlattenTextBoxes()
  Dim shp As Shape, iShp As Integer, sString As String
  For iShp = ActiveDocument.Shapes.Count To 1 Step -1
    Set shp = ActiveDocument.Shapes(iShp)
    If shp.TextFrame.HasText Then
      sString = shp.TextFrame.TextRange.Text
      shp.Anchor.InsertBefore sString
      shp.Delete
    End If
  Next iShp
End Sub

Dear Andrew,
Thanks so much for this great help
The basic reason for this appearance is when I convert a PowerPoint file (in pdf format downloaded from the net) to ppt again, every line is converted to a textbox, after running your macro, it flattened all the textboxes to standard plain text.
Now everything is ok, although it requires returning each line to its corresponding paragraph.

However, Thanks again with my respect, you helped me and saved my time.
Best Wishes