Markering fra Excel skal indsættes i Word dokument.

Ja, det er ikke særligt svært du skal bare makere det du vil kopier, derefter trykke ctrl + x (for at klippe)  eller ctrl + c (for at kopier).

Så åbner du bare et word dokument og trykker ctrl + v for at indsætte :)

Det skal ske automatisk via et vba script i Excel, ikke noget med ctrl+c o.s.v.
Der skal flyttes mange forskellige celler  og det SKAL derfor være nemt.
Det hele skal ske fra Excel, Word skal ikke dukke op mens opgaven udføres.

hvor har du set det script henne??

Jeg mangler vba-koden til et script der kan udføre det. Det er derfor jeg lagde dette ind i Experten, jeg håber nogen kan vende tilbage med løsningen.

flemmingliin: Måske kan du bruge noget herfra: http://www.eksperten.dk/spm/791087

Hej, tak for det, jeg har lavet noget nu ved at plukke lidt rundt omkring og det virker faktisk rigtig godt.
Word skal dog helst være åben for at det går tilpas hurtigt, når der flyttes data. Det kan jeg godt leve med.
Jeg vil gerne have at macro'en starter/afvikles ved dobbelt klik eller højre klik på
musen, så er jeg færdig med min "lille" opgave.
Tak for dit hint.

Smid din kode her.

Sub CopyCelleToOpenWordDocument()
  Dim wdApp As Word.Application
    Selection.Copy
    Set wdApp = GetObject(, "Word.Application")
    With wdApp.Selection
      .EndKey Unit:=wdStory
      .PasteAndFormat (wdFormatPlainText)
    End With
  Set wdApp = Nothing
End Sub

Hvis du blot ønsker en genvejsløsning: Klik og start din makrooptager. Stop igen, uden at foretage dig noget. Tryk Alt+F11 for at komme ind i VBA editoren. Find modulet med den tomme makro, og put din kode ind.

Her er en lidt mere "sikker" kode:

Dim R As RangeSelection.Copy
For Each D In Selection
    If Not IsEmpty(D.Value) Then
        GoTo Fortsæt: ' Hvis der er data i mindst en af de valgte celler
        Exit Sub
    End If
Next
Application.CutCopyMode = False
Exit Sub

Fortsæt:
Dim wdApp As Word.Application
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Err.Clear
        MsgBox "Der er ingen Word dokumenter åbne!"
        Exit Sub
    End If
    With wdApp.Selection
      .EndKey Unit:=wdStory
      .PasteAndFormat (wdFormatPlainText)
    End With
Set wdApp = Nothing
Application.CutCopyMode = False

Tak for dit indlæg det hele virker som det skal nu.

Pointfordeling?

Hej. Hvordan giver jeg dig point, jeg er ny på denne side.

Ved at acceptere mit svar.

Er det ok nu, tak for samarbejdet ?

Ja, tak for point.