Sub EraseTextBoxes()Dim RngDoc As Range, RngShp As Range, i As LongWith ActiveDocument For i = .Shapes.Count To 1 Step -1 With .Shapes(i) If .Type = msoTextBox Then Set RngShp = .TextFrame.TextRange RngShp.End = RngShp.End - 1 Set RngDoc = .Anchor RngDoc.Collapse wdCollapseEnd RngDoc.FormattedText = RngShp.FormattedText .Delete End If End With NextEnd WithEnd Sub