[mso] Re: Help with some Code in Word

Many thanks to all of you who responded to my query, especially David
Chinell. As a result I have developed the code a bit further (see below)
i.e. the insertion point in the table now toggles through ?, R, A, G,
(Traffic lights) and changes the background and the font colour at the same
time, which is much better than when I started!! 
I would still like the R to be RED and the A to be AMBER and the G to be
GREEN,;)

 

I couldn't get Anthony Colli's code to work, but that's probably me being
ignorant!

 

Many thanks again to you all.

 

PS It is strange that when I receive some of the code "=3D20" appears at odd
places

 

-- 

Geoff Culbertson

Petersfield, Hampshire, UK

 

  _____  

 

Sub SymbolCarousel() 
' 
' SymbolCarousel Macro 
' Macro created 19/04/2007 by Geoff Culbertson 
' 
Select Case Selection.Fields(1).Code.Characters(29) 
  Case "?" 
    Selection.Fields(1).Code.Characters(29) = "R" 
    Selection.Fields(1).Code.Characters(29).Font.Color = wdColorWhite 
    Selection.Cells.Shading.Texture = wdTextureNone 
    Selection.Cells.Shading.BackgroundPatternColor = wdColorRed 
  Case "R" 
    Selection.Fields(1).Code.Characters(29) = "A" 
    Selection.Fields(1).Code.Characters(29).Font.Color = wdColorBlack 
    Selection.Cells.Shading.Texture = wdTextureNone 
    Selection.Cells.Shading.BackgroundPatternColor = wdColorGold 
  Case "A" 
    Selection.Fields(1).Code.Characters(29) = "G" 
    Selection.Fields(1).Code.Characters(29).Font.Color = wdColorBlack 
    Selection.Cells.Shading.Texture = wdTextureNone 
    Selection.Cells.Shading.BackgroundPatternColor = wdColorBrightGreen 
  Case "G" 
    Selection.Fields(1).Code.Characters(29) = "?" 
    Selection.Fields(1).Code.Characters(29).Font.Color = wdColorBlack 
    Selection.Cells.Shading.Texture = wdTextureNone 
    Selection.Cells.Shading.BackgroundPatternColor = wdColorWhite 
  Case Else 
End Select 

End Sub 



*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to share files with the group, you must join our Yahoo sister group. 
 This group will not allow for posting of emails, but will allow you to join 
and share problem files, templates, etc.:  
http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for FILE 
SHARING ONLY.

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: