我可以在 MS Project 中使用条件格式来根据任务名称文本更改文本颜色吗？

Question

In MS Projects, I need to utilize VBA to conditionally format all rows with "payment" somewhere in the Task Name to have bold, red text.

Answer 1

This code should do what you want.

Option Compare Text
Sub BoldRed()
OutlineShowAllTasks
FilterEdit Name:="temp", taskfilter:=True, create:=True, overwriteexisting:=True, FieldName:="Name", test:="contains", _
    Value:="payment", ShowInMenu:=False, showsummarytasks:=True
FilterApply Name:="Temp"
SelectTaskColumn Column:="name"
Font32Ex Bold:=True
Font32Ex Color:=255
FilterApply Name:="all tasks"
OrganizerDeleteItem Type:=pjFilters, FileName:=ActiveProject.Name, Name:="temp"
            
End Sub

Answer 2

Based on extended comments on prior answer, here is another version of a macro to format the entire row of tasks that contain 'payment' or 'go-live' in the task name.

Sub FormatSpecificTasks()

    OutlineShowAllTasks
    FilterEdit Name:="temp", TaskFilter:=True, Create:=True _
        , OverwriteExisting:=True, FieldName:="Name", Test:="contains" _
        , Value:="payment", ShowInMenu:=False, ShowSummaryTasks:=False
    FilterEdit Name:="temp", TaskFilter:=True, FieldName:="" _
        , NewFieldName:="Name", Test:="contains", Value:="go-live" _
        , Operation:="Or", ShowSummaryTasks:=False
    FilterApply Name:="temp"
    SelectAll
    Font32Ex Bold:=True, Color:=255, CellColor:=RGB(255, 229, 99) 
    FilterApply Name:="all tasks"
    OrganizerDeleteItem Type:=pjFilters, FileName:=ActiveProject.Name, Name:="temp"
            
End Sub