Posted to microsoft.public.word.newusers
|
|
Highlighter Or Something Like that :-)
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.
|