How JustAnswer Works:

  • Ask an Expert
    Experts are full of valuable knowledge and are ready to help with any question. Credentials confirmed by a Fortune 500 verification firm.
  • Get a Professional Answer
    Via email, text message, or notification as you wait on our site.
    Ask follow up questions if you need to.
  • 100% Satisfaction Guarantee
    Rate the answer you receive.

Ask Greg Maxey Your Own Question

Greg Maxey
Greg Maxey, Consultant\Microsoft Word Expert
Category: General
Satisfied Customers: 62
Experience:  Microsoft Word Most Valuable Professional (6 years)
16468162
Type Your Question Here...
Greg Maxey is online now
A new question is answered every 9 seconds

Ask a Microsoft Word Question Using VBA, I would like to

Customer Question

Ask a Microsoft Word Question
>Using VBA, I would like to delete paragraphs based on the first word.
Submitted: 3 years ago.
Category: General
Expert:  Greg Maxey replied 3 years ago.

A "word" in "Word" can be a pernickety thing. Provides you have something like this:

 

This is paragraph one

Word1 this is paragraph two

This is paragraph three

Word2 this is paragraph four

 

Then something like this should work:

Sub DeleteBasedOnFirstWord()

Dim oPar as Word.Paragraph

For Each oPar in ActiveDocument.Range.Paragraphs

Select Case Trim(oPar.Range.Words(1))

Case "Word1", "Word2"

oPar.Range.Delete

Case Else

'Do nothing

End Select

Next oPar

End Sub

 

Replace "Word1" and "Word2" with the actual words.

 

 

Greg Maxey, Consultant\Microsoft Word Expert
Category: General
Satisfied Customers: 62
Experience: Microsoft Word Most Valuable Professional (6 years)
Greg Maxey and 87 other General Specialists are ready to help you
Customer: replied 3 years ago.
<p>It is not working. I set up a string variable to capture the first word in the paragraph. The words I am looking for all have colons ":", and the variable is not capturing the colon. Do I need to escape the colon somehow?</p><p>Actually, I think I discovered the problem. The punctuation is not part of the word object. I modified your code as follows:</p><p>Sub DeleteBasedOnFirstWord()</p><p>    Dim oPar As Word.Paragraph<br/>    Dim strFirstWord As String<br/>    <br/>    For Each oPar In ActiveDocument.Range.Paragraphs<br/>        strFirstWord = Trim(oPar.Range.Words(1)) & ":"<br/>    <br/>        Select Case strFirstWord<br/>        <br/>            Case "From:", "Sent:", "To:", "Cc:"<br/>            <br/>            oPar.Range.Delete<br/>            <br/>            Case Else<br/>            <br/>            'Do nothing<br/>        <br/>        End Select<br/>    <br/>    Next oPar</p><p>End Sub</p><p>It then worked. Thank You.</p>
Expert:  Greg Maxey replied 3 years ago.
Good. Glad your issue is resoloved.

JustAnswer in the News:

 
 
 
Ask-a-doc Web sites: If you've got a quick question, you can try to get an answer from sites that say they have various specialists on hand to give quick answers... Justanswer.com.
JustAnswer.com...has seen a spike since October in legal questions from readers about layoffs, unemployment and severance.
Web sites like justanswer.com/legal
...leave nothing to chance.
Traffic on JustAnswer rose 14 percent...and had nearly 400,000 page views in 30 days...inquiries related to stress, high blood pressure, drinking and heart pain jumped 33 percent.
Tory Johnson, GMA Workplace Contributor, discusses work-from-home jobs, such as JustAnswer in which verified Experts answer people’s questions.
I will tell you that...the things you have to go through to be an Expert are quite rigorous.
 
 
 

What Customers are Saying:

 
 
 
  • Wonderful service, prompt, efficient, and accurate. Couldn't have asked for more. I cannot thank you enough for your help. Mary C. Freshfield, Liverpool, UK
< Last | Next >
  • Wonderful service, prompt, efficient, and accurate. Couldn't have asked for more. I cannot thank you enough for your help. Mary C. Freshfield, Liverpool, UK
  • This expert is wonderful. They truly know what they are talking about, and they actually care about you. They really helped put my nerves at ease. Thank you so much!!!! Alex Los Angeles, CA
  • Thank you for all your help. It is nice to know that this service is here for people like myself, who need answers fast and are not sure who to consult. GP Hesperia, CA
  • I couldn't be more satisfied! This is the site I will always come to when I need a second opinion. Justin Kernersville, NC
  • Just let me say that this encounter has been entirely professional and most helpful. I liked that I could ask additional questions and get answered in a very short turn around. Esther Woodstock, NY
  • Thank you so much for taking your time and knowledge to support my concerns. Not only did you answer my questions, you even took it a step further with replying with more pertinent information I needed to know. Robin Elkton, Maryland
  • He answered my question promptly and gave me accurate, detailed information. If all of your experts are half as good, you have a great thing going here. Diane Dallas, TX
 
 
 

Meet The Experts:

 
 
 
  • Ron

    ASE Certified Technician

    Satisfied Customers:

    21780
    23 years with Ford specializing in drivability and electrical and AC. Ford certs and ASE Certs
< Last | Next >
  • http://ww2.justanswer.com/uploads/FO/fordguy4u/2011-12-17_222940_HPIM1257.64x64.JPG Ron's Avatar

    Ron

    ASE Certified Technician

    Satisfied Customers:

    21780
    23 years with Ford specializing in drivability and electrical and AC. Ford certs and ASE Certs
  • http://ww2.justanswer.com/uploads/lyeung1/2010-07-25_032152_tn_IMG_0241.JPG Dr. Y.'s Avatar

    Dr. Y.

    Urologist

    Satisfied Customers:

    18787
    I am fellowship trained specializing in general urology and reconstructive urology.
  • http://ww2.justanswer.com/uploads/docjohn174/2008-12-13_170143_johnask.jpg John's Avatar

    John

    Home Appliance Technician

    Satisfied Customers:

    13453
    Appliance repair business owner for over 43 years.
  • http://ww2.justanswer.com/uploads/MU/multistatelaw/2011-11-27_173951_Tinaglamourshotworkglow102011.64x64.jpg Tina's Avatar

    Tina

    Lawyer

    Satisfied Customers:

    8681
    JD, BBA Over 25 years legal and business experience.
  • http://ww2.justanswer.com/uploads/dermdoc19/2010-09-30_160749_Photo_122807_015.JPG dermdoc19's Avatar

    dermdoc19

    Dermatologist

    Satisfied Customers:

    3951
    30 years practice in general and cosmetic dermatology
  • http://ww2.justanswer.com/uploads/BI/birddoctor/2012-6-22_173214_birddoctor.64x64.png Dr. Pat's Avatar

    Dr. Pat

    Bird Veterinarian

    Satisfied Customers:

    3464
    25+ years working primarily or exclusively with birds
  • http://ww2.justanswer.com/uploads/RY/rydergar/2012-6-6_192240_IMG0328.64x64.JPG Dr. Gary's Avatar

    Dr. Gary

    Cat Veterinarian

    Satisfied Customers:

    3423
    DVM, Emergency Veterinarian, BS (Physiology)
 
 
 

Related General Questions

Chat Now With An Expert
Greg Maxey
Greg Maxey
Self Employed. Small Business Owner
31 Satisfied Customers
Microsoft Word Most Valuable Professional (6 years)