Hi
Now I have the way to paste my Excel cells into the Excel cells i have already in my Word header. The problem now is that the word document change to "Normal" view. I have tried to record a macro in Word and then paste that into my Excel macro. So that Word comes back to Print Layout View. But the macro don't do it. Maybe one of you know how the change the code. The code I have now is like this:
Sub excelToWord_click()
'copy cells
Worksheets(1).Range("A1

2").Select
Selection.Copy
Range("A3").Select
'Open the word document
aNameAndPath = Range("A4")
Set wdApp = CreateObject("Word.Application")
wdApp.documents.Open Filename:=aNameAndPath
wdApp.Visible = True
'insert cells
With wdApp.activedocument.Sections(1)
.Headers(1).Range.inlineshapes(1).Activate
Range("A1

2").Select
ActiveSheet.Paste
End With
If wdApp.ActiveWindow.View.SplitSpecial <> wdPaneNone Then
wdApp.ActiveWindow.Panes(2).Close
End If
If wdApp.ActiveWindow.ActivePane.View.Type = wdNormalView Or wdApp.ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
wdApp.ActiveWindow.ActivePane.View.Type = wdPrintView
End If
Application.CutCopyMode = False
End Sub
If you want to run this macro then you have to make a Word document where you insert Excel cells in the header of the Word document first. Remember to save the document. In cells A4 in your Excel you can writh the path and filename of your Word document.
Alring