vba word selection.copy

[אין כמו T]

vba word selection.copy

כתבתי מאקרו -

Sub aaaaa()
On Error GoTo ErrCatch:
clearRecentAction
Dim r As range



setRange Selection.range


' copy
Selection.Copy

ErrCatch:
Resume Next
End Sub
Sub clearRecentAction()
ActiveDocument.UndoClear
End Sub
Sub setRange(r As range)
r.Select

End Sub


לפעמים הוא נופל על השורה של ההעתקה- למה זה?
אשמח לעזרה