Home |
Search |
Today's Posts |
#7
Posted to microsoft.public.word.newusers
|
|||
|
|||
Highlighter Or Something Like that :-)
It is for Word 2000-2003, I have Word 2007
"Suzanne S. Barnhill" wrote in message ... 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. |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using a highlighter with bullets | Microsoft Word Help | |||
Highlighter Options | Formatting Long Documents | |||
Add-in for Highlighter Colors | New Users | |||
Anyone Else Need More Highlighter Colors? | New Users | |||
Highlighter Problem | Microsoft Word Help |