Hi all,

I tried to delete all Notes and blocks containing notes, but I can only manage to delete certain annotations. It removes notes bit of the sheet format and balloons.

<p>        swModel.ClearSelection2 True</p><p>        </p><p>        Set swView = swDraw.GetFirstView</p><p>        While Not swView Is Nothing</p><p>            Set swAnn = swView.GetFirstAnnotation3</p><p>            While Not swAnn Is Nothing</p><p></p><p></p><p>                If swNote = swAnn.GetType Then</p><p>                        bRet = swAnn.Select3(True, swSelData)</p><p>                   </p><p>                End If</p><p>                                </p><p>                Set swAnn = swAnn.GetNext3</p><p>            Wend</p><p>            </p><p>            Set swView = swView.GetNextView</p><p>        Wend</p><p>        </p><p>        bRet = swModelDocExt.DeleteSelection2(swDelete_Absorbed)</p>