help with 5 color combo box for a word doc

[ababenchrist]

I have office 2007 pro and I need to know how to make a 5 color combo box(Red, Orange Green, Grey, Light Blue), It is simple in excel but I need this to be for a cell in a word doc

 

[ababenchrist]

I have office 2007 pro and I need to know how to make a 5 color combo box(Red, Orange Green, Grey, Light Blue), It is simple in excel but I need this to be for a cell in a word doc

Here is how to have a word doc using dropdown FormFields
Thanks to macropod

Here's some code based on the idea of using a dropdown formfield in a table. It colours the cell in which the formfield is located. There are two code blocks:
Code:
Private Sub Document_Open()
Call GetFFRef
End Sub
in the document's 'ThisDocument' module and
Code:
Option Explicit
Dim tCol As Integer, tRow As Integer, fFld As String

Sub ColourIt()
Dim Pwd As String, Tint
Pwd = ""
With ActiveDocument
.Unprotect (Pwd)
Select Case .FormFields(fFld).Result
Case "One"
Tint = 3
Case "Two"
Tint = 6
Case "Three"
Tint = 9
Case "Four"
Tint = 12
Case "Five"
Tint = 15
End Select
.Tables(1).Cell(tRow, tCol).Range.Shading.BackgroundPatternColorIndex = Tint
.Protect wdAllowOnlyFormFields, Noreset:=True, Password:=Pwd
End With
End Sub
Sub GetFFRef()
With Selection.Cells(1)
fFld = .Range.FormFields(1).Name
tCol = .ColumnIndex
tRow = .RowIndex
End With
End Sub
in a general module.

The dropdown formfield should have a bookmark name, the options 'One' through 'Five' as the dropdown selections, 'GetFFRef' as the 'On Entry' macro and 'ColourIt' as the 'On Exit' macro. If your document has a forms password, add the password between the double-quotes in Pwd = "".

 

[Macropod]

Hi ababenchrist,

Fancy meeting you here! I must have missed your original post, otherwise I'd have replied here.

In any event, for those interested in the full discussion and resolution of this issue, see:
http://www.theofficeexperts.com/forum/showthread.php?t=10775