Another question. How do I get the text to paste inside the caption bubble?

Sub TestCreateCaptionBubble()
'Pastes a caption bubble and inserts reference to a photo number

Application.Templates( _
"C:\Users\Philip Browne\AppData\Roaming\Microsoft\Document Building Blocks\1033\16\Building Blocks.dotx" _
).BuildingBlockEntries("3").Insert Where:=Selection.Range, RichText:=True

Selection.Text = "Refer photo xx"

End Sub

Attached Images

zz2.png (24.5 KB, 14 views)