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.
- Copy only the Content and paste it in Word Document as Content.
- Copy the Excel Range as Picture and paste it in word Doc.
- Formatting in Word While pasting Copied Range from Excel
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
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
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
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.
I want to export data from excel to word with specific position in word document. Please help me with some example.
I want to export data from excel to word with specific position in word document. Please help me with some example.
Hi Admin
In using your Ist way I am having an error could you please help me?
Hi, is there a way to shape the picture in word with the macro?