Мой логотип Исходные коды
 

 

 

Назад…   К содержанию…   Далее…

 

VBA-макросы для обработки текстовых файлов и файлов в формате MS Word и LO Writer

Содержание:

I. Назначение макросов

Данные макросы (noneol, spec_c01, singlstr) решают следующие задачи:

  1. Убирают «пустые строки» между абзацами;
  2. Реализуют функцию замены в текстовых файлах «машинописные» знаки на «типографские»;
  3. Осуществляют приведение абзаца, начинающегося с красной строки и содержащего символы конца строки внутри абзаца, в единую строку;

У автора ежемесячно пишутся различные макросы, с которыми он с удовольствием делится с читателями.

II. Преимущества и новизна данных макросов

Данные макросы были созданы или адаптированы под свои нужды техническим писателем Юрием А. Денисовым за период с 2011 г. по 2012 г. Преимущество этих макросов состоит в том, что с их помощью можно запускать полезные макросы с алгоритмами искусственного интеллекта, не владея «универсальными» языками программирования, такими как Си, C++ и Visual Basic. Адаптировать под свои нужды эти макросы сможет любой пользователь, освоивший школьный курс информатики.

Не смотря на то, что технология макросов достаточно стара, она и сегодня находит широкое применение при обработке текстов в текстовых процессорах, редакторах и т.п.

III. Лицензионное соглашение

Данные макросы распространяются по публичной лицензии GPL v.2 (open source) и является бесплатными для некоммерческого использования.

IV. Описание макросов

На 17.12.2011 доступны следующие макросы:

  • noneol — уничтожает пустые строки в файлах;
  • singlstr — переводит абзац текста, разбитый построчно, в единый абзац одной строкой. При этом абзацы разделяются пустыми строками (реализовано для Microsoft Word);
  • spec_c01 – заменяет двойные кавычки (") в русском тексте на открывающиеся и закрывающиеся «русские» кавычки (ёлочки, лапки), двойной дефис – на тире, а повторяющиеся три точки – на многоточие;

V. Документация для макросов

Документация к макросам расположена в архиве вместе с макросами.

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

VI. Системные требования

Для запуска данных макросов к системе предъявляются следующие требования:

 a) Для макросов VBA MS Word:

  • IBM PC – совместимый компьютер с процессором Pentium III и 512 Мб RAM, или лучший;
  • операционная система: Microsoft Windows XP и выше;
  • Программа Microsoft Word из пакета Microsoft Office 2003/2007;

 a) Для макросов VBA Writer:

  • IBM PC – совместимый компьютер с процессором Pentium IV и 1024 Мб RAM, или лучший;
  • операционная система: Microsoft Windows XP и выше;
  • Программа Writer из пакета LibreOffice 3.3 и выше;

VII. Установка макросов

Для установки макросов используйте следующие инструкции:

Скачайте и распакуйте архив с текстами макросов в любую папку (например, «Мои документы». Далее…

 a) VBA for MS Word (ручная установка);

  1. Перейдите в каталог: с распакованными файлами;
  2. Откройте файл «Word.htmlmain.vba.txt»;
  3. Создайте «пустой» документ Microsoft Word;
  4. Откройте пункт системного меню: «Сервис» —> «Макросы»;
  5. Откройте диалоговое окно: «Макросы», и выберите из пункта «Макросы из» значение: «Normal.dot (общего шаблона»;
  6. Перейдите к тексту файла из п. 2, и найдите следующий макрос в этом файле (он начинается со слов «Sub «имя макроса»)
  7. Запомните это имя макроса, и скопируйте текст макроса в буфер обмена;
  8. Перейдите в окно макросов, создайте новый макрос с именем из пункта 7 «Нажав в диалоговом окне кнопку: «Создать», и вставьте в открывшееся окно текст из буфера обмена;
  9. Сохраните макрос, и перейдите к пункту 6;
  10. Закройте все открытые Вами окна.

 b) VBA for Writer (ручная установка);

  1. Перейдите в каталог: с распакованными файлами;
  2. Откройте файл «swriter.vba.txt»;
  3. Создайте «пустой» документ Libre Office Writer;
  4. Откройте пункт системного меню: «Сервис» —> «Макросы» —> «Управление макросами» —> «LibreOffice Basic…»;
  5. В диалоговом окне выберите из дерева слева пункты: «Мои макросы» «Standard» «Module 1», или, при необходимости, создайте его;
  6. Перейдите к тексту файла из п. 2, и найдите следующий макрос в этом файле (он начинается со слов «Sub «имя макроса»)
  7. Запомните это имя макроса, и скопируйте текст макроса в буфер обмена;
  8. Перейдите в окно макросов, создайте новый макрос с именем из пункта 7 (набрав его имя в строке, расположенной в левом верхнем углу, и нажав кнопку «Создать»), и вставьте в открывшееся окно текст из буфера обмена;
  9. Сохраните макрос, и перейдите к пункту 6;
  10. Закройте все открытые Вами окна.

 c) Шаблоны MS Word с макросами (без программы установки);

  1. Перейдите в папку с распакованными шаблонами Microsoft Word 2003/2007;
  2. Переименуйте (на всякий случай) файлы: «Normal.dot», «Normal.dotm», «NormalEmail.dotm», в каталоге «%USERPROFILE%\Application Data\Microsoft\Шаблоны»;
  3. Скопируйте файлы: «Normal.dot», «Normal.dotm», «NormalEmail.dotm», с перезаписью существующих файлов, в каталог: «%USERPROFILE%\Application Data\Microsoft\Шаблоны»;
  4. В результате будут записаны новые шаблоны, с изменёнными стилями и макросами;

VIII. Синтаксис макросов

Для запуска макросов в Microsoft Word необходимо:

  1. В системном меню Microsoft Word выбрать пункты: «Сервис» -> «Макросы»;
  2. В списке найти нужный макрос, выбрать его, а затем кнопку «Выполнить»;

Смотрите также презентацию «VBA.Word.02.ppt»

Для запуска макросов в LibreOffice Writer необходимо:

  1. В системном меню Writer выбрать пункты: «Сервис» -> «Макросы» -> «Выполнить Макрос…»
  2. В списке найти нужный макрос, выбрать его, а затем кнопку «Выполнить»;

Смотрите также презентацию «VBA.swriter.02.ppt»

IX. Download

Скачать макросы:

X. Возможные проблемы

  1. Нарушение логической последовательности при запуске макросов;

    2. См. документацию к макросам;

  2. Конфликт версий;

    3. Автор отмечает, что он создавал и тестировал свои макросы только для версий 2003 и 2007 редактора: Microsoft Word и версии 3.3.4 для редактора LibreOffice Writer. Поэтому эти макросы могут некорректно работать в редакторах Microsoft Word, OpenOffice и LibreOffice Writer других версий. По вопросам получения новых версий этих макросов пишите автору проекта: yudenisov{at}aport2000.ru.

XI. Заключение

Успехов Вам в использование программ! Good Luck! Dankon!

XII. Полезные ссылки и использованная литература

 1. Ахметов К.С., Федоров А.Г. Microsoft Internet Explorer 4.0 для всех. — М.: КомпьютерПресс, 1997. — 336 с. — ил.;

 2. Гайдышев И.П. Решение научных и инженерных задач средствами Excel, VBA и C/C++ — СПб: БХВ-Петербург, 2004, — 512 с.:ил.;

 3. Камминг С. VBA для "чайников" 3-е издание: Пер. с англ. — М: Издательский дом Вильямс, 2001. — 448 с.:ил.;

 4. Слепцова Л.Д. Программирование на VBA. Самоучитель. — М: Издательский дом Вильямс, 2004. — 384.:ил;.

 

Назад…   К содержанию…   Далее…

Copyright © Юрий А. Денисов
(yudenisov)
2006-2012. Все права защищены

Версия 0.2. Alpha от 19.04.2012

Гостевая книга Обсуждение работ в блоге. Отправить E-mail Автору проекта.

CopyLeft (L) by Юрий А. Денисов
(yudenisov)
Hosted by uCoz