【原】Word VBA批量删除文本框

Word VBA批量删除文本框代码整理

'//代码一功能: 批量删除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

End Sub