MS Word VB Script issue

Question

Hello I m writing a VB Script macro very simple code:

ActiveDocument.range.InlineShapes.AddPicture FileName:=strImageFile, LinkToFile:=False, SaveWithDocument:=True

When I run this macro it inserts me an empty space instead of an image where the cursor is, but if I select the area and then call macro it does insert the image.

Answer 1

As Anna suggests, you can use the Selection.InlineShapes collection to place the picture where the insertion point is at the time the macro runs, so you'd have to click there before starting the macro.

However, the ActiveDocument.InlineShapes.AddPicture method has an optional parameter named Range, with which the macro can specify any range in the active document, regardless of where the insertion point is. The syntax of the method is

ActiveDocument.InlineShapes.AddPicture FileName, [LinkToFile], [SaveWithDocument], [Range]

where each of the parameters shown in square brackets is optional.

If you do want to place the picture at the current insertion point, you can write Range:=Selection.Range. If the document has a bookmark at the desired spot, you can write

Range:=ActiveDocument.Bookmarks("bookmarkname").Range

There are lots of other ways to determine where the correct range is (for example, the range of a cell in a table).

Answer 2

Hi Alex

I'm AnnaThomas and I'd happily help you with your question. In this Forum, we are Microsoft consumers just like yourself.

It seems that the issue you’re experiencing is related to the Range object in your code. When you call the AddPicture method on the InlineShapes collection of the Range object without first selecting a specific range, it may not insert the image where you expect it to.

One possible solution is to specify the range where you want to insert the image before calling the AddPicture method. For example, you could use the Selection object to get the current selection and then call the AddPicture method on its InlineShapes collection:

Selection.InlineShapes.AddPicture FileName:=strImageFile, LinkToFile:=False, SaveWithDocument:=True

This should insert the image at the current cursor position.

I hope this helps ;-), let me know if this is contrary to what you need, I would still be helpful to answer more of your questions.

Best Regards,

AnnaThomas

Give back to the community. Help the next person with this problem by indicating whether this answer solved your problem. Click Yes or No at the bottom.

Answer 3

Alright Alex, you keep us posted after trying what Jay suggested.

Answer 4

Thank you Jay, will try it!

Answer 5

Thank you AnnaThomas. That’s exactly how I call it but at times it simply inserts a space. When I make few empty lines as per the image height and select them then it inserts.

I notice it fails to insert an image at customer position sometime. That’s very weird.