leizi_y 发表于 2006-10-23 18:53:00

[求助]vba怎么一次性删除所有的没有用的块，包括嵌套的

<P>文件中有若干没有使用的块（包括嵌套）等无用信息，我想将其删除，采用purgeall并不能够一次性全部删除。</P>
<P>有没有办法实现采用vba一次性全部删除，就和命令行中输入purge-&gt;选择嵌套-&gt;全部</P>
<P>效果一样的功能？？？</P>

leizi_y 发表于 2006-10-24 11:12:00

<P>通过尝试了种种方法之后不得已采用了如下方法实现：（采用sendcommand）</P>
<P>ThisDrawing.SendCommand ("-purge" &amp; vbCr &amp; "all" &amp; vbCr &amp; "*" &amp; vbCr &amp; "n" &amp; vbCr)</P>
<P>如果还想删除中不能清理的块，就可以先采用递归方法将所有块炸开，然后再用上面的这个语句来实现所有块的删除。</P>
<P>这个比PURGEALL方法速度块而且删除效果比PURGEALL好得多了。</P>
页: [1]
查看完整版本: [求助]vba怎么一次性删除所有的没有用的块，包括嵌套的