Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.vba.general,microsoft.public.word.docmanagement
|
|||
|
|||
DocProps - driving me crazy!
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? |
#2
Posted to microsoft.public.word.vba.general,microsoft.public.word.docmanagement
|
|||
|
|||
DocProps - driving me crazy!
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? |
#3
Posted to microsoft.public.word.vba.general,microsoft.public.word.docmanagement
|
|||
|
|||
DocProps - driving me crazy!
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? |
#4
Posted to microsoft.public.word.vba.general,microsoft.public.word.docmanagement
|
|||
|
|||
DocProps - driving me crazy!
Hi Summer,
Instead of nesting fields and creating complicated constructs, maybe create a bookmark "address" for how to address the person, and use something like this to change the text of the bookmark: { IF { DOCPROPERTY "gender" } = "male" { Set address "Mr" } } { IF { DOCPROPERTY "gender" } = "female" { Set address "Mrs" } } { IF { DOCPROPERTY "gender" } = "neuter" { Set address "Mr & Mrs" } } Regards, Klaus |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I CAN'T GET RID OF THIS LINE and IT'S DRIVING ME CRAZY! | Microsoft Word Help | |||
Section break issue. Please help. It's driving me crazy. | Microsoft Word Help | |||
Printing from word, it's driving me crazy | Microsoft Word Help | |||
Closing windows...driving me CRAZY! | Microsoft Word Help | |||
Word is driving me crazy! | Microsoft Word Help |