[mso] Re: Help with some Code in Word
- From: "Chinell, David F \(GE Indust, Security\)" <David.Chinell@xxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Fri, 20 Apr 2007 11:33:09 -0400
Geoff:
Please don't despair if nobody has leapt in yet. Yours is the kind of
query I'd love to reply to in some detail, but I'm crushed with
production these past few days. If you can hang on, I'll try to give it
some thought early next week.
Bear
=20
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On
Behalf Of Geoff Culbertson
Sent: Thursday, April 19, 2007 5:40 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Help with some Code in Word
I am starting to learn a little about Visual Basic code but have a long
way to go yet!
=20
I have found some code and adapted it for my purposes and use it in a
table.
The code is shown below:-
=20
Select Case Selection.Fields(1).Code.Characters(29)
Case "?"
Selection.Fields(1).Code.Characters(29) =3D "R"
Selection.Fields(1).Code.Characters(29).Font.Color =3D wdColorRed
Case "R"
Selection.Fields(1).Code.Characters(29) =3D "A"
Selection.Fields(1).Code.Characters(29).Font.Color =3D wdColorGold
Case "A"
Selection.Fields(1).Code.Characters(29) =3D "G"
Selection.Fields(1).Code.Characters(29).Font.Color =3D
wdColorBrightGreen
Case "G"
Selection.Fields(1).Code.Characters(29) =3D "?"
Selection.Fields(1).Code.Characters(29).Font.Color =3D
wdColorAutomatic
Case Else
End Select
=20
When the code is called by a field cell it shows a ?, which when
double-clicked toggles through R, A, G then back to ?. What I would like
to happen is that the R, A, G should read Red, Amber & Green, however
when I change the letters to the words the code fails to work. Can
anyone help please?
=20
What would be even better for me is if the when the R(ed) was selected
the shading of the cell became red, or when A(mber) was selected the
shading became amber etc. Am I being too hopeful?!
=20
Regards
=20
=20
=20
--=20
Geoff Culbertson
Petersfield, Hampshire, UK
*************************************************************
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).
//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
*************************************************************
*************************************************************
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).
//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:
