{run:macro:'tot=0%0D%0AFor Each atopic In ActiveDocument.Range(mmRangeAllTopics)%0D%0AIf atopic.Task.Complete >=0 Then%0D%0Atot=tot+1%0D%0AEnd If%0D%0A Next atopic%0D%0A clipboard tot';
alert:'You have _clipboard_ activities to complete (including duplicates)'}