<div>
Are they drawing text boxes?<br />
<br />

<pre><code id="code-20-39525122-1">Sub Q_28250528()
       Dim wShp As Word.Shape
       Dim i As Long
       For i = ActiveDocument.Shapes.Count To 1 Step -1
       Set wShp = ActiveDocument.Shapes(i)
          If wShp.Type = msoTextBox Then
               wShp.Delete
          End If
       Next i
End Sub</code></pre>
</div>


Are they drawing text boxes?



Sub Q_28250528()
       Dim wShp As Word.Shape
       Dim i As Long
       For i = ActiveDocument.Shapes.Count To 1 Step -1
       Set wShp = ActiveDocument.Shapes(i)
          If wShp.Type = msoTextBox Then
               wShp.Delete
          End If
       Next i
End Sub

<div>
It worked beautifully! &nbsp;I removed all text boxes and contents from a 160 page document in a second!
</div>


It worked beautifully!  I removed all text boxes and contents from a 160 page document in a second!

<div>
<div class="content wysiwyg-content">
How do you delete all text boxes and their contents in Word 2010? &nbsp;I am guessing I will need a macro to remove them all.
</div>
</div>


How do you delete all text boxes and their contents in Word 2010?  I am guessing I will need a macro to remove them all.

Delete all text boxes in Word 2010

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.