[Kwanjangnim]

Happy New Year everyone

i have a good knowledge of word, but know nothing about using macros. I have
created a form with dropdown fields with 2 or more choices, i would like to
attach a macro (conditional format) to each choice of selection (within the
DD field) that will change current font attributes according to the users
choice. can anyone help?

example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Greg Maxey]

Something like this should do. Set the macro to run on exit from the
dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using macros.
I have created a form with dropdown fields with 2 or more choices, i
would like to attach a macro (conditional format) to each choice of
selection (within the DD field) that will change current font
attributes according to the users choice. can anyone help?

example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Beth Melton]

Out of curiosity, why did you elect to use: Case Is="Not Selected" instead
of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case statement.
Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in uppercase
in the dropdown then it needs to be the same in the macro.

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit from the
dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using macros.
I have created a form with dropdown fields with 2 or more choices, i
would like to attach a macro (conditional format) to each choice of
selection (within the DD field) that will change current font
attributes according to the users choice. can anyone help?

example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Greg Maxey]

Beth,

It was just an oversight. I initially started out with

Select Case oFF.Dropdown.Value
Case "Not Selected"

and got a type error

Then I typed in Case Is and the editor automatically changed that to Case Is
=
but I still got the type error. Then I realised that dropdown.value was a
numerica value and changed that to Select Case oFF.Result and just didn't
take the time to change the case statements.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Beth Melton wrote:
Out of curiosity, why did you elect to use: Case Is="Not Selected"
instead of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case
statement. Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in
uppercase in the dropdown then it needs to be the same in the macro.

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit from the
dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using
macros. I have created a form with dropdown fields with 2 or more
choices, i would like to attach a macro (conditional format) to
each choice of selection (within the DD field) that will change
current font attributes according to the users choice. can anyone
help? example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Beth Melton]

Ah! That makes sense. :-)

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Beth,

It was just an oversight. I initially started out with

Select Case oFF.Dropdown.Value
Case "Not Selected"

and got a type error

Then I typed in Case Is and the editor automatically changed that to Case
Is =
but I still got the type error. Then I realised that dropdown.value was a
numerica value and changed that to Select Case oFF.Result and just didn't
take the time to change the case statements.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Beth Melton wrote:
Out of curiosity, why did you elect to use: Case Is="Not Selected"
instead of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case
statement. Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in
uppercase in the dropdown then it needs to be the same in the macro.

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit from the
dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using
macros. I have created a form with dropdown fields with 2 or more
choices, i would like to attach a macro (conditional format) to
each choice of selection (within the DD field) that will change
current font attributes according to the users choice. can anyone
help? example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Kwanjangnim]

thanks for the speedy response

Like i said, i know nothing about macros, i created the macro and attached
it to my dropdown field and the only thing that happened was on exit it would
ask me for the password to unprotect the document, if i cancelled, it
returned an error, if i entered the password, i was back to an unprotected
doc.

1. should this be happening? (i want the doc to remain protected)
2. do i need to insert the field name within the code?
3. also if i want to use different fonts, do i write the name of the font as
it appears within word (font selection) or spelling from fonts folder?

"Beth Melton" wrote:

Ah! That makes sense. :-)

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Beth,

It was just an oversight. I initially started out with

Select Case oFF.Dropdown.Value
Case "Not Selected"

and got a type error

Then I typed in Case Is and the editor automatically changed that to Case
Is =
but I still got the type error. Then I realised that dropdown.value was a
numerica value and changed that to Select Case oFF.Result and just didn't
take the time to change the case statements.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Beth Melton wrote:
Out of curiosity, why did you elect to use: Case Is="Not Selected"
instead of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case
statement. Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in
uppercase in the dropdown then it needs to be the same in the macro.

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit from the
dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using
macros. I have created a form with dropdown fields with 2 or more
choices, i would like to attach a macro (conditional format) to
each choice of selection (within the DD field) that will change
current font attributes according to the users choice. can anyone
help? example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Greg Maxey]

The document has to be unprotected to change the font and then reproteced.
The code is intended to do both. You will have to put your password where I
have used "test"

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect Password:="test"
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case "SELECTED"
oFF.Range.Font.Name = "Arial Bold"
Case "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

You do not need to put the field name in the code because the code works on
any selected dropdown field.

I used the font names from the font dropdown menu.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
thanks for the speedy response

Like i said, i know nothing about macros, i created the macro and
attached it to my dropdown field and the only thing that happened was
on exit it would ask me for the password to unprotect the document,
if i cancelled, it returned an error, if i entered the password, i
was back to an unprotected doc.

1. should this be happening? (i want the doc to remain protected)
2. do i need to insert the field name within the code?
3. also if i want to use different fonts, do i write the name of the
font as it appears within word (font selection) or spelling from
fonts folder?

"Beth Melton" wrote:

Ah! That makes sense. :-)

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Beth,

It was just an oversight. I initially started out with

Select Case oFF.Dropdown.Value
Case "Not Selected"

and got a type error

Then I typed in Case Is and the editor automatically changed that
to Case Is =
but I still got the type error. Then I realised that
dropdown.value was a numerica value and changed that to Select Case
oFF.Result and just didn't take the time to change the case
statements.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Beth Melton wrote:
Out of curiosity, why did you elect to use: Case Is="Not Selected"
instead of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case
statement. Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in
uppercase in the dropdown then it needs to be the same in the
macro.

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit from
the dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using
macros. I have created a form with dropdown fields with 2 or more
choices, i would like to attach a macro (conditional format) to
each choice of selection (within the DD field) that will change
current font attributes according to the users choice. can anyone
help? example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Kwanjangnim]

Thanks for all your help

"Greg Maxey" wrote:

The document has to be unprotected to change the font and then reproteced.
The code is intended to do both. You will have to put your password where I
have used "test"

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect Password:="test"
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case "SELECTED"
oFF.Range.Font.Name = "Arial Bold"
Case "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

You do not need to put the field name in the code because the code works on
any selected dropdown field.

I used the font names from the font dropdown menu.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
thanks for the speedy response

Like i said, i know nothing about macros, i created the macro and
attached it to my dropdown field and the only thing that happened was
on exit it would ask me for the password to unprotect the document,
if i cancelled, it returned an error, if i entered the password, i
was back to an unprotected doc.

1. should this be happening? (i want the doc to remain protected)
2. do i need to insert the field name within the code?
3. also if i want to use different fonts, do i write the name of the
font as it appears within word (font selection) or spelling from
fonts folder?

"Beth Melton" wrote:

Ah! That makes sense. :-)

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Beth,

It was just an oversight. I initially started out with

Select Case oFF.Dropdown.Value
Case "Not Selected"

and got a type error

Then I typed in Case Is and the editor automatically changed that
to Case Is =
but I still got the type error. Then I realised that
dropdown.value was a numerica value and changed that to Select Case
oFF.Result and just didn't take the time to change the case
statements.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Beth Melton wrote:
Out of curiosity, why did you elect to use: Case Is="Not Selected"
instead of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case
statement. Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in
uppercase in the dropdown then it needs to be the same in the
macro.

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit from
the dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using
macros. I have created a form with dropdown fields with 2 or more
choices, i would like to attach a macro (conditional format) to
each choice of selection (within the DD field) that will change
current font attributes according to the users choice. can anyone
help? example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Kwanjangnim]

hi again, the macro works very well thank-you, the only problem i have now is
that the document can easily be unprotected now, as a password is no longer
requested i assume this is because of the macro, can i protect the document
again once the field has been updated? thanks again

"Greg Maxey" wrote:

The document has to be unprotected to change the font and then reproteced.
The code is intended to do both. You will have to put your password where I
have used "test"

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect Password:="test"
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case "SELECTED"
oFF.Range.Font.Name = "Arial Bold"
Case "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

You do not need to put the field name in the code because the code works on
any selected dropdown field.

I used the font names from the font dropdown menu.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
thanks for the speedy response

Like i said, i know nothing about macros, i created the macro and
attached it to my dropdown field and the only thing that happened was
on exit it would ask me for the password to unprotect the document,
if i cancelled, it returned an error, if i entered the password, i
was back to an unprotected doc.

1. should this be happening? (i want the doc to remain protected)
2. do i need to insert the field name within the code?
3. also if i want to use different fonts, do i write the name of the
font as it appears within word (font selection) or spelling from
fonts folder?

"Beth Melton" wrote:

Ah! That makes sense. :-)

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Beth,

It was just an oversight. I initially started out with

Select Case oFF.Dropdown.Value
Case "Not Selected"

and got a type error

Then I typed in Case Is and the editor automatically changed that
to Case Is =
but I still got the type error. Then I realised that
dropdown.value was a numerica value and changed that to Select Case
oFF.Result and just didn't take the time to change the case
statements.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Beth Melton wrote:
Out of curiosity, why did you elect to use: Case Is="Not Selected"
instead of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case
statement. Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in
uppercase in the dropdown then it needs to be the same in the
macro.

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit from
the dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using
macros. I have created a form with dropdown fields with 2 or more
choices, i would like to attach a macro (conditional format) to
each choice of selection (within the DD field) that will change
current font attributes according to the users choice. can anyone
help? example typical choices: DD field contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin

[Greg Maxey]

Reapply the password with the macro:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect Password:="test"
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case "SELECTED"
oFF.Range.Font.Name = "Arial Bold"
Case "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True,
Password:="test"
End Sub


--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
hi again, the macro works very well thank-you, the only problem i
have now is that the document can easily be unprotected now, as a
password is no longer requested i assume this is because of the
macro, can i protect the document again once the field has been
updated? thanks again

"Greg Maxey" wrote:

The document has to be unprotected to change the font and then
reproteced. The code is intended to do both. You will have to put
your password where I have used "test"

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect Password:="test"
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case "SELECTED"
oFF.Range.Font.Name = "Arial Bold"
Case "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

You do not need to put the field name in the code because the code
works on any selected dropdown field.

I used the font names from the font dropdown menu.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
thanks for the speedy response

Like i said, i know nothing about macros, i created the macro and
attached it to my dropdown field and the only thing that happened
was on exit it would ask me for the password to unprotect the
document, if i cancelled, it returned an error, if i entered the
password, i was back to an unprotected doc.

1. should this be happening? (i want the doc to remain protected)
2. do i need to insert the field name within the code?
3. also if i want to use different fonts, do i write the name of the
font as it appears within word (font selection) or spelling from
fonts folder?

"Beth Melton" wrote:

Ah! That makes sense. :-)

Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Beth,

It was just an oversight. I initially started out with

Select Case oFF.Dropdown.Value
Case "Not Selected"

and got a type error

Then I typed in Case Is and the editor automatically changed that
to Case Is =
but I still got the type error. Then I realised that
dropdown.value was a numerica value and changed that to Select
Case oFF.Result and just didn't take the time to change the case
statements.



--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Beth Melton wrote:
Out of curiosity, why did you elect to use: Case Is="Not
Selected" instead of Case "Not Selected"?

I've always seen Is be used for comparison operators in a Case
statement. Something like Case Is 50.

Also note that Select Case is case-sensitive so if SELECTED is in
uppercase in the dropdown then it needs to be the same in the
macro.

Please post all follow-up questions to the newsgroup. Requests
for assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

"Greg Maxey" wrote in message
...
Something like this should do. Set the macro to run on exit
from the dropdown field:

Sub FormatResult()
Dim oFF As FormField
ActiveDocument.Unprotect
Set oFF = Selection.FormFields(1)
Select Case oFF.Result
Case Is = "Selected"
oFF.Range.Font.Name = "Arial Bold"
Case Is = "Not Selected"
oFF.Range.Font.Name = "Arial"
Case Else
'Do Nothing
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields,
NoReset:=True End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Kwanjangnim wrote:
Happy New Year everyone

i have a good knowledge of word, but know nothing about using
macros. I have created a form with dropdown fields with 2 or
more choices, i would like to attach a macro (conditional
format) to each choice of selection (within the DD field) that
will change current font attributes according to the users
choice. can anyone help? example typical choices: DD field
contains
1. Not selected (Arial)
2. SELECTED (Arial Black)

thanking you in advance for your help with this problem
colin