Hey guys,

My situation is that I have 8.5×11″ jpg images, named sequentially (Picture_01.jpg...etc)

When I insert them in Word, the are imported at 71% of the original size, so I have to manually scale to 100% and then set absolute postion to 0,0cm (top left corner of the page).

I'm using these images as backgrounds, each one in a different page.

Ideally I would like to have a Macro that does the following:

1 - Import the image
2 - Send it "behind text"
3 - Resize to 100%
4 - Position to TOP/LEFT aligned to the page
5 - Insert a page break
6 - Loop

Can someone help me with some code for a Macro that can do some or all of these things?

This is the only thing I was able to find online that serves to one of my purposes (Resizing back to 100%) :

Sub PictSize()
Dim PecentSize As Integer

PercentSize = 100

Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End Sub


THANK YOU!