網路城邦
上一篇 回創作列表 下一篇   字體:
[Word VBA] 如何把文件裡的文字方塊全部刪除
2009/05/24 21:01:18瀏覽6778|回應0|推薦3


這算 Word VBA 非常入門的小程式。

在 Word 文件裡,"文字方塊" 與圓形、矩形......等等,都是所謂的『快取圖案』。在 VBA 裡,它們都是 "shape",文字方塊的 Name (名稱) 會像是 "Text Box 3" 這樣。目前正在使用的文件上所有 shape 的集合,就是:

ActiveDocument.Shapes

若要把 Text Box 3 刪除,就要這樣寫:

ActiveDocument.Shapes("Text Box 3").Delete

底下的程式是利用 for 迴圈,把目前正在使用的文件裡,名稱像 "Text Box *" 的 Shape,也就是所有的文字方塊全部刪除。

Sub DelTextBox()

Dim sp As Shape



For Each sp In ActiveDocument.Shapes

    If sp.Name Like "Text Box *" Then sp.Delete


Next sp



End Sub
( 興趣嗜好電腦3C )
回應 推薦文章 列印 加入我的文摘
上一篇 回創作列表 下一篇

引用
引用網址:http://classic-blog.udn.com/article/trackback.jsp?uid=WayCheng&aid=2979017