Issue with insert caption + text next to it

[Associates]

Hi,

I was wondering if i could get some help here with caption. I was trying to
do here is when user clicks on "add pictures" macro. I would like the picture
to be inserted along with the name of it.

For example

(picture: bluehills.jpg)
Figure 1.1 This is Picture of Bluehill

I managed to add the picture to the document and know how to produce Figure
1.1 (by the way, 1.1 refers to chapter 1). However, what i got stuck here is
to place that name next to the figure 1.1 e.g. This is Picture of Bluehill.

So far, i just used the autotexts to insert the caption "figure" in VBA as
follows

Dialogs(wdDialogInsertPicture).Show

Selection.TypeParagraph
Selection.TypeParagraph
NormalTemplate.AutoTextEntries("captionfigure").Insert Where:=Selection. _
Range, RichText:=True

Selection.TypeText Text:=InputBox("Enter Name for the picture:", "Enter
Picture Name")
Selection.TypeParagraph

The code above actually inserts the caption but put the text onto the next
line rather than being next to it as shown in the example. Hope anyone might
be able to help get around this.

Thank you in advance

 

[Associates]

I fixed it up by using a different way. I use the macrobutton nomacro to ask
user to enter texts as follows

Figure 1.1 [Click and type the content here]

Thank you