Random Lines

[Guest]

I'm using Word 2002. I've OCR'd a long text and am cleaning
it up. There are lines here and there. They are not graphical lines.
They are not underlines or text-created lines. They are the lines
that when highlighted, show a colored round "handle" at each end.

There are hundreds of them. I'd like to find a quick way to
get rid of all of them. Suggestions?

Awaiting your responses with baited breath, I remain, yours truly,
<*(((>< ~~~
~~~~~~~~~~~

 

[Suzanne S. Barnhill]

If the have handles such as you describe, they *are* drawing lines. You
should be able to click on them and delete them.

 

[Guest]

Yes -- but I want to not have to click on 100's of them and
delete them, one by one. Is there a quicker way?

Awaiting your responses with baited breath, I remain, yours truly,
<*(((>< ~~~
~~~~~~~~~~~

 

[Doug Robbins - Word MVP]

Try saving the document as a .txt file.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Guest]

Thanks for the idea, but ... I can't do that. There's too
much other formatting that I have to keep. I can use find/replace on
formatting to get the styles applied. But unless someone can think of
another way -- I guess I'm going to have to hunt and peck and find
hundreds of drawing lines and delete them one by one.

I was hoping that somehow they might be on a different layer
that I could go to and just kill them all.

Awaiting your responses with baited breath, I remain, yours truly,
<*(((>< ~~~
~~~~~~~~~~~

 

[Daiya Mitchell]

Possibly helpful:

See if you can use the Browse Object (that little circle between the double
arrows in the bottom right corner) to go Next Graphic, Next Graphic, Next
Graphic, etc. Might speed it up a little. Use the double arrow to repeat
Next Graphic, no need to bring up the circle-menu again.

Explains the browse object, if necessary:
http://daiya.mvps.org/browseobject.htm

What if you activated one, to get into the drawing layer, and tried Select
All and delete (ON A COPY)? Doesn't work?

 

[Doug Robbins - Word MVP]

Use a macro containing the following code:

Dim i As Long
For i = ActiveDocument.Shapes.Count To 1 Step -1
ActiveDocument.Shapes(i).Delete
Next


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Guest]

Hi Doug,
You have made my Tuesday a happy one. The macro was a snap.
Thanks so much for thinking of it and posting!



Awaiting your responses with baited breath, I remain, yours truly,
<*(((>< ~~~
~~~~~~~~~~~