insertbreak | Excel-Macro

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

January 30, 2015June 26, 2013 by Sumit Jain

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

January 30, 2015June 23, 2013 by Sumit Jain

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”)

January 30, 2015June 20, 2013 by Sumit Jain

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