VBA - How to open a sheet range in MS Word, complete with all formatting from the Excel sheet

[Jasesair]

I have a sheet range (A1:I18) that is formatted the way I want with picture, different row and column widths, cell highlighting, cell borders, different font sizes etc. I'd like assign macro to a button that then sends the user to MS Word, opening up the Excel cells as converted in an MS Word file. Any help to do this would be fantastic!

I'm very, very green to VBA and have no idea even how to record macros etc.

 

[Jogender singh]

you need to make link with word file to send excel range in word

 

[Jogender singh]

no need to record macro

 

[Jasesair]

you need to make link with word file to send excel range in word

Are you able to explain a little better how to do this? It's sounding great!!!

 

[Jogender singh]

select desire range in excel
copy that
right click in word file
and select paste option
"link & keep source formating"

 

[Jasesair]

select desire range in excel
copy that
right click in word file
and select paste option
"link & keep source formating"

That's exactly what I want to do but I need all that to happen with one button click from Excel. I need that button click to open a new Word file and insert the range I need, with the source formatting.

 

[Jogender singh]

Private Sub CommandButton1_Click()
Set wordapp = CreateObject("word.application")
wordapp.documents.Open "e:\test.docx" 'word file address
wordapp.Visible = True

 Range("A1:F9").Select 'range which you want to transfer to word file
     Selection.Copy
     Application.CutCopyMode = False
End Sub

 

[Jogender singh]

assign this code to button

 

[Jogender singh]

and write this code to word file


Private Sub Document_Open()
Selection.PasteExcelTable True, False, False
End Sub

 

[Macropod]

Simpler, more reliable, and more straightforward:

Private Sub CommandButton1_Click()
Dim wdApp As Object, wdDoc As Object
Range("A1:F9").Copy
Set wdApp = CreateObject("Word.Application")
With wdApp
  .Visible = True
  Set wdDoc = .Documents.Add
  wdDoc.PasteExcelTable True, False, False
End With
Application.CutCopyMode = False
End Sub