根据单元格内容更改字表单元格背景颜色。

Answer 1

假设您使用的是formfields（不能对FILLIN字段使用保护），您可以使用如下代码：

Option Explicit
Dim i As Long

Sub Index()
  i = Replace(Selection.FormFields(1).Range.Bookmarks(1).Name, "DropDown", "")
End Sub

Sub ColorDropDown()
Dim sText As String, oFld As FormField
With ActiveDocument
  Set oFld = .FormFields("Dropdown" & i)
  sText = oFld.Result
  If .ProtectionType <> wdNoProtection Then .Unprotect Password:=""
  With oFld.Range
    Select Case sText
      Case Is = "G" 'green
        .Shading.BackgroundPatternColor = wdColorBrightGreen
      Case Is = "Y" 'yellow
        .Shading.BackgroundPatternColor = wdColorYellow
      Case Is = "R"  'red
        .Shading.BackgroundPatternColor = wdColorRed
    End Select
  End With
  .Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End With
End Sub

每个下拉菜单调用Index宏作为“On-Entry”属性，调用ColorDropDown宏作为“On-Exit”属性。如果文档中的第一个formfield是下拉菜单，则还需要：

Private Sub Document_Open()
ActiveDocument.Bookmarks("DropDown1").Range.Select
Call Index
End Sub

在'ThisDocument'代码模块中。有关演示，请参见:http://www.msofficeforums.com/word-vba/16505-change-color-dategy-dropdown-selection.html#post47254