PasteSpeical for klassen Range mislykkedes i VBA
Jeg kopier sætninger over fra Word, hvor gang der optræder et : til Excel.Jeg har tidligere brugt denne kodestump, men jeg er begyndt at få fejlen en fejl ved Pastespecial. Kan nogen hjælpe?
Run-time error ´1004´:
Metoden PasteSpeical for klassen Range mislykkedes
Del af scriptet er:
' Finder og kopier i word
Dim orng As Range
Set orng = ActiveDocument.Range
With orng.Find
Do While .Execute(FindText:=":")
orng.Sentences(1).Select
orng.Collapse 0
Selection.Copy
' Indsætter i excel
Worksheets("CSV").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Loop
End With
lbl_Exit:
Set orng = Nothing