Тусклое DataObj как новое MSForms.DataObject
Тусклый s как шнур
Тусклые линии как вариант
Тусклая линия как шнур
DataObj.GetFromClipboard
S = DataObj.GetText
'Вы теперь имеете шнур содержать текст clipboard.
Линии = разделили (s, Chr (13))
'Это разделяет шнур в комплект индивидуальных линий
Для каждой линии в линиях
'Положите ваше Кодего для того чтобы отрегулировать каждую линию здесь
Затем