[Suzanne S. Barnhill]

Graham provided this information in his initial post:
http://www.gmayor.com/installing_macro.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

"eman" wrote in message
...
Hi, as I never used maros before, please can you tell me how can I make
use of it?

10X

"Graham Mayor" wrote in message
...
Testing the macro on the 125 pages of subtitles from 'The Godfather III',
the macro takes just over a minute to run through and mark the whole
document. In doing so I came up with a minor refinement which will allow
you to re-mark the document by running the macro again with a different
value for the number of lines. Setting the value to 1 will remove the
highlight, though there are much faster ways to remove the highlight e.g.

Sub RemoveTheHighlight()
ActiveDocument.Range.HighlightColorIndex = wdAuto
End Sub

Revised macro:

Sub HiLightFive()
Dim oRng As Range
Dim oTest As Range
Dim i As Long
Dim iPara As Integer
iPara = InputBox("Highlight how many lines?", _
"Subtitle", 5)
Selection.HomeKey wdStory
Set oRng = ActiveDocument.Paragraphs(1).Range
For i = 1 To ActiveDocument.Paragraphs.Count
Selection.MoveDown wdLine
Set oTest = Selection.Paragraphs(1).Range
If Len(oTest) = 1 Then
oRng.End = oTest.Start
If oRng.Paragraphs.Count = iPara Then
oRng.HighlightColorIndex = wdYellow
Else
oRng.HighlightColorIndex = wdAuto
End If
oRng.Start = oTest.End
End If
Next i
End Sub


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



Graham Mayor wrote:
Assuming that when imported into Word each line ends with a paragraph
mark, and there is an empty paragraph between each 'verse' then the
following macro will highlight all the sections with 5 or more
paragraphs in yellow.
Sub HiLightFive()
Dim oRng As Range
Dim oTest As Range
Dim i As Long
Selection.HomeKey wdStory
Set oRng = ActiveDocument.Paragraphs(1).Range
For i = 1 To ActiveDocument.Paragraphs.Count
Selection.MoveDown wdLine
Set oTest = Selection.Paragraphs(1).Range
If Len(oTest) = 1 Then
oRng.End = oTest.Start
If oRng.Paragraphs.Count 4 Then
oRng.HighlightColorIndex = wdYellow
End If
oRng.Start = oTest.End
End If
Next i
End Sub

http://www.gmayor.com/installing_macro.htm



eman wrote:
Hi,

Here under the line you can see a small part of subtitles of a movie.
As you can see there are paragraphs of 3, 4 and 5 short verses. For
example 1st paragraph is with 3 verses, 2nd is with 4 verse and the
5th is with 5 verses.

The 3rd paragraph is with 5 verses and it is wrong (for me). I want
only paragraphs with 3 and 4 verses.

What I am looking for is, if it is possible that Words can mark
automatically paragraphs with 5 verses for example with a color
instead of checking manually all the document, because subtitles of a
movie are very long!

Maybe it's impossible but I am just asking.

I always remember of Google highlighter, it is very usefull when you
are searching for a word because you can see the word colored easily.
Maybe there is something similar in Word.

Thanks in advance

__________________________________________________ ___

574
00:29:55,960 -- 00:29:58,087
I know. I have no idea.

575
00:29:58,163 -- 00:30:00,996
It's, like, the wrong time to let
the guy know that you're crazy.

576
00:30:01,065 -- 00:30:03,533
- You know what I mean? It's not how
I'd play it.
- Yeah.