I'm not sure that this is the correct forum for vbscripts. I am very new to vbscripting.
I have searched the internet and combined snippets of code to process image files in a folder. I want to create a new Word document of all the image files and insert the image filename under the image (minus the file type extension).
It partially works however the images are pasted on top of each other and the text is underneath the images! I need help on how to add new lines to the document so that the images appear under each other. Do I need to "go to new page" too?
My code is below:
Set fsoFolder = CreateObject("Scripting.FileSystemObject") Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add() Set objSelection = objWord.Selection Set objShape = objDoc.Shapes objSelection.Font.Name = "Arial" objSelection.Font.Size = "12" Set folder = fsoFolder.GetFolder("C:\PKW_JPG") Set files = folder.Files for each objFile in files filepath = fsoFolder.GetAbsolutePathName(objFile) sName = objFile.Name iLen= len(sName) -4 sNameNew = left(sName, iLen) ' msgbox sName objShape.AddPicture(filepath) objSelection.TypeParagraph() objSelection.TypeText sNameNew objSelection.TypeParagraph() objSelection.TypeParagraph() Next set files = nothing set folder = nothing set fsoFolder = nothing