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

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...