Высокие статистические технологии

Форум сайта семьи Орловых

Текущее время: Вт мар 19, 2024 10:27 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Файлообъединялка (FileUniter) для Microsoft Word 2007
СообщениеДобавлено: Чт ноя 12, 2015 5:32 pm 
Не в сети

Зарегистрирован: Сб ноя 10, 2012 8:18 am
Сообщений: 2
Модифицировал "Файлообъединялку" ("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'а, отличного от русского, я не знаю).
Если возникнут ошибки, дайте знать. Надеюсь, что ошибки не возникнут.


Вложения:
Fileuniter.dotm [365.26 KiB]
Скачиваний: 1418
Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB