Kopiere aktuel linie

Det kan f.eks. gøres sådan. Se bemærkningerne, der er indsat i koden:

Sub CopyInsertCurrentLine3()
    Dim oRange As Range
    With Selection
        'sørg for, at der kun er indsætningsmærke
        .Collapse (wdCollapseStart)
        '"find" indholdet i linjen, markøren er i
        Set oRange = .Bookmarks("\Line").Range
        'flyt markør til starten af næste linje
        .Start = .Bookmarks("\Line").Range.End
        .InsertAfter oRange.Text
    End With
    'Den indsatte tekst er nu markeret
    'Ryd op
    Set oRange = Nothing
End Sub

MEN som i så mange tilfælde, bør du tage højde for, om der kan være særlige situationer, som kan fejle - f.eks. gælder det for koden her, at teksten vil komme i forlængelse af sidste linje, hvis markøren er i sidste linje af dokumentet. Da jeg ikke ved, i hvilken sammenhæng, koden skal bruges, har jeg ikke her forsøgt at håndtere den situation.

Mange tak for forslaget, men jeg får en Run-time error '438': Object doesn't support this property or method.

".Collapse (wdCollapseStart)" er vist problemet..?

Jeg kører Excel 2003, hvis det har noget at sige..

Se, det var jo en anden sag. Du skrev ikke noget om, hvilket program, det handler om. Da du talte om en "linje" og ikke en "række", gik jeg ud fra, at det var Word...

Koden, jeg har skrevet, er til Word.

Sorry :)

Nogen, der har et bud på, hvordan den vil se ud i VBA for Excel 2003?? PFT

Jeg fandt selv løsningen :)