Macro to Copy from Excel in to Word Document

.

In Previous Article we saw how to Copy Content from a Word Document and Paste in in to the Active Workbook. Now in this Article i am going to write a function will Select a Range from Excel and paste the content in a New Word Document.
Here there are two possible way of copying and pasting in Word Document. Also while pasting in the word Document you can format the Doc as per your requirement. Below 3rd point describe about that.

1. Copy only the Content and paste it in Word Document as Content.


Sub CopyToWord()

    Dim objWord As New Word.Application
    'Copy the range Which you want to paste in a New Word Document
    Range("A1:B10").Copy

    With objWord
        .Documents.Add
        .Selection.Paste
        .Visible = True
    End With

End Sub

2. Copy the Excel Range as Picture and paste it in word Doc.


Sub CopyToWord()

    Dim objWord As New Word.Application
    'Copy the range Which you want to paste in a
    ' New Word Document as a Picture
    Range("A1:B10").CopyPicture xlPrinter

    With objWord
        .Documents.Add
        .Selection.Paste
        .Visible = True
    End With

End Sub

3. Font Formatting of Word Document while pasting


Sub CopyRangeToWord()

	Dim objWord As New Word.Application
	Dim objDoc As New Word.Document

	Set objDoc = objWord.Documents.Add
	objWord.Visible = True
	Range("A1:B10").Copy
	 With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range
           'All formatting goes here
	    .Paste
	    .Font.Name = "broadway"
	    .Font.Color = wdColorBlue
	    .Font.Bold = True
	    .Font.Italic = True
         .Font.Allcaps = True
         .Font.Size = 20
	End With

End Sub

Buy a coffee for the author

Adsense

Download FREE Tools and Templates

There are many cool and useful excel tools and templates available to download for free. For most of the tools, you get the entire VBA code base too which you can look into it, play around it, and customize according to your need.

Dynamic Arrays and Spill Functions in Excel: A Beginner’s Guide
Dynamic Arrays and Spill Functions in Excel: A Beginner’s Guide

In today's tutorial, we'll be diving into the exciting world of dynamic arrays and spill functions in Office 365 Excel. These features have revolutionized the way we work with data, providing a more flexible and efficient way to handle arrays. I am going to explain...

How to Declare a Public Variable in VBA
How to Declare a Public Variable in VBA

While programming in VBA sometimes you need to declare a Public Variable that can store the value throughout the program. Use of Public Variable: Let's say you have 4 different Functions in your VBA Code or Module and you have a variable that may or may not be...

How to Copy content from Word using VBA

As many of us want to deal with Microsoft Word Document from Excel Macro/VBA. I am going to write few articles about Word from Excel Macro. This is the first article which opens a Word Document and read the whole content of that Word Document and put it in the Active...

What is Excel Formula?

Excel Formula is one of the best feature in Microsoft Excel, which makes Excel a very very rich application. There are so many useful built-in formulas available in Excel, which makes our work easier in Excel. For all the automated work, Excel Macro is not required. There are so many automated things can be done by using simple formulas in Excel. Formulas are simple text (With a Syntax) which is entered in to the Excel Worksheet Cells. So how computer will recognize whether it is a formula or simple text? Answer is simple.. every formula in Excel starts with Equal Sign (=).

You May Also Like…

7 Comments

  1. Gary

    Hi there,

    What is the code if you have a number formatted in excel, say 1,000,000,which is custom formatted in excel to show 1M. The custom formatting for reference in excel would be: #.##,," M";–

    But how can this be achieved in word?

    Thanks for your help.

    Gary

    Reply
  2. mk

    I want to copy content of excel workbook to word as image having many worksheet. Each worksheet have many pages. Is it possible macro select each page and paste in word file.

    Sub PRINTtoNewWord()
    Dim appWD As Word.Application
    Set appWD = CreateObject(“Word.Application”)
    appWD.Visible = True
    appWD.Documents.Add
    Sheets(“sheet1”).Select
    Range(“A1:L52”).CopyPicture xlPrinter, xlPicture
    appWD.Selection.Paste
    Range(“A53:L100”).CopyPicture xlPrinter, xlPicture
    appWD.Selection.Paste

    Sheets(“sheet2”).Select
    Range(“A1:Q50”).CopyPicture xlPrinter, xlPicture
    appWD.Selection.Paste
    Range(“A51:Q100”).CopyPicture xlPrinter, xlPicture
    appWD.Selection.Paste

    Set appWD = Nothing
    End Sub

    Reply
  3. Stephane

    This is simple and worked very well for me. Thank you.

    Might you be able to let me know how I could get the copied Excel data to paste as content into a specific Word document I have saved?

    I’ve been trying to cross reference your information with some other sites to come up with a solution, but I’m not having much luck. Also, the location of the Word document I have is in a shared folder on a common drive in my office. I’m not sure if that makes a difference…

    Anyway, many thank for the information you provided on this page and for any further info you might be able to provide.

    Reply
  4. Belajar Excel

    I want to export data from excel to word with specific position in word document. Please help me with some example.

    Reply
  5. SRJ

    I want to export data from excel to word with specific position in word document. Please help me with some example.

    Reply
  6. Shozib Javaid

    Hi Admin
    In using your Ist way I am having an error could you please help me?

    Reply
  7. Julien

    Hi, is there a way to shape the picture in word with the macro?

    Reply

Submit a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Join and get a FREE! e-Book

Don't miss any articles, tools, tips and tricks, I publish here

You have Successfully Subscribed!

Pin It on Pinterest