使用VBA的If/Then语句与循环设置MS Project大纲级别

问题根源 #

你的代码错误地直接从ActiveProject对象调用Text1和OutlineLevel属性——这两个属性属于Task任务对象，而非Project项目对象。此外，固定循环到4的逻辑无法覆盖所有任务，且Else分支的逻辑错误（应该设置大纲级别为5，而非修改Text1的值）。

修正后的完整代码 #

Sub SetOutlineLevelFromText1()
    Dim proj As Project
    Dim tsk As Task
    
    Set proj = ActiveProject
    
    ' 遍历项目中所有任务
    For Each tsk In proj.Tasks
        ' 跳过空占位任务
        If Not tsk Is Nothing Then
            Dim text1Value As Long
            ' 先判断Text1是否为数字，避免类型错误
            If IsNumeric(tsk.Text1) Then
                text1Value = CLng(tsk.Text1)
                ' 根据Text1值设置对应大纲级别
                Select Case text1Value
                    Case 1 To 4
                        tsk.OutlineLevel = text1Value
                    Case Else
                        tsk.OutlineLevel = 5
                End Select
            Else
                ' 若Text1非数字，默认设为级别5
                tsk.OutlineLevel = 5
            End If
        End If
    Next tsk
End Sub

核心修正点 #

• 对象访问逻辑：通过Task实例访问Text1和OutlineLevel属性，而非直接操作Project对象。
• 全任务遍历：使用For Each tsk In proj.Tasks循环处理所有任务，替代固定次数的循环。
• 容错处理：添加IsNumeric判断，避免因Text1内容非数字导致的运行错误。
• 逻辑优化：用Select Case替代多分支If/Else，代码更简洁；修正Else分支的错误操作。

使用步骤 #

1. 打开MS Project，按Alt + F11打开VBA编辑器。
2. 插入新模块，将上述代码粘贴到模块中。
3. 运行宏SetOutlineLevelFromText1即可完成批量设置。

内容的提问来源于stack exchange，提问作者lyonsguy