I have some code (courtesy of Graham Skan*) it works a treat but when I try to adapt the code to another problem I get stuck.
Basically the code (modified below) rolls through the entire document and 1 by 1 selects each shape. What I want (need) is to select only a single shape - in-fact the shape that the user selects...
As soon as I remove the "For - Next" the code stops working... :-(
I've been trying things like:
for each sh in selection.shapes (assuming only 1 shape is selected)
Thanks in advance,
kind regards, Steve
Sub RemoveBoxes() '(Optional HiddenYM As String = "")
Dim sh As Shape
Dim txt As String
For Each sh In ActiveDocument.Shapes
If sh.TextFrame.HasText Then
txt = sh.TextFrame.TextRange.Text