Search for Text Box

[Guest]

Is it possible to do a "search and replace" on Text Boxes in order to remove
them completely from a document?

Thanks so much in advance.

Rod

 

[Stefan Blom]

You can use the following macro to delete all text boxes and their
contents:

Sub DeleteAllTextBoxes()
Dim s As Shape
For Each s In ActiveDocument.Shapes
If s.Type = msoTextBox Then
s.Delete
End If
Next s
End Sub

If you need assistance, see
http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP


in message
news:[email protected]...

 

[Guest]

Stefan:

As always, thanks so very much for your assistance in this regard. I am
going to put your macro to the test and will be certain to let you know if it
cures "what is ailing both me and this document".

Just to let you know, my situation arose from the process of converting pdf
files to Word files and many times during the conversion, the text was
converted as text boxes, as opposed to actual text and I was looking for a
way of addressing the issue. I guess I should have let you know all of that
in the first posting - however, you seem to have come up with a solution just
the same.

Rod

 

[Stefan Blom]

Text in a PDF will often be in text boxes after it's been converted to
Word format; this is a limitation of the conversion process. It's then
up to you, the writer, to fix the mess...

As stated in my previous reply, the code I suggested deletes any
contents of the text boxes, including the text. If this is not what
you want, a different macro is required. Note, however, that it would
be difficult or even impossible for a macro to figure out where to
reinsert the text (in the normal text flow).

--
Stefan Blom
Microsoft Word MVP


in message

 

[Guest]

Stefan:

My apologies for taking so long in getting back to you. In the meantime, I
have used the macro that you shared with me and it works just great.

Thanks Again - Rod