'с помощью DataObject будем получать доступ к буферу обмена Windows
    Dim myData As New DataObject
    'помещаем в переменную myData содержимое буфера обмена Windows
    myData.GetFromClipboard
    'узнаём, какой формат находится в переменной myData
    'если в переменной myData текст, то команда myData.GetFormat(1) будет = True
    If myData.GetFormat(1) = True Then
        'вставка текста из буфера обмена Windows
        'InStr([Start,]String1,String2[,Compare])
        'Chr$(7) это концевая сноска таблицы
        Концевая_сноска_таблицы = InStr(myData.GetFormat(1), Chr$(7))
    End If

'с помощью DataObject будем получать доступ к буферу обмена Windows -тип данных объект
    Dim myData As New DataObject

    'помещаем в переменную myData содержимое буфера обмена Windows
    myData.GetFromClipboard

Количество_концевых_сносок_таблицы = InStr(myData.GetText, Chr$(7))

'с помощью DataObject будем получать доступ к буферу обмена Windows
    Dim myData As New DataObject
    'помещаем в переменную myData содержимое буфера обмена Windows
    myData.GetFromClipboard
    For q = 1 To Len(myData.GetText)
    'Mid$(String,Start,[Length])
    Debug.Print Asc(Mid$(myData.GetText, q, 1))
    Next q