根据持续时间和缩进删除任务

Question

我的工作生成了相当大的（2k +任务）MS项目文件，但是，很多任务都是“虚拟任务”并且不需要，而且我和其他人都要删除它们。我们删除了“底层”的任务，这意味着它们没有子任务，并且具有特定的长度，比方说1000天。

所以我正在寻找一个宏，如果可能的话，循环执行任务，并删除所有没有子任务且持续时间为1000天的任务。

我没有使用MS项目的经验，而且使用VBA和编程的经验非常有限。我搜索了一下，但没有取得任何进展。

提前致谢。奥斯卡

我现在的代码：

Sub DeleteMsProjectTask()
Dim proj As Project
Dim t As Task
Set proj = ActiveProject

Do While proj.Tasks.Count > 0
    For Each t In proj.Tasks
        If Not (t.Summary) Then
            t.Delete
        End If
    Next t
Loop
End Sub

Answer 1

我认为你需要在if语句中添加一些元素。

使用类似If t.OutlineChildren.count = 0 and t.Duration > 480000的东西

Duration财产显然是在工作日的几分钟内计算的，所以你必须找出适合你的那个号码。