microsoft word macro help?

[d0wnt0wn]

Hi Guys i know this is not the right place to ask this question but i can not seem to find a similar forum for vba help in word like there is here and you guys have helped me so much in the past that I thought I would give it a shot.

I am trying to make a macro for word that will allow me to select multiple pictures from a folder location and insert them in to the document evenly sized and i would like a text box inserted directly below each picture (or beside the picture)

any help or a point in the right direction would be greatly appreciated.

Ken

 

[Trevor G]

Hi Ken,

Do you have a document to open or is it in a blank document?

If open do you have bookmarks in place

If new document is there an order to the pictures and textbox

Have you tried recording a macro in Word to do this as it will give you the code you need to repeat as and when.

 

[d0wnt0wn]

Hi Ken,

Do you have a document to open or is it in a blank document?

lets say it would start from a cursor position on an already open document

If open do you have bookmarks in place

not sure what this means

If new document is there an order to the pictures and textbox

no order for the pictures... it just needs to be picture, text box, picture, text box etc

Have you tried recording a macro in Word to do this as it will give you the code you need to repeat as and when.

sure i could use the macro for 1 picture at a time but I do not know how to make the macro dynamic for a varying amount of pictures.

Thanks for the help

 

[Trevor G]

OK you would need to know the location of the pictures and the names of the pictures that you want to use and what type of picture i.e JPEG, GIFF etc.

So add them into the document you currently have Open.


Bookmarks helps you find certain places in Documents, example press F5 (Goto) and it will open the Find Replace and Goto feature, then you will see bookmarks.

Now to create a Bookmark in a location in the document you would select the position (don't which version you are using), the Insert Menu or Insert Tab, and Bookmark is at the bottom then give the Bookmark a name. Then use F5 again and select your Bookmark name and it takes you there.

 

[d0wnt0wn]

I guess a little more info would help.... basically i am using this for roof reports.. i take photos of roof problems and give them a little write up for each photo... I am using word 2010

 

[jimrward]

what i have done in the past, is take a new document, insert newspaper columns, and then import pictures one by one, this will take care of any scaling, lets word do the hard work

I used a macro to do this, will try and lay my hands on a copy

 

[d0wnt0wn]

i have a macro that get me close... but it does not have the text boxes


Sub InsertImages()
Dim fd As FileDialog
Dim oTbl As Table
Dim oILS As InlineShape
Dim vrtSelectedItem As Variant
If Documents.Count = 0 Then
If MsgBox("No document open!" & vbCr & vbCr & _
"Do you wish to create a new document to hold the images?", _
vbYesNo, "Insert Images") = vbYes Then
Documents.Add
Else
Exit Sub
End If
End If
'Add a 1 row 2 column table to take the images
Set oTbl = Selection.Tables.Add(Selection.Range, 1, 2)
oTbl.AutoFitBehavior (wdAutoFitFixed)
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "Select image files and click OK"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.tif; *.png"
.FilterIndex = 2
If .Show = -1 Then
CaptionLabels.Add Name:="Picture"
For Each vrtSelectedItem In .SelectedItems
With Selection
Set oILS = .InlineShapes.AddPicture(FileName:= _
vrtSelectedItem, LinkToFile:=False, SaveWithDocument:=True, _
Range:=Selection.Range)
oILS.Range.InsertCaption Label:="Picture", TitleAutoText:="", Title:="", _
Position:=wdCaptionPositionBelow, ExcludeLabel:=0
.MoveRight wdCell, 1
End With
Next vrtSelectedItem
Else
End If
End With
If Len(oTbl.Rows.Last.Cells(1).Range) = 2 Then oTbl.Rows.Last.Delete
Set fd = Nothing
End Sub




I pressed f5 and saw the dialog box but still do not quite understand what the bookmarks use is.

 

[Trevor G]

Sound advice. Let Word do the hard work for you.

 

[d0wnt0wn]

that would be great thanks Jim

 

[d0wnt0wn]

I appreciate the help guys but if anyone knows how to modify the code i have to add text boxes to it as well i would really appreciate that.