Практические примеры программирования для MS Word

'Переменная для имени очередного файла
    Dim var_Doc As Variant
    'Для хранения ссылки на открытый файл
    Dim obj_File As Document
    'Для формирования нового имени файла
    Dim str_FileName As String
    'Для подсчета количества обработанных файлов
    Dim var_FileCount
    'Для хранения пути к папке с исходными файлами
    Dim str_In As String
    'Папка с выходными файлами
    Dim str_Out As String
    'Инициализируем переменные
    str_In = "C:\Документы"
    str_Out = "C:\Документы\Обработано"
    'Изменяем текущую директорию на заданную
    ChDir (str_In)
    'Ищем первый файл в директории
    var_Doc = Dir("*.doc?")
    Do While var_Doc <> "" 'До тех пор, пока есть файлы
        'Открываем найденный файл в невидимом окне
        Set obj_File = _
        Documents.Open( _
        FileName:=str_In + "\" + var_Doc, _
        Visible:=False)
        'Формируем имя нового файла
        str_FileName = str_Out + "\" + _
        Mid(var_Doc, 1, Len(var_Doc) - 4) + _
        "doc"
        'Сохраняем файл в формате Word 97-2003
        obj_File.SaveAs FileName:=str_FileName, _
        FileFormat:=wdFormatDocument97
        'Закрываем файл
        obj_File.Close
        'Увеличиваем на 1 счетчик файлов
        var_FileCount = var_FileCount + 1
        'Находим следующий подходящий файл в папке
        var_Doc = Dir()
    Loop
    MsgBox ("Обработано" + Str(var_FileCount) + " файлов")

'Переменная для хранения ссылки на
    'целевой документ
    Dim obj_TargetD As Document
    'Для хранения ссылки на очередной
    'обрабатываемый документ
    Dim obj_CurDoc As Document
    Set obj_TargetD = Documents.Add
    For Each obj_CurDoc In Documents
        If obj_CurDoc.Name <> _
        obj_TargetD.Name Then
            'Выделяем содержимое очередного документа
            obj_CurDoc.Content.Select
            'Копируем в буфер обмена
            Selection.Copy
            'Активируем целевой документ
            obj_TargetD.Activate
            'Вставляем в текущую позицию курсора
            'материалы из буфера обмена
            Selection.Paste
        End If
    Next

Имя исходного документа+ "часть №"+номер части.docx

'Переменная для хранения ссылки на
    'активный документ
    Dim obj_Doc As Document
    'Для ссылки на новый документ
    Dim obj_NewDoc As Document
    'Ссылка на абзац документа
    Dim obj_Par As Paragraph
    'Строка для хранения пути сохранения
    'файлов
    Dim var_Path As String
    'Счетчик для подсчета обработанных
    'абзацев
    Dim var_Counter
    'Переменная для сборки имен
    'новых файлов
    Dim var_FileName As String
    'Переменная для хранения номера
    'очередного файла, который используется
    'при создании имени файла
    Dim var_Part
    'Записываем 0 в счетчики количества
    'абзацев и файлов и инициализируем
    'другие переменные
    var_Counter = 0
    var_Part = 0
    Set obj_Doc = ActiveDocument
    var_Path = "C:\Документы"
    'Цикл для каждого абзаца в документе
    For Each obj_Par In obj_Doc.Paragraphs
        'Если в предыдущем сеансе обработано
        '10 абзацев - создается новый файл
        'для записи в него очередных 10
        If var_Counter = 0 Then
            Set obj_NewDoc = Documents.Add
            'Это - номер файла, который будет
            'отражен в его имени
            var_Part = var_Part + 1
        End If
        'Увеличиваем на 1 счетчик обработанных
        'абзацев
        var_Counter = var_Counter + 1
        'Активируем новый документ
        obj_NewDoc.Activate
        'Добавляем в него текст текущего абзаца
        'из исходного документа
        Selection.TypeText (obj_Par.Range.Text)
        'Если обработано 10 абзацев
        If var_Counter = 10 Then
            'Сбрасываем счетчик обработанных абзацев
            var_Counter = 0
            'Собираем имя нового файла
            var_FileName = var_Path + "\" + _
            obj_Doc.Name + _
            " часть № " + Str(var_Part) + ".docx"
            'Сохраняем новый файл
            obj_NewDoc.SaveAs FileName:=var_FileName
            'Закрываем его
            obj_NewDoc.Close
            'Очищаем объектную переменную
            Set obj_NewDoc = Nothing
        End If
    Next
    'Если в объектной переменной, представляющей
    'новый файл, хранится ссылка
    'это значит, что исходный файл имеет
    'количество абзацев, не кратное 10,
    'то есть он не будет сохранен в основном цикле
    'сохраняем этот файл
    If obj_NewDoc Is Nothing = False Then
        var_FileName = var_Path + "\" + _
        obj_Doc.Name + _
        " часть № " + Str(var_Part) + ".docx"
        obj_NewDoc.SaveAs FileName:=var_FileName
        obj_NewDoc.Close
        Set obj_NewDoc = Nothing
    End If
    'Выводим сообщение об окончании работы
    MsgBox ("Файл " + obj_Doc.Name + _
    " обработан, получено " + _
    Str(var_Part) + " файлов, которые" + _
    " хранятся в: " + var_Path)