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.
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
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.