Exiting from a textbox

[Roderick O'Regan]

I have a textbox into which my procedure has inserted an inlineshape -
a photo for a CV.
The code next causes the selection to collapse within the text box.

I now want to break out of that text box and cause the selection point
to move to paragraph mark close by.

Manually, I've figured out to achieve this I would press ESC key
twice. I've translated this to some code and arrived at the following:
With Selection
.ShapeRange.TextFrame.TextRange.Select
.Collapse
.ShapeRange.Select
.Collapse
End With
Nothing! The cursor justs sits inside the box.
I've tried using the ("\Page") bookmark to break out but still no joy.

Reading through this newsgroup I've seen some great code to make
txtboxes even do cartwheels but nothing on how to get out of the pesky
critters.

Can anyone help, please?

Roderick

 

[Shauna Kelly]

Hi Roderick

Assuming that the cursor is within a text box, then the following will
select the paragraph to which the text box is anchored. You can see the
anchors by doing Tools > Options > View and ticking the "Object anchors"
box.

Sub SelectShapeAnchor()

Dim tb As Shape

Set tb = Selection.ShapeRange(1)

tb.Anchor.Select
Selection.Collapse wdCollapseStart

End Sub

 

[Roderick O'Regan]

Thanks Shauna.

It works great.

Much appreciated.

Roderick