Makro mm.

I VBA skal du sætte reference til Word via Tools/References og markering af "Microsoft Word x.0 Object Library"

Prøv så denne makro
Sub CopyToWord()
    Dim objWord As Word.Application
    Set objWord = New Word.Application
    Selection.Copy
    objWord.Documents.Add
    objWord.Visible = True
    objWord.Selection.Paste
    Set objWord = Nothing
End Sub

Her findes en anden måde, dog ikke copy and paste, men det kan hurtigt rettes til:
http://www.win-consult.com/Tips/LibrarySource.asp?App=Excel&Lib=ExcelUsingWord

Man kan også copy/paste på almindelig vis mellem Word og Excel.

Det virker, men kan det ikke laves sådan, at der kan kopieres fra flere celler på een gang :-)
Dette virker kun ved markering af een celle!

Det virker fint ved en større markering hos mig. Koden Selection betyder det som er markeret, så det er lavet rigtigt...

Jeg får runtime fejl 1004 ved at markere flere celler vha. ctrl+museklik.
Jeg markerer ikke et stort sammenhængende område!

Ja, det er nok de ikke sammenhængende områder - der giver fejlen.

Yep - jeg får også 1004 - This command cannot use multiple selection. Problemet er Copy funktionen. Hvis du markerer flere områder, og trykker på Copy - så får du også en fejl. That's life.

Jeg må leve med det!

Takker mange gange!

Your are welcome :-)

Hvis du er tilfreds med at cellerne kommer til at stå direkte under hinanden vil denne lille modifikation af flemmings makro kunne gøre det.

Sub CopyToWord()
    Dim objWord As Word.Application
    Set objWord = New Word.Application
    objWord.Documents.Add
    objWord.Visible = True
    For Each c In Selection.Cells
      c.Copy
      objWord.Selection.Paste
    Next
    Set objWord = Nothing
End Sub