Microsoft Office Forums - View Single Post - VBA to clear all text boxes, not delete them

Jrod9190 · 03-16-2023, 04:50 PM

Quote:

Originally Posted by gmaxey

I have to agree with Graham regarding your choice of text boxes. But if there is some reason you must use what you have then perhaps:

Code:

Sub ScratchMacro()
Dim oShp As Shape
'A basic Word Macro coded by Gregory K. Maxey
  On Error Resume Next
  For Each oShp In ActiveDocument.Shapes
    oShp.TextFrame.TextRange.Text = ""
  Next oShp
lbl_Exit:
  Exit Sub
End Sub

This code worked like a charm, thanks!