Reuse annual project.mmbas

Sub Main 'reuse_annual_project 03Sep07 http://creativecommons.org/licenses/by-sa/2.5/ http://www.activityowner.com For Each t In ActiveDocument.Range(mmRangeAllTopics) If t.Task.Complete=100 Then t.Task.Complete=0 If t.Task.DueDate>0 Then t.Task.DueDate=DateAdd("yyyy",1,t.Task.DueDate) End If If t.Task.StartDate>0 Then t.Task.StartDate=DateAdd("yyyy",1,t.Task.StartDate) End If Next End Sub