Solved

WORD 2000 Search And Replace

Posted on 2011-03-23
1
256 Views
Last Modified: 2012-06-21
I need either the correct syntax for the search and replace utility or macro code for following:

I want to find all instances where there is an asterisk "*" in the beginning of a line - then i want delete the ENTIRE line and the ending paragraph mark.
0
Comment
Question by:Forensicon
1 Comment
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 250 total points
ID: 35203896
Hmm. A wildcard search should be possible: \**^13 , but it doesn't seem to work (in 2007, anyway).

This macro does, though
Sub Delstar()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        If para.Range.Characters(1).Text = "*" Then
            para.Range.Delete
        End If
    Next para
End Sub

Open in new window

0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Do you ever need to create a 20 page Word document for some testing purpose? Are you tired of copying & pasting old boring "lorem ipsum" text over and over again, increasing font size and line space in order to make the document 20+ pages long? Look…
Like many others, we try and discourage users from printing documents unnecessarily and instead send or share them electronically. However, this doesn't always work and documents are still printed. With this simple solution, if the user tries to …
This video walks the viewer through the process of creating an MLA formatted document, as well as a bibliography with citations.
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now