Output based on Combo Box selected items in Microsoft Word

[fairchance]

Dear All Colleagues,



I need help about Word VBA. I have word document and need to add combo boxes containing five list items i.e. Excellent, Very Good, Good, Below Average, Poor. When I select the list item the following output is desired:

Excellent; 1 ( Font color Green)
Very Good; 2 (Color Green)
Good; 3 (Color Orange)
Below Average; 4 (Color Red)
Poor; 5 (Color Red)

I need this corresponding word on the same page when selected any item in combo box. Here is the screenshot of the same:

http://prntscr.com/9wtr5s

There are 11 sections which will contain same combo boxes and their output will be screened on summary page. The view of the summary page is as follows:

http://prntscr.com/9wtlfr

Score achieved will be added on summary sheet after selecting combo box item of each section page. I hope you understand this requirements.

Please help

[gmaxey]

First of all why would you want a combobox, if your choices are fixed as described? Seems you would want a dropdown list.

I would use a dropdown list content control and then use the ContentControl_OnExit event in the ThisDocument module to evaluate the selection made and populate the data to other places. You state you need "help." What have you done for yourself?

Here is a start:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Select Case ContentControl.Title
    Case Is = "Section 1 Score"
      'Write some text here
      'Write this score there
    Case Is = "Section 2 Score"
      'etc.
  End Select
lbl_Exit:
  Exit Sub
End Sub

[macropod]

fairchance: did you bother doing a search? This kind of problem has been addressed numerous times before...

[fairchance]

Thank you sir for reply Sir. Here is my file please make this code here:

https://www.dropbox.com/s/0joqy9pr4s...late.docx?dl=0

Moreover, i have select combo box as the reader will read each section and put his remarks as Excellent etc. That will converted into numeric scores. I have give some detail on page no. 16-17. If you have another idea for this kindly share with me.

Kind Regards

[macropod]

Originally Posted by fairchance

Here is my file please make this code here:

fairchance: This forum is not a free coding service. When I look at your posting history, one thing is clear: you expect others to do all the work for you. That is not fair!!! We are more than willing to help when you get into difficulty, but you should also invest some effort of your own.

As I said in my previous reply, a search of the forum will reveal numerous solutions for tasks such as yours. Make use of them.

[fairchance]

Sir,

Can you please refer the to the previous post link which is more close to my my post.

Regards

[fairchance]

Sir, I am waiting for your reply. Please guide me as early as possible.

[macropod]

As I have already said, this forum is not a free coding service. Furthermore, a simple search of these forums will return examples of documents coded to do essentially what you are asking for. See, for example: https://www.msofficeforums.com/word-...selection.html

I do not see from your posts to date or from your attachment that you have made any effort to implement the code examples that are already available. When you're ready to give evidence that you have at least tried to do something meaningful and you need help with a particular aspect of the code, post back with your code and the specific details of what aspects of it you need help with.

[fairchance]

Dear Sir,

Hi

I have done my work and color change is not my requirements now. My template is fine for Microsoft Office for Windows version. I need to convert this template for Microsoft Office 2006 for Mac as I have no idea about it. I hope you will definitely help me. Here is my file.

https://www.dropbox.com/s/ns4wnwn24q...2%29.docm?dl=0

Kind Regards

Fairchance

[macropod]

Originally Posted by fairchance

My template is fine for Microsoft Office for Windows version. I need to convert this template for Microsoft Office 2006 for Mac as I have no idea about it.

There is no such thing as Microsoft Office 2006 for Mac. Microsoft Office for Mac exists as versions 2004, 2008, 2011 and 2016 (aka Office 365).

Regardless of which Mac version you mean, you will have to completely redo your form and its VBA code as Content Controls do not work on Mac versions 2004, 2008 & 2011 (Active-X controls do not work on any Mac version). You will need to use formfields instead. Do note, too, that Word 2008 does not support macros.

[fairchance]

Yes Sir, you are right it is Microsoft Office 2016 for Mac. Secondly, Can you give me some initial start with Form Field Drop Down coding. Simply, If i place this field on word file in Windows Version of this office then drop down box is not working.

Thank you for guidance.

[macropod]

For dropdown formfields, you could employ a macro like:

Sub ColorDropDown()
Dim sText As String, oFld As FormField
Const Pwd As String = ""
With ActiveDocument
  Set oFld = Selection.FormFields(1)
  sText = oFld.Result
  If .ProtectionType <> wdNoProtection Then .Unprotect Password:=Pwd
  With oFld.Range
    Select Case sText
      Case Is = "Bad"
        .Font.Color = wdColorRed
      Case Is = "Poor"
        .Font.Color = wdColorOrange
      Case Is = "Fair"
        .Font.Color = wdColorYellow
      Case Is = "Good"
        .Font.Color = wdColorGreen
      Case Is = "Excellent"
        .Font.Color = wdColorBlue
      Case Is = "Outstanging"
        .Font.Color = wdColorIndigo
      Case Else
        .Font.Color = wdColorBlack
    End Select
  End With
  .Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=Pwd
End With
End Sub

For any formfield you want to use this code with, simply designate 'ColorDropDown' as the formfield's on-exit macro.

[fairchance]

Thank You Sir for guidance. Actually, the color change on selection of particular drop down item is not required now as I have told you earlier. I need the score change with drop down selection item.

I have tried to implement legacy form control in my template but the score is not being change on selecting the drop down item. Kindly guide me about the following:

1. Whether the below template will be workable on Mac Machine?
2. How the score will be change after changing of every drop down item.

https://www.dropbox.com/s/f0y0xh8dtg..._Mac.docm?dl=0

Kind Regards

Shehbaz H.

[macropod]

Originally Posted by fairchance

Actually, the color change on selection of particular drop down item is not required now as I have told you earlier. I need the score change with drop down selection item.

That's all very well, but you did not say you wanted to convert the selection to a score instead. All you said was:

I have done my work and color change is not my requirements now.

without actually saying what your requirements were.

Originally Posted by fairchance

Kindly guide me about the following:

1. Whether the below template will be workable on Mac Machine?
2. How the score will be change after changing of every drop down item.

If all you're doing is calculating a score from the dropdown selection(s), you don't even need a macro. All you need is some field coding, which will work equally well on both Macs and PCs. See, for example:
https://www.msofficeforums.com/word/...html#post30197
https://www.msofficeforums.com/word/...html#post88302
https://www.msofficeforums.com/word/...html#post74823

[fairchance]

Dear Sir,

Thank you so much for guidance. I have implemented your logic and seeking your little advise. The field codes are updating when selecting next action dropdown otherwise these are not updating even if I click other part of document. Please check and rectify.

Thank You

Regards

https://www.dropbox.com/s/wgn78647ou...2%29.docm?dl=0