CODEWITHSUNDEEP
vbams-word
Boro72
Boro72

Reputation: 11

VBA insert picture and legends word 2010

A vba script that seems simple but don't work exactly as I want . My script inserts images ( PNG files) in the current document with a caption after each picture that is the name of the file.

So to insert images I use:

Selection.InlineShapes.AddPicture FileName: = sFile
Selection.TypeParagraph

And to insert text after I use:

Set Opar = ActiveDocument.Paragraphs.Add
oPar.Range.Text = sFile
oPar.Range.Style = " Normal"

The problem is that images are all found in the beginning of the document , arranged in reverse order (the last image inserted appears first in the document) and legends are all found at the end of the document.

What's happening ?

Upvotes: 1

Views: 525

Answers (1)

Cindy Meister
Cindy Meister

Reputation: 25673

@Boro: It's more efficient to work directly with the object model than trying to coerce Selection (imitating the user actions). There's no single way to achieve what you describe, so I'm going to demonstrate my preference:

Dim ils as Word.InlineShape
Dim rng as Word.Range
'Starting with current sel, but this could also be a Range...
Set ils = Selection.InlineShapes.AddPicture(FileName: = sFile)
Set rng = ils.Range
'Move the focus AFTER the picture
rng.Collapse wdCollapseEnd
'new para, text, followed by new para
rng.Text = vbCr & sFile & vbCr
rng.Style = wdStyleNormal
'focus in last para inserted by code
rng.Collapse wdCollapseEnd
'Do other things with the Range...
'Leave cursor there for user to work
rng.Select

The key in my approach is collapsing the Range, either to the start or end point. Think of it like pressing the left or right arrow key to reduce the selection to a blinking cursor. Except you can have any number of Ranges (but only one Selection) and things won't jump around on the screen.

Upvotes: 1

Related Questions