Extension of Range

[Vinay]

Hi,

I have a document of many text pages. In the middle of a
page, I am using the following code to add a picture.

sRange = .ActiveDocument.Paragraphs.Last.Range
..ActiveDocument.InlineShapes.AddPicture
(FileName:="Test1.jpg",
LinkToFile:=False, SaveWithDocument:=True,
Range:=sRange) 'Insert Image

This code inserts the picture. Now if I add some text
into it, it just comes on the very next line of the
picture, whereas I want to give 2 lines gap.

Can someone guide me how can I extend this range
parameter to implement the above gap.

Regards

Vinay

 

[Dave Lett]

Hi Vinay

You can try something lik

sRange.InsertAfter vbCrLf & vbCrL

which inserts two paragraphs after the range.