Re: Highlighter Or Something Like that :-)

Are you incapable of scrolling down past the first screen? The article at http://www.gmayor.com/installing_macro.htm has several sections specifically devoted to Word 2007. If you are too stubborn to find them, then you're on your own.

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

"eman" <manyos@xxxxxxxxxxxx> wrote in message news:%23nvKTSTwJHA.5100@xxxxxxxxxxxxxxxxxxxxxxx
Hi Suzanne, you are trying to be smart!!!!!!!!!! The link Graham suggested is for 2000-2003.
And Suzanne I am not asking you but thanks anyway. What I need is how can I use the document (or macro) that Graham posted?
Or I have to install Macro first? I am new to this and I am confused.

"Suzanne S. Barnhill" <sbarnhill@xxxxxxxx> wrote in message news:eaNlrMTwJHA.5100@xxxxxxxxxxxxxxxxxxxxxxx
I guess it was a complete waste of time for Graham to include the parts that say, "In Word 2007..."?

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

"eman" <manyos@xxxxxxxxxxxx> wrote in message news:OnSjSiSwJHA.1208@xxxxxxxxxxxxxxxxxxxxxxx
It is for Word 2000-2003, I have Word 2007

"Suzanne S. Barnhill" <sbarnhill@xxxxxxxx> wrote in message news:OTC5mwPwJHA.5672@xxxxxxxxxxxxxxxxxxxxxxx
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" <manyos@xxxxxxxxxxxx> wrote in message news:O6pVYsOwJHA.4620@xxxxxxxxxxxxxxxxxxxxxxx
Hi, as I never used maros before, please can you tell me how can I make use of it?

10X

"Graham Mayor" <gmayor@xxxxxxxxxxxxxxxxxx> wrote in message news:%23HaQspMwJHA.5584@xxxxxxxxxxxxxxxxxxxxxxx
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.














.

Relevant Pages

  • Re: Highlighter Or Something Like that :-)
    ... the macro takes just over a minute to run through and mark the ... Dim oTest As Range ... As you can see there are paragraphs of 3, 4 and 5 short verses. ...
    (microsoft.public.word.newusers)
  • Re: Highlighter Or Something Like that :-)
    ... you to re-mark the document by running the macro again with a different ... Dim oTest As Range ... As you can see there are paragraphs of 3, 4 and 5 short verses. ...
    (microsoft.public.word.newusers)
  • Re: Highlighter Or Something Like that :-)
    ... Graham provided this information in his initial post: http://www.gmayor.com/installing_macro.htm ... Dim oTest As Range ... As you can see there are paragraphs of 3, 4 and 5 short verses. ...
    (microsoft.public.word.newusers)
  • Re: Highlighter Or Something Like that :-)
    ... Microsoft MVP (Word) ... I use the document (or macro) that Graham posted? ... Dim oTest As Range ... only paragraphs with 3 and 4 verses. ...
    (microsoft.public.word.newusers)
  • Re: Highlighter Or Something Like that :-)
    ... Testing the macro on the 125 pages of subtitles from 'The Godfather III', ... Dim oTest As Range ... As you can see there are paragraphs of 3, 4 and 5 short verses. ...
    (microsoft.public.word.newusers)