VBA Code to copy and paste the Content from excel to word

There are situations where you may have to copy and paste some content from excel to word. And save the newly created document into disk. The below VBA code or a macro will help you to do that. It is a very simple code, it is being executed from MS Excel. The MS Word object Library should included. This library has to functionality to interact with MS word object. 

To include MS word object library, go to Tools and then select References. Select the required object library as shown in the picture below.
 

To copy the VBA code follow the below steps

Open excel and make your table ready. This steps is as per your requirement. 

Press Ctrl + F11, this will open a Visual Basic editor. 

Click on insert and then module. 

Module1 will appear if do not have any  module. Paste the below code into this module 

Go back to excel and your macro will appear under macros list. Select and click on Run to execute the macro. 

Watch this video for more details explanation





Sub CreateWord()
    
    Dim w
    Dim d
    Dim filename As String
    'filename = "D:\\krishna\\youtube vidoes upload\\Marks Card " & Format(Date, "ddmmyy") & "_" & Second(Now())
    filename = "D:\\krishna\\youtube vidoes upload\\Marks Card " & Sheets("marks_sheet").Range("G7:G7") & "_" & Sheets("marks_sheet").Range("G8:G8")
    
    Sheets("marks_sheet").Range("a4:k25").Copy
    
    Set d = CreateObject("Word.Application")
    'If w Is Nothing Then
    Set w = d.Documents.Add
     
    d.Selection.Paste
    d.Visible = True
    'd.Selection.Paste ("new content")
    Application.CutCopyMode = False
    'ActiveDocument.Sections.Paste ("adsf")
    d.ActiveDocument.SaveAs filename
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    Application.CutCopyMode = False
    Set w = Nothing
    Set d = Nothing

End Sub

5 comments:

  1. Oh, thanks for explanation! Work with Excel is a challenge for me. Especially when I’m in lack of time. Once I got in trouble when I had to complete my Excel project in one night. Luckily, I’ve found https://www.assignmentexpert.com/programming/excel. It seemed to be a failure, but experts helped me to get A next morning. Strongly recommend!

    ReplyDelete
  2. This is a great explanation. I have had issues with excel assignments of late for my bachelors class. But https://excelassignmenthelp.com/ came to my rescue. Their writers are awesome.

    ReplyDelete
  3. Programming is the process of creating and assembling several sets of computer programmers in order to reach a high - end computing output in a staged procedure. With so many programming languages to pick from, settling on the best one can be difficult. You won't have to worry about the difficulties of programming assignments with Assignmenthelped.Our Computer Assignment Help programmers can best help you. Visit now:- Computer Programming Assignment Help

    ReplyDelete

How to copy screenshot to clipboard in New Apple Mac OS

If you have upgraded your Apple Mac OS to 14.x.x, then you may find it strange that the screenshots are not copied into the clipboard. The s...