问一个有关word的问题，谢谢了

到excelz中，做好，再粘贴到word中。
格式---条件格式
第一个框，选“单元格数值”，第二个框，选“小于”，第二个框输入60。
点下面的格式---颜色---红色

如果不想挨个地变色，就把60分以上和以下分成两列，然后选定60分以下的这列，改文字颜色为红色。

用vba
按下ALT+F11,菜单:插入-模块,复制下面代码至代码框，然后按F5（确保当前激活文档是你要处理的文档）
Sub color()
Dim TotalRows As Integer, TotalColumns As Integer, TN As Integer

TotalRows = ActiveDocument.Tables(1).Rows.Count
TotalColumns = ActiveDocument.Tables(1).Columns.Count
TN = InputBox("要变色的表格是文档中的第几个？请输入序号", "输入表格序号", 1)

For i = 1 To TotalRows
For j = 1 To TotalColumns
ActiveDocument.Tables(TN).Cell(i, j).Select
Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
a = Selection.Text
If IsNumeric(a) = True And a > 60 Then Selection.Font.color = wdColorRed
Next j
Next i
End Sub

先按分数排列，这样就可以直接选中60分一下的设置成红色的
之后你再按原来的比如学号...排列

利用条件格式