Removing All Text Boxes In a Document

This I already knew. What I wanted was to eliminate these ghost rectangles that appear like floating in everyword document:

Just on Word. Word for Mac.

Badly phrased your security question. Should have been what is 8 plus 7, The way it is phrased could be understood the answer to be 1

I don't want to subscribe to any newsletters, but I do want to say how grateful I am for all the incredibly valuable tips you have provided over the years. For help with Word, your site is consistently the best, over and over again. You have helped me out of a lot of jams, so THANK YOU! I am committed to using Word 2000 as long as I can simply because it is better than all the other, later versions of Word that I have tried. I am on a very limited income, but if you want to point me to a Paypal link, I'll be happy to donate what I can.

A text box is a shape comprising a rectangle with a textframe and text. However a rectangle to which a textframe has been subsequently added looks and acts the same but is not a textbox. Confusing isn't it?

It would seem that your "pictures" are rectangles (or perhaps another shape such as a rectangle with rounded corners) containing textframes. The above macros only process textboxes and not other shapes containing text.

The following macro will step through every shape in the document and if a shape contains a textframe, extract the text and delete the shape. Because textboxes are a subset of shapes they will also be processed. The text is placed at the shape anchor point which usually is at the start of a paragraph.

Sub ExtractTextInShapes()
Dim shp As Shape
Dim oRngAnchor As Range
Dim sString As String
Dim txtFrame As TextFrame

For Each shp In ActiveDocument.Shapes
Set txtFrame = Nothing
On Error Resume Next
Set txtFrame = shp.TextFrame
On Error GoTo 0
If Not txtFrame Is Nothing Then
If shp.TextFrame.HasText Then
sString = shp.TextFrame.TextRange.Text
Set oRngAnchor = shp.Anchor.Paragraphs(1).Range
oRngAnchor.InsertBefore _
"Textbox start << " & sString & " >> Textbox end"
shp.Delete
End If
End If
Next shp
End Sub

Never mind sorry, turns out my "text box" is classified as a "picture". Since the "picture" has plain text inside the box which I can edit at will, I had hoped to be able to extract the text but remove the "picture" formatting (in a 500 page word documents with a thousand of those "pictures". Seems impossible.

"The document text, minus the text boxes, is now in the new document"


This is WRONG, the boxes stay.

I can't see that RemoveTextBox1 deletes texboxes in header/footer. Looks like you have to loop through all story ranges and shape ranges. If you use for each shape in shaperanges and delete it, it misses to delete all.

This works bettter on my documents:
Sub RemoveAllTextBoxes()
Dim rStory As Range
Dim shp As Shape
Dim ShapeNo As Integer

For Each rStory In ActiveDocument.StoryRanges
For ShapeNo = rStory.ShapeRange.Count To 1 Step -1
Set shp = rStory.ShapeRange(ShapeNo)
If shp.Type = msoTextBox Then shp.Delete
Next ShapeNo
Next rStory
End Sub

I DIDN'T KNOW HOW TO USE EXCEL OR ANY ONLINE PROGRAMMING THING BUT I WENT TO THESE TWO SITES: https://www.youtube.com/watch?v=sQWlwSnWI2g
https://www.youtube.com/watch?v=6LpKsQtOSPQ
AND THEY EXPLAINED HOW TO PUT IN A MACRO

I SELECTED ALL THE TEXT BOXES AND PRESSED RUN PROGRAM (ALL 62 TEXT BOXES) AND RAN THE PROGRAM.

PROBLEM: I HAD THE PROGRAM RUNNING FOR A COUPLE MINUETS AND NOTHING HAPPENED, SO I STOPPED IT AND DON'T KNOW WHAT TO DO NOW.
ALSO, I CAN'T GET THE COMMENTS TO WORK, WHEN TRYING IT THE FIRST TIME.

PS:
ALSO, I DON'T KNOW WHAT 4+5=
I'M JUST KIDDING, ABOUT THAT. I'M NOT A ROBOT.