代码一功能：批量删除word文本框中的内容
Sub test()
Dim sha As Shape
For Each sha In ActiveDocument.Shapes
sha.TextFrame.TextRange.Delete
Next
End Sub
代码二功能：删除word文本框而保留文字
Sub deltextbox()
Selection.EndKey Unit:=wdStory
Dim s As Shape
For Each s In ThisDocument.Shapes
Selection.TypeText text:=s.TextFrame.TextRange.text
s.Delete
Next
End Sub
代码三功能：删除文档中所有的word文本框
Sub test()
Selection.WholeStory
'扩展某一所选内容，使其包括整个文章 。
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
'该区域的起点位于活动文档的开始处，终点位于光标的位置，然后将该区域内的方块里面的文本框删除，并且保留文字?
For Each aWord In myRange.Words
'循环文本框内所有单词
s = s & aWord.Text
Next
ActiveDocument.Range.Delete
'删除文本方块
Selection.TypeText s
'使用里面的文本来替换选取的内容
End Sub