Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
Hi,
I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#2
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
You can use Find and Replace to change the font color. Using wildcards, you
can do more than one number at a time. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#3
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
"Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#4
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
In the find box put
[135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#5
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
"Graham Mayor" wrote in message ... In the find box put [135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box I did it all as you laid it out. Nothing gets changed. See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#6
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
It works here. Make sure that the insertion point is in the "Replace with"
box when you format the font color as red. The bug that bites me every time is that, even though you have the insertion point there when you click More, it jumps back to "Find what," and you end up applying the font formatting to "Find what" instead. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message k.net... "Graham Mayor" wrote in message ... In the find box put [135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box I did it all as you laid it out. Nothing gets changed. See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#7
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
Also it won't find anything to change if the Use wildcards checkbox is not
checked! If you prefer, the following macro will do the same job: Sub OneThreeFive_to_red() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[135]{1}" .Replacement.Text = "^&" .Replacement.Font.Color = wdColorRed .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll End Sub see http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: It works here. Make sure that the insertion point is in the "Replace with" box when you format the font color as red. The bug that bites me every time is that, even though you have the insertion point there when you click More, it jumps back to "Find what," and you end up applying the font formatting to "Find what" instead. "G-Artist" wrote in message k.net... "Graham Mayor" wrote in message ... In the find box put [135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box I did it all as you laid it out. Nothing gets changed. See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#8
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
WOW!!! Thanks, Graham. The macro works.
Now for the $64 question.... how do I not make the number 10 11 15 17 etc. turn red or partially red? My list goes from 1-36 1-3-5-7-9-12-14-16-18-19-21-23-25-27-30-32-34-36 need to be red but the rest stay the default black. "Graham Mayor" wrote in message ... Also it won't find anything to change if the Use wildcards checkbox is not checked! If you prefer, the following macro will do the same job: Sub OneThreeFive_to_red() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[135]{1}" .Replacement.Text = "^&" .Replacement.Font.Color = wdColorRed .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll End Sub see http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: It works here. Make sure that the insertion point is in the "Replace with" box when you format the font color as red. The bug that bites me every time is that, even though you have the insertion point there when you click More, it jumps back to "Find what," and you end up applying the font formatting to "Find what" instead. "G-Artist" wrote in message k.net... "Graham Mayor" wrote in message ... In the find box put [135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box I did it all as you laid it out. Nothing gets changed. See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#9
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
I though that might happen - try plan B
Sub ReplaceList() Dim vFindText As Variant Dim vReplText As Variant Dim i As Long vFindText = Array("1", "3", "5", "7", "9", "12", _ "14", "16", "18", "19", "21", "23", _ "25", "27", "30", "32", "34", "36") vReplText = "^&" With Selection.Find .Forward = True .Wrap = wdFindStop .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Format = True .MatchCase = True For i = LBound(vFindText) To UBound(vFindText) .Text = vFindText(i) .Replacement.Text = vReplText .Replacement.Font.Color = wdColorRed .Execute replace:=wdReplaceAll Next i End With End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: WOW!!! Thanks, Graham. The macro works. Now for the $64 question.... how do I not make the number 10 11 15 17 etc. turn red or partially red? My list goes from 1-36 1-3-5-7-9-12-14-16-18-19-21-23-25-27-30-32-34-36 need to be red but the rest stay the default black. "Graham Mayor" wrote in message ... Also it won't find anything to change if the Use wildcards checkbox is not checked! If you prefer, the following macro will do the same job: Sub OneThreeFive_to_red() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[135]{1}" .Replacement.Text = "^&" .Replacement.Font.Color = wdColorRed .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll End Sub see http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: It works here. Make sure that the insertion point is in the "Replace with" box when you format the font color as red. The bug that bites me every time is that, even though you have the insertion point there when you click More, it jumps back to "Find what," and you end up applying the font formatting to "Find what" instead. "G-Artist" wrote in message k.net... "Graham Mayor" wrote in message ... In the find box put [135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box I did it all as you laid it out. Nothing gets changed. See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#10
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
Plan B works so very excellently!!!
Thank you ever so much. It is enough of a pain to have to type in hundreds of numbers but then manually (and w/o making a mistake) to have to color them properly is a serious chore. I really do appreciate the assistance. "Graham Mayor" wrote in message ... I though that might happen - try plan B Sub ReplaceList() Dim vFindText As Variant Dim vReplText As Variant Dim i As Long vFindText = Array("1", "3", "5", "7", "9", "12", _ "14", "16", "18", "19", "21", "23", _ "25", "27", "30", "32", "34", "36") vReplText = "^&" With Selection.Find .Forward = True .Wrap = wdFindStop .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Format = True .MatchCase = True For i = LBound(vFindText) To UBound(vFindText) .Text = vFindText(i) .Replacement.Text = vReplText .Replacement.Font.Color = wdColorRed .Execute replace:=wdReplaceAll Next i End With End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: WOW!!! Thanks, Graham. The macro works. Now for the $64 question.... how do I not make the number 10 11 15 17 etc. turn red or partially red? My list goes from 1-36 1-3-5-7-9-12-14-16-18-19-21-23-25-27-30-32-34-36 need to be red but the rest stay the default black. "Graham Mayor" wrote in message ... Also it won't find anything to change if the Use wildcards checkbox is not checked! If you prefer, the following macro will do the same job: Sub OneThreeFive_to_red() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[135]{1}" .Replacement.Text = "^&" .Replacement.Font.Color = wdColorRed .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll End Sub see http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: It works here. Make sure that the insertion point is in the "Replace with" box when you format the font color as red. The bug that bites me every time is that, even though you have the insertion point there when you click More, it jumps back to "Find what," and you end up applying the font formatting to "Find what" instead. "G-Artist" wrote in message k.net... "Graham Mayor" wrote in message ... In the find box put [135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box I did it all as you laid it out. Nothing gets changed. See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
#11
Posted to microsoft.public.word.newusers
|
|||
|
|||
Automating color on specific text.
You are welcome
-- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: Plan B works so very excellently!!! Thank you ever so much. It is enough of a pain to have to type in hundreds of numbers but then manually (and w/o making a mistake) to have to color them properly is a serious chore. I really do appreciate the assistance. "Graham Mayor" wrote in message ... I though that might happen - try plan B Sub ReplaceList() Dim vFindText As Variant Dim vReplText As Variant Dim i As Long vFindText = Array("1", "3", "5", "7", "9", "12", _ "14", "16", "18", "19", "21", "23", _ "25", "27", "30", "32", "34", "36") vReplText = "^&" With Selection.Find .Forward = True .Wrap = wdFindStop .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Format = True .MatchCase = True For i = LBound(vFindText) To UBound(vFindText) .Text = vFindText(i) .Replacement.Text = vReplText .Replacement.Font.Color = wdColorRed .Execute replace:=wdReplaceAll Next i End With End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: WOW!!! Thanks, Graham. The macro works. Now for the $64 question.... how do I not make the number 10 11 15 17 etc. turn red or partially red? My list goes from 1-36 1-3-5-7-9-12-14-16-18-19-21-23-25-27-30-32-34-36 need to be red but the rest stay the default black. "Graham Mayor" wrote in message ... Also it won't find anything to change if the Use wildcards checkbox is not checked! If you prefer, the following macro will do the same job: Sub OneThreeFive_to_red() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[135]{1}" .Replacement.Text = "^&" .Replacement.Font.Color = wdColorRed .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll End Sub see http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: It works here. Make sure that the insertion point is in the "Replace with" box when you format the font color as red. The bug that bites me every time is that, even though you have the insertion point there when you click More, it jumps back to "Find what," and you end up applying the font formatting to "Find what" instead. "G-Artist" wrote in message k.net... "Graham Mayor" wrote in message ... In the find box put [135]{1} in the replace box put ^& Click the 'More' button With your cursor in the replace box Format font and check the colour as red Check the 'Use wildcards' box I did it all as you laid it out. Nothing gets changed. See http://www.gmayor.com/replace_using_wildcards.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org G-Artist wrote: "Suzanne S. Barnhill" wrote in message ... You can use Find and Replace to change the font color. Using wildcards, you can do more than one number at a time. Thanks for the reply. Could you be a bit more specific as to how that is done? I don't seem to see a color option among the ones shown. Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "G-Artist" wrote in message nk.net... Hi, I have many lists of numbers typed into a Word 2000 document. Each specific number needs to be one of 3 colors (Red, Black or Green). So, what I what I would like to do is find a way to use something like a "search and replace" to alter some of the current numbers, which are all Black, and change them to either Red or Green depending on the specific number. Very, very tedious to do them by hand. E.g. 1 2 3 4 5 6 - the 1, 3, 5 need to be red. Doable? How? Thanks. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating dynamic cross reference links in a Word document | Microsoft Word Help | |||
Can I AutoSize (or Fit) merged, variable data within a text box? H | Mailmerge | |||
How can I implement a specific text style within a table? | Tables | |||
Hidden text won't stick | Formatting Long Documents | |||
Word applies direct format on File open | Microsoft Word Help |