إقتباس :Dim buf As String Dim i As Long For i = 0 To List1.ListCount - 1 buf = buf + List1.List buf = buf + vbCrLf Next Clipboard.Clear Clipboard.SetText buf