insertbreak

VBA-Excel: Add/Insert multiple Images/Pictures from a folder in Word Document

To Add or Insert Multiple Images or Pictures in Microsoft Word Document using Microsoft Excel, you need to follow the steps below:

Declare END_OF_STORY and MOVE_SELECTION as variables
Assign MOVE_SELECTION =0 and END_OF_STORY = 6
Create the object of Microsoft Word
Create the object of FileSystemObject
Create Folder object using FileSystemObject and GetFolder method
Using MS word object, Open the existing word document by providing the complete path
Make the MS Word visible
Create a Selection object with the help of WordObject.
Access Folder files using Folder object
Get the image paths from the folder
Insert image in the word documents using AddPicture()
Insert a page break after every image

To Add or Insert Images or Pictures in Microsoft Word Document using Microsoft Excel, you need to follow the steps below:

Create the object of Microsoft Word
Using MS word object, Open the existing word document by providing the complete path
Make the MS Word visible
Create a Selection object with the help of WordObject.
Set Shapes object using InlineShapes
Insert image in the word documents using AddPicture()

Create the object of Microsoft Word

Set objWord = CreateObject(“Word.Application”)

To append the text at the end of the Microsoft Word Document using Microsoft Excel, you need to follow the steps below:

Declare END_OF_STORY and MOVE_SELECTION as variables
Assign MOVE_SELECTION =0 and END_OF_STORY = 6
Create the object of Microsoft Word
Using MS word object, Open the existing word document by providing the complete path
Make the MS Word visible
Create a Selection object with the help of WordObject.
Move the Selection to the end of the document.
Append the text in the Word Document using SelectionObject