Часто настройка HTML тегов в статье занимает практически столько же времени, сколько и сам процесс написания. Особенно это становится актуальным для материалов со сложной разметкой, которые включают множество заголовков, списков, цитат и различных стилей.
Существенно упростить процесс подготовки текстов для размещения на веб-сайте способны макросы Word, которые могут выполнять автоматизацию любых задач. Для разработки такого макроса необходимо знание языка программирования Visual Basic for Applications (VBA), который встроен не только в программы от MicroSoft, но и в множество других приложений. Тем не менее, поскольку VBA является упрощенной версией Visual Basic, любой пользователь может легко начать писать простые скрипты.
Также облегчить процесс создания VBA макроса можно благодаря функции записи всех действий пользователя, которая автоматически конвертирует их в код программы. Поэтому для разработки простейшего макроса потребуется всего лишь:
- выбрать пункт меню Вид –> Макросы –> Запись макроса;
Кликнув по пункту меню Вид –> Макросы –> Запись макроса, вы откроете окно со список всех имеющихся у вас макросов и сможете запустить их, отредактировать или удалить.
Расстановка тегов абзаца в Word при помощи VBA макроса
Начальная установка тегов
в тексте перед его публикацией необходима при использовании различных CMS. Не все редакторы, встроенные в веб-движки, способны автоматически распознавать абзацы в статье и вставлять в них тексты. Часто от копирайтеров также требуют использовать HTML-теги для того, чтобы процесс размещения статьи занимал у заказчика минимум времени.
Самый простой способ автоматизировать вставку HTML-тега в Word – это использование опции автозамены (окошко «Найти и заменить»), вызываемой сочетанием клавиш Ctrl+H.
В поле «Найти» вводим комбинацию ^p, а в поле «Заменить на» Вводим ^p и нажимаем кнопку «Заменить все». Word автоматически добавит нужные HTML-теги в документ.
Для того чтобы создать макрос, необходимо начать его запись перед выполнением всех требуемых шагов.
- Включаем запись макроса.
- Выполняем замену абзацев на HTML-теги в тексте при помощи опции «Заменить все».
- Останавливаем запись.
Теперь для добавления тега в публикацию вам нужно всего лишь нажать одну кнопку для активации макроса.
Готовый код (помимо простановки тегов, он изменяет шрифт текста на Times New Roman и устанавливает размер 11):
Sub P() ‘ ‘ ‘ Selection.WholeStory Selection.Font.Name="TimesNewRoman" Selection.Font.Size=11 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting WithSelection.Find .Text="^p" .Replacement.Text="
^p
" .Forward=True .Wrap=wdFindAsk .Format=False .MatchCase=False .MatchWholeWord=False .MatchWildcards=False .MatchSoundsLike=False .MatchAllWordForms=False EndWith Selection.Find.ExecuteReplace:=wdReplaceAll Selection.HomeKeyUnit:=wdStory Selection.TypeTextText:="
" Application.Browser.Next Selection.EndKeyUnit:=wdStory Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace End Sub
Учтите, что если в конце вашего текста есть много лишних абзацев, то данный VBA скрипт обязательно заменит их на HTML-теги, поэтому обязательно проверяйте то, как выглядит конец статьи, перед ее непосредственной публикацией на сайте.
Как видите, код интуитивно понятный, и многие команды VBA имеют говорящее название, указывающее на их функцию:
Команда Selection.TypeBackspace обозначение удаление одного символа, стоящего впереди курсора. Она необходима, так как в случае выполнения замены абзацев на HTML-теги
в конце всегда будет находиться лишний открывающий тег .
Продолжим разработку нашего макроса для «Ворда». Давайте сделаем так, чтобы он оборачивал выделенный жирным текст тегами или
Сделать это при помощи автозамены можно так.
В поле «Найти» вставляем текст ( ). В пункте «Формат» выбираем Шрифт –> Полужирный. Ставим галочку в пункте «Подстановочные знаки». В поле «Заменить на» пишем 1. Нажимаем «Заменить все».
У такой опции есть один недостаток: программа расставит обрамляющие HTML-теги не возле вокруг всего «куска» жирного текста, а вокруг каждого слова, следовательно, итоговый код будет очень грязный.
Чтобы исправить эту ошибку, просто заменим на пробел.
Итоговый код (на примере замены на
Sub B() ‘ ‘ ‘ Selection.Find.ClearFormatting Selection.Find.Font.Bold=True Selection.Find.Replacement.ClearFormatting WithSelection.Find .Text="()" .Forward=True .Wrap=wdFindContinue .Format=True .MatchCase=False .MatchWholeWord=False .MatchAllWordForms=False .MatchSoundsLike=False .MatchWildcards=True EndWith Selection.Find.ExecuteReplace:=wdReplaceAll WithSelection.Find .Text = " .Replacement.Text="" .Forward=True .Wrap=wdFindContinue .Format=False .MatchCase=False .MatchWholeWord=False .MatchWildcards=False .MatchSoundsLike=False .MatchAllWordForms=False EndWith Selection.Find.ExecuteReplace:=wdReplaceAll End Sub
Двойные кавычки в коде – это не опечатка, так как именно таким образом осуществляется экранирование кавычек в VBA-скриптах.
Аналогичным способом вы можете дополнить макрос, например, обрамляя курсив тегами #62#47i#60blockquote#60#62.
Автоматическая простановка тегов заголовков
Чтобы автоматически расставить заголовки H1, H2, H3, H4, H5 и H6, необходимо задать для них размер шрифта, отличный от остального текста. Например, если вы пишите статью 12 размером, можно выделять заголовки 16 размером. Тогда опция автозамены будет выглядеть так:
1
,
После этого устраняем ненужные «
»
Макрос будет выглядеть следующим образом:
Selection.Find.ClearFormatting Selection.Find.Font.Size=18 Selection.Find.Replacement.ClearFormatting WithSelection.Find .Text="()" .Replacement.Text="
1
" .Forward=True .Wrap=wdFindContinue .Format=True .MatchCase=False .MatchWholeWord=False .MatchAllWordForms=False .MatchSoundsLike=False .MatchWildcards=True EndWith Selection.Find.ExecuteReplace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Font.Size=16 Selection.Find.Replacement.ClearFormatting WithSelection.Find .Text="
" .Replacement.Text="" .Forward=True .Wrap=wdFindContinue .Format=True .MatchCase=False .MatchWholeWord=False .MatchWildcards=False .MatchSoundsLike=False .MatchAllWordForms=False EndWith Selection.Find.ExecuteReplace:=wdReplaceAll EndSub
- Макросы в Microsoft Word
Разработка и раскрутка веб-сайтов
 Макросы в Microsoft Word |
Saved searches
Use saved searches to filter your results more quickly
Cancel Create saved search
Sign up Reseting focus
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window.
Reload to refresh your session.
License
Notifications You must be signed in to change notification settings
Linda-chan/ms-word-macros
master
Перейти к файлу
Folders and files
Word Insert Plain Text
Этот макрос выполняет простую задачу: вставляет текст без форматирования. Если в буфере обмена будет картинка, то макрос вставит само изображение без связанной информации, которую может добавить, например, броузер.
Word Russian Grammar Fix
Этот макрос позволяет побороть баг проверки русской орфографии в Word, когда выбранный набор правил (например, для обычной переписки) не сохраняется при перезапуске программы.
Установка в Normal.dotm
Большинство макросов здесь написаны с расчётом на работу из стандартного шаблона Normal.dot. Однако в версиях Office выше 2003, где стандартный шаблон называется Normal.dotm, возможны проблемы, связанные с работой системы безопасности.
Так, после сохранения такого шаблона и открытия нового документа, основанного на нём, Word покажет шаблон так, как если бы в нём не было никакого кода, и макросы работать не будут. Данное поведение связано с работой системы безопасности. В ряде случаев путь к шаблону Normal.dotm может оказаться исключённым из списка доверенных каталогов.
И чтобы исправить это, придётся добавить этот путь самостоятельно. В разных версиях программы настройки могут выглядеть по-разному, поэтому я опишу процесс иборьбы в общих чертах. Для начала нужно войти в настройки Word и отыскать параметры безопасности. Далее нужно найти раздел вида «Надёжные расположения» и добавить в список надёжных каталогов путь к шаблону Normal.dotm. Например, он может быть таким:
C:Documents and SettingsLindaApplication DataMicrosoftTemplates
Либо так:
C:UsersLindaAppDataRoamingMicrosoftTemplates
Важно убедиться, что в найденном каталоге действительно присутствует файл Normal.dotm. После этого потребуется перезапустить Word. Теперь программе будут доступны все макросы из стандартного шаблона. Внимание! Добавляя каталог со стандартным шаблоном в надёжные расположения, вы делаете систему более уязвимой для макровирусов.
Убедитесь, что в настройках безопасности установлено включение макросов только по запросу или даже отключено совсем. В этом случае снижается опасность инфицирования стандартного шаблона макро вирусами из принесённых невесть откуда документов.
Маленький копирайт
Топ-10 полезных макросов для офисных приложений, которые сэкономят ваше время
В ходе ежедневной деятельности офисных работников часто возникает ситуация, когда требуется многократно выполнять одни и те же операции. Это может включать в себя ввод информации, форматирование документов или осуществление стандартных вычислений. Но что, если эти задачи можно автоматизировать, сэкономив при этом часы трудового времени? Решение простое: нужно применять макросы. В данной статье мы обсудим, что собой представляют макросы для офисных программ, и представим вам десятку самых полезных макросов, которые помогут вам более эффективно и быстро справляться с рутинными задачами.
Что такое макросы для офисных приложений?
Макросы — это последовательности команд и инструкций, которые выполняются автоматически. В Microsoft Office (Excel, Word, PowerPoint и других приложениях) макросы могут быть записаны с помощью встроенных инструментов или написаны с помощью VBA (Visual Basic for Applications). Они позволяют вам автоматизировать однообразные действия и ускорить выполнение задач, что особенно полезно при больших объемах работы.
Зачем использовать макросы?
Сэкономьте время: Автоматизация рутинных задач позволяет вам быстро выполнять повторяющиеся действия.
Снижение ошибок: Макросы помогают минимизировать человеческий фактор, особенно при выполнении однотипных операций.
Упрощение сложных задач: С помощью макросов можно создавать сложные последовательности действий, которые не требуют вашего вмешательства.
Теперь давайте рассмотрим топ-10 макросов, которые могут стать незаменимыми помощниками в вашей работе.
1. Автоматическое форматирование текста в Word
Этот макрос помогает быстро применить стандартное форматирование ко всем документам. Например, вы можете настроить макрос, чтобы он автоматически преобразовывал шрифты, отступы и межстрочный интервал, что существенно ускоряет работу с текстовыми документами.
2. Автоматический расчет в Excel
Вместо того чтобы вручную вводить формулы для расчетов, можно создать макрос, который будет автоматически рассчитывать суммы, проценты или выполнять другие математические операции по заданному шаблону. Это особенно полезно для составления отчетов и обработки больших объемов данных.
3. Создание отчетов с данными из разных источников (Excel)
Этот макрос позволяет собрать данные из разных листов или таблиц и автоматизировать их обработку для создания отчетов. Он подходит для ситуаций, когда необходимо собрать информацию из нескольких источников и составить на основе этих данных сводный отчет.
4. Обработка электронной почты в Outlook
С помощью макроса можно автоматизировать процесс сортировки и обработки входящих писем в Outlook. Например, макрос может автоматически перемещать письма в нужные папки, если они соответствуют определенным критериям (например, по теме или отправителю).
5. Автоматическая вставка стандартных фраз в письма (Outlook)
Тем, кто регулярно применяет одни и те же выражения в своих письмах, будет полезно разработать макрос, позволяющий автоматически вставлять заранее сконструированные шаблоны или фразы в ответах. Это значительно ускоряет процесс общения и экономит время.
6. Автоматическое создание графиков в Excel
Если вам нужно часто создавать графики на основе входных данных, макрос поможет автоматически генерировать графики по определенному шаблону. Он может создавать диаграммы, графики и другие визуальные элементы на основе данных, которые вы вводите.
7. Форматирование данных в таблицах (Excel)
В Excel часто бывает необходимо применить специфическое форматирование к данным в таблицах: выделить ячейки цветом, применить границы, отформатировать числа и даты. С помощью макроса можно создать последовательность, которая будет автоматически применять нужное форматирование.
8. Слияние данных из нескольких документов в Word
Если вам нужно объединить несколько документов в один, можно создать макрос, который будет автоматически вставлять содержимое одного документа в другой, упрощая задачу объединения отчетов или материалов.
9. Автоматическое обновление данных в PowerPoint
Для презентаций в PowerPoint макросы могут обновлять данные на слайдах, такие как диаграммы или таблицы. Это полезно, когда данные обновляются регулярно, а вам нужно просто нажать кнопку, чтобы все слайды отобразили актуальную информацию.
10. Автоматическая отправка отчетов по почте
Если вам нужно регулярно отправлять отчет или данные по электронной почте, макрос может автоматически собирать нужную информацию и отправлять её на указанные адреса, значительно ускоряя процесс рассылки.
Как скачать макросы?
Для большинства пользователей уже существует множество готовых макросов, которые можно скачать и адаптировать под свои нужды. Вы можете найти готовые решения на специализированных форумах и ресурсах, например, на GitHub или в библиотеке Microsoft. Однако не забывайте, что скачанные макросы должны быть проверены на безопасность, чтобы избежать угроз для ваших данных.
Советы по работе с макросами
Создавайте резервные копии файлов: При использовании макросов всегда делайте резервные копии, чтобы избежать потери данных.
Понимание кода: Если вы планируете писать собственные макросы с помощью VBA, важно изучить основы этого языка программирования, чтобы не столкнуться с ошибками.
Охрана: Избегайте активации макросов, полученных от сомнительных источников, чтобы предотвратить риски заражения вашей системы вирусами.
