🚀 go-pugleaf

Hi Ole, i think it's better when i give you my Code :) 

Thanks 
Michael 

    Dim myInDesign As InDesign.Application 
����Set myInDesign = CreateObject("InDesign.Application.2.0") 
����Set myDocument = myInDesign.Documents.Add 
����Set myParaStyle = myDocument.ParaStyles.Add 
����myParaStyle.Name = "Katalognummer" 
����myParaStyle.PointSize = 9.6 
����myParaStyle.BaselineShift = -3.8 
����myParaStyle.FontStyle = "Normal" 
����myParaStyle.AppliedFont = "Verdana" 
����myParaStyle.Justification = idCenter 
����TheFolder$ = BrowseForFolder("W�hlen Sie einen Ordner aus.") 
����Set objFileSys = CreateObject("Scripting.FileSystemObject") 
����Set objFolder = objFileSys.GetFolder(TheFolder$) 
����Set objSubFolders = objFolder.SubFolders 
����Set objFiles = objFolder.Files 
����For Each AFile In objFiles 
��������Set myPage = myDocument.Pages.Add 
��������myFile = TheFolder$ & "\" & AFile.Name 
��������Set myImage = myPage.Place(myFile, placePoint:=Array("10", "10")) 
��������Set Img = CreateObject("ImgSize.Check") 
��������Img.FileName = myFile 
��������myBild_Width = Img.Width 
��������myBild_Height = Img.Height 
��������myBild_Width_mm = FormatNumber(myBild_Width / 118.11 * 10, 2) 
��������myBild_Height_mm = FormatNumber(myBild_Height / 118.11 * 10, 2) 
��������Set Img = Nothing 
��������Set myTextFrame = myPage.TextFrames.Add 
��������myTextFrame.GeometricBounds = Array(20 + myBild_Height_mm, 10 + myBild_Width_mm, 10 + myBild_Height_mm, "10") 
��������myTextFrame.TextContents = AFile.Name 
����Next AFile 
����For myCounter = 1 To myDocument.Stories.Count 
����myDocument.Stories.Item(myCounter).ParagraphStyle = myDocument.ParaStyles.Item("Katalognummer") 
���Next