Solved

Check whether paragraphs exist formatted with the normal style

Posted on 2012-03-23
3
632 Views
Last Modified: 2012-03-23
Dear Experts:

I would like to run a macro that performs the following actions:

Check whether there are paragraphs formatted with the Normal style in the current document. If any are found the complete paragraph is to be highlighted yellow.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas
0
Comment
Question by:AndreasHermle
  • 2
3 Comments
 
LVL 76

Assisted Solution

by:GrahamSkan
GrahamSkan earned 500 total points
ID: 37756423
Interesting, Andreas.

I tried coding the Find object, but couldn't get it to work. I even tried recording a Find. The Find worked, but the recording didn't. Perhaps that's why you posted the question.

This walk through the document's paragraphs does work
Function AnyNormalStyleInDoc() As Boolean
    Dim para As Paragraph
    
    For Each para In ActiveDocument.Paragraphs
        If para.Style = "Normal" Then
            AnyNormalStyleInDoc = True
            Exit For
        End If
    Next para
End Function

Open in new window


Just noticed that I haven't done the highlighting, so I'll do that bit now.
0
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 500 total points
ID: 37756440
This will highlight the paragraphs
Sub HighlightNormalStyleParas()
    Dim para As Paragraph
    
    For Each para In ActiveDocument.Paragraphs
        If para.Style = "Normal" Then
            para.Range.HighlightColorIndex = wdYellow
        End If
    Next para
End Sub

Open in new window

0
 

Author Closing Comment

by:AndreasHermle
ID: 37756957
Great job, Graham, as always. Thank you very much.

Regards, Andreas
0

Featured Post

Does Powershell have you tied up in knots?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article describes how to use the Send to Mail Recipient command. The instructions apply generally to Office 2007 and later versions, but Microsoft® Word 2013 was used for the specific steps and figures.  What is Send to Mail Recipient? Send…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
This video shows where to find the word count, how to display it, and what it breaks down to in Microsoft Word.
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…

803 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