[WordVBA]若何把文件裡的文字方塊悉數刪除－darlenmarypu

Aug 10 Fri 2018 12:36
[WordVBA]若何把文件裡的文字方塊悉數刪除

If sp.Name Like "Text Box *" Then sp.Delete
這算 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

End Sub

本文來自: http://blog.udn.com/WayCheng/2979017有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931