Модифицировал "Файлообъединялку" ("FileUniter") для работы в Microsoft Word 2007 и (возможно) позже. Поскольку в VBA Microsoft Word 2007 штатная возможность поиска файла FileSearch отключена, то пришлось написать специальный класс (вернее дописать найденный в сети). Класс повторяет возможности штатного FileSearch, по крайней мере, его хватает для работы "Файлообъединялки". Кроме того добавил возможность ручного создания списка файлов для объединения. Для этого в способ сортировки добавил "Вручную" ("Manually"). После выбора этой строки открывается новая форма и у пользователя появляется возможность с помощью drag-and-drop создать список файлов, которые потом будут объединены в единый документ. Также добавил некоторые мелочи: - вывод сообщения, если вместо пути к папке был введён произвольный текст или введённая вручную папка отсутствует на диске; - невозможность запустить программу (кнопка запуска неактивна), если в папке и подпапках нет файлов с выбранным расширением; - поиск файлов не только по единичному расширению, но и по группе расширений ("Документы Word" и "Файлы WEB"). В программе использованы найденные на просторах интернета классы для дополнения свойств форм (изменение размер формы (resize) и контролов на ней, отключение заголовков, отключение кнопки "закрыть", системного меню и т.д.), класс вызова стандартных окон "Открыть" и "Сохранить". Для работы скачайте файл и переместите его в папку, где расположены ваши шаблоны (обычно это C:\Documents and Settings\<ваше имя в системе>\Application Data\Microsoft\Word\STARTUP (для WinXP) и c:\Users\<ваше имя в системе>\AppData\Roaming\Microsoft\Word\STARTUP (для Win7)). После установки в Microsoft Word 2007 появится закладка "Дополнительная" и на ней кнопка "Файлообъединялка" (как это будет написано в версиях Word'а, отличного от русского, я не знаю). Если возникнут ошибки, дайте знать. Надеюсь, что ошибки не возникнут.
|