如何选择当前图层中的所有图形而不影响其他关闭图层

c66c33

<P>各位大侠请了，今天遇到这么个恼人的问题：想删除开启图层中的所有图形。但是用selectionset的sellectall时发现把关闭图层中的图形也删除了。后来用selectwindow,acrossing也是同样。函数后面有两个参数，filltype,还有个什么data，我查帮助里没说到底啥东西。哪位大侠给帮帮忙，怎么选择看到的图形中的所有图形。</P><P>&nbsp; Set myselection = ActiveDocument.SelectionSets.Add(0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim dataValue(0) As Variant<BR>textPoint(0) = -100000: textPoint(1) = -100000: textPoint(2) = 0<BR>point2(0) = 100000: point2(1) = 100000: point2(2) = 0</P><P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; myselection.Clear<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; myselection.Select acSelectionSetCrossing, textPoint, point2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; myselection.Erase</P><P>上面就是我的代码，结果有用图层的也被删除了。</P>