Macro question URGENT !!!

[WarDeathAngel]

Hey,

I know I might not be in the good server, but I need a macro... in word... and as far as I know, there is no Mr.Word

Here is the question. I'm at work and I need to print a batch of photos with the title of the file below it. I don't have any program to print in batch and I know there is a way to make a little prorgam in VB to be able to print images in word with the filename below it. The photos need to be 1 per page and they must fit the whole page (I have both landscape and portrait photos (so put the portrait in portrait and "rotate" the landscape ones). All the files are in the same directory. And the paper is Letter.

I already have a macro that does that but cannot paste it in all because of copyright. I does everything but putting the landscape photos in full page (it only fit them on the portrait page)... any idea ?

Here is a part of the code that might help.. (I'm not sure)

The code before is juste to choose the folder and the image extension


Selection.InlineShapes.AddPicture FileName:=.FoundFiles(I), LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeText Text:=Dir(.FoundFiles(I))
Selection.TypeParagraph
If I = .FoundFiles.Count Then Selection.TypeBackspace
Next I
End If

Thanks a lot

WDA

 

[Joe4]

I know I might not be in the good server, but I need a macro... in word... and as far as I know, there is no Mr.Word

It is not called "Mr. Word", but there are Word sites out there. I use this one:
http://www.theofficeexperts.com/forum/