Hi Serge,

AFAIK, there is no direct way, but you can create a macro or add-in like
this (not tested and not optimized) to intercept the Edit.Copy command and
cancel it if there is no selection:

Private Sub CommandEvents_BeforeExecute(ByVal Guid As String, ByVal ID As
Integer, ByVal CustomIn As Object, _
   ByVal CustomOut As Object, ByRef CancelDefault As Boolean) _
   Handles CommandEvents.BeforeExecute

     Dim objCommand As Command
     Dim objTextDocument As TextDocument

     objCommand = DTE.Commands.Item(Guid, ID)
     If objCommand.Name = "Edit.Copy" Then
        Try
           objTextDocument = Ctype( DTE.ActiveWindow.Document.Object,
EnvDTE.TextDocument
           If
objTextDocument.Selection.TopPoint.EqualTo(objTextDocument.Selection.BottomPoint)
Then
              CancelDefault = True
           End If
        Catch ex As System.Exception
        End Try
     End If

End Sub