Delete Text Box in Excel > Word > Outlook

[dparteka]

This may be a shot in the dark because it's an Outlook macro issue. Below are two sets of code that deletes text boxes, the first one works in MS Excel and the second in MS Word. The only difference between the two is the third line after "Active". I'm trying to duplicate this action in MS Outlook in a new-opened email but lack the knowledge of the proper code terminology... is there anyone out there that knows this... thank you, Dennis.

Sub RemoveTextBox()
  Dim shp As Shape
  For Each shp In ActiveSheet.Shapes
  If shp.Type = msoTextBox Then shp.Delete
  Next shp
End Sub

Sub RemoveTextBox()
  Dim shp As Shape
  For Each shp In ActiveDocument.Shapes
  If shp.Type = msoTextBox Then shp.Delete
  Next shp
End Sub

 

[dparteka]

In addition you must reference Word Object Library. In the VBA editor click Tools > References and check Microsoft Word xx.x Object Library.

Sub DeleteTextBox()
Dim Inspector As Outlook.Inspector
Dim wdDoc As Word.DocumentDim Shp As Word.Shape

Set Inspector = Application.ActiveInspector()Set wdDoc = Inspector.WordEditor

ForEach Shp In wdDoc.Shapes

Debug.Print Shp.Type 'msoTextBox = 17 - Print on Immediate WindowIf Shp.Type = msoTextBox Then Shp.Delete

Next

EndSub

 

[SirJB7]

Crossposted at StackOverflow:
https://stackoverflow.com/questions/44054466/text-box-in-outlook-email