vba from excel to word

[mirinjawbro]

Hello everyone

What's the simplest way to

Copy a1 to k40 in an excel sheet

Open a new word document. Paste. Fit to one page with narrow margins

Thanks

 

[Sektor]

Sub F()


    Dim wdApp As Object
    Dim doc As Object

    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set doc = wdApp.Documents.Add()
   
    Range("A1:K40").Copy
    doc.Range.PasteExcelTable False, False, False

End Sub

 

[mirinjawbro]

Thanks it worked. However it's pasting different to when I just copy and paste. Its taking up 2 pages?

How can I then edit that to have narrow margins ?

Thanks again

 

[Macropod]

You will have to choose the appropriate paste format and/or add code to reformat the table after pasting it. Copying an Excel range, then starting Word's macro recorder before pasting should generate some code you can use as a starting point.