I'm going to try this now.. thank you...
"Graham Mayor" wrote in message ...
I would probably do something along the lines of
Dim sGender As String
Start:
sGender = InputBox("Enter gender letter = m, f, p, n", "Gender")
If UCase(sGender) "M" And UCase(sGender) "F" _
And UCase(sGender) "P" And UCase(sGender) "N" Then
MsgBox "Enter correct letter!", vbCritical
GoTo Start:
End If
Select Case LCase(sGender)
Case Is = "m"
sGender = "Mr."
Case Is = "f"
sGender = "Ms."
Case Is = "p"
sGender = "Mr. & Mrs."
Case Is = "n"
sGender = "neuter"
Case Else
'Do nothing
End Select
ActiveDocument.CustomDocumentProperties("Gender"). Value = sGender
ActiveDocument.Fields.Update
which will write the required string to the pre-existing DocProperty field Gender. You can then use the field {DocProperty Gender} in the document. The macro will update the field to show the correct result.
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
"Summer" wrote in message ...
Hi,
I’m blank! Is it possible to write a toggle macro to toggle through 4 options for a DOCPROPERTY where the value is m or f or p or n = Mr or Mrs or Mr & Mrs or Blank
I thought maybe I could set Gender = m OR f OR p OR n using a macro? I use male female plural neuter as my options – so I need a macro that can toggle also as well as a field nest that works:
This is simple with Male or Female but I am trying to expand on this:
{IF {DOCPROPERTY Gender \ * MERGEFORMAT } = male Mr Ms \* MERGEFORMAT }
I need to add Male or Female or Plural or Neuter
So far I have this field nesting:
{DOCPROPERTY “gender” \ MERGEFORMAT }
{IF { = AND({ IF {DOCPROPERTY “gender” } = “male” 1 0 }, { IF {DOCPROPERTY “gender” } = “neuter” 1 0 }) } = 1 “Mr” “Mr & Mrs” \ *MERGEFORMAT }
Any ideas anyone please?