If = strPictureNumber * n ThenДЇor Each objInlineShape In ActiveDocument.InlineShapes Selection.TypeText Text:=Left(strFile, InStrRev(strFile, '.') - 1) Selection.Collapse Direction:=wdCollapsEnd FileName:=StrFolder & strFile, LinkToFile:=False, SaveWithDocument:=True StrPictureNumber = InputBox('Input the number of the picture for each page', 'Picture Number', 'For exemple: 1') StrFile = Dir(StrFolder & '*.*', vbNormal) Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker) Sub InsertSpecificNumberOfPictureForEachPage() Open the module by double click and paste following codes:.And on the drop-down menu, choose вЂњModuleвЂќ.Then press вЂњAlt+ F11вЂќ to invoke VBA editor in Word.First of all, arrange all pictures to be inserted under the same folder.Batch Insert Multiple Pictures to Document Thirdly, it resizes pictures according to the size numbers you enter.Secondly, it inserts the name below each picture.Firstly, it inserts exact number of pictures you specify in each page.The macro we are going to present you is capable of following functions: How about use a macro to automatically perform the task? Once you insert a picture into document, you may have to manually resize it or enter its name around. You can feel comfortable while working with pictures in Word. In this article, we would like to offer you the way to batch insert multiple pictures to your Word document.

How to select multiple images in word