Дополнительные сведения о программировании для MS Excel

Range("B1").Formula = "=sum(A1:A10)"

Dim num_F As Integer
    num_F = InputBox("Введите число")
    MsgBox ("Факториал числа " & num_F & " равен " & _
        WorksheetFunction.Fact(num_F))

'Переменная для хранения ссылки
    'на экземпляр MS Word
    Dim obj_Word As Word.Application
    'Для хранения ссылки на документ
    'MS Word
    Dim obj_WDoc As Word.Document
    'Для хранения ссылки на лист
    'книги Excel
    Dim obj_ESheet As Worksheet
    'Для хранения ссылки на
    'выделеный диапазон
    Dim obj_Range As Range
    'Для хранения ссылки на
    'книгу MS Excel
    Dim obj_Excel As Workbook
    'Для строки формирования вывода
    Dim str_Str As String
    'Записываем в переменные
    'ссылки на соответствующие им
    'объекты
    Set obj_Range = Selection
    Set obj_ESheet = ActiveSheet
    Set obj_Excel = ActiveWorkbook
    'Запускаем экземпляр MS Word
    Set obj_Word = New Word.Application
    'Делаем его видимым
    obj_Word.Visible = True
    'Создаем новый документ
    Set obj_WDoc = obj_Word.Documents.Add
    'Активируем документ
    obj_WDoc.Activate
    'Собираем строку для вывода информации
    'об имени книги и листа
    str_Str = "Скопировано из книги " + _
        obj_Excel.Name + ", с листа " + _
        obj_ESheet.Name
    'Выводим строку в документ
    obj_Word.Selection.TypeText (str_Str)
    obj_Word.Selection.TypeParagraph
    'Очищаем строку
    str_Str = ""
    'Цикл для построчного прохода
    'выделенного диапазона и сбора
    'строк для вывода
    For i = 1 To obj_Range.Rows.Count
        For j = 1 To obj_Range.Columns.Count
            str_Str = str_Str & obj_Range.Cells(i, j) & ", "
        Next j
        'Удаляем из строки последних 2 символа
        str_Str = Mid(str_Str, 1, Len(str_Str) - 2)
        'Активируем документ Word
        obj_WDoc.Activate
        'Выводим текст и очищаем переменную
        obj_Word.Selection.TypeText (str_Str)
        obj_Word.Selection.TypeParagraph
        str_Str = ""
    Next i

'Объектные переменные для MS Excel
    Dim obj_Excel As Excel.Application
    'Для книги
    Dim obj_Workbook As Excel.Workbook
    'Для листа
    Dim obj_Worksheet As Excel.Worksheet
    'Для текста в MS Word
    Dim obj_Range As Word.Range
    'Для цикла, выгружающего слова на
    'лист
    Dim num_Counter
    'Для подсчета номера очередного слова
    Dim num_Words
    'Присваиваем переменной ссылку
    'на выделенную область
    Set obj_Range = Selection.Range
    'Запустим MS Excel
    Set obj_Excel = New Excel.Application
    'Добавим в Excel новую книгу
    Set obj_Workbook = obj_Excel.Workbooks.Add
    'Присвоим переменной ссылку на первый лист книги
    Set obj_Worksheet = obj_Workbook.Worksheets(1)
    'Вычислим результат от деления количества слов
    'нацело - то есть - сколько полных строк
    'по 10 слов удастся выделить из нашего текста
    num_Counter = obj_Range.Words.Count \ 10
    'Цикл выгрузки
    For i = 1 To num_Counter
        For j = 1 To 10
            'Увеличиваем на 1 номер
            'выводимого слова
            num_Words = num_Words + 1
            'выводим это слово на лист
            obj_Worksheet.Cells(i, j) = _
                obj_Range.Words.Item(num_Words)
        Next j
    Next i
    'Помимо полных строк по 10 слов
    'может оказаться так, что некоторые
    'слова образуют неполную строку
    'вычислим ее длину
    num_Counter = obj_Range.Words.Count - _
       (obj_Range.Words.Count \ 10) * 10
    'Цикл выгрузки последних слов
    For j = 1 To num_Counter
        num_Words = num_Words + 1
        obj_Worksheet.Cells(i, j) = _
            obj_Range.Words.Item(num_Words)
    Next j
    'Настроим ширину столбцов, содержащих
    'выгруженные слова
    obj_Worksheet.Columns("A:J").AutoFit
    'Теперь - вычисления
    MsgBox ("Сумма чисел 1,2,3,4 равна " & _
        obj_Excel.WorksheetFunction.Sum(1, 2, 3, 4))
    MsgBox ("Данные выгружены в книгу " + _
        obj_Workbook.Name)
        'В конце работы отобразим
        'MS Excel, до этого скрытый
    obj_Excel.Visible = True