MS Word

[Guest]

Find function, to search for graphic lines? What is the code for a line?
Need to search and replace to delete lines drawn as revision bars.

 

[Doug Robbins - Word MVP]

Either accept the revisions, or turn off the display of the revision bars by
selecting Options from the Tools menu and then go to the Track Changes tab
and set the Changed Lines indicator to (none).

--
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

 

[Suzanne S. Barnhill]

I think WC means he inserted drawing lines manually to serve as revision
bars. These are not changed lines inserted by Track Changes.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Jay Freedman]

If that's the case, and if these are the only drawing lines in the
document, then this macro will do the job. There isn't any way to do
it with Find/Replace.

Sub DeleteDrawnLines()
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.Type = msoLine Then
oShp.Delete
End If
Next oShp
End Sub

See http://www.gmayor.com/installing_macro.htm if necessary.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.