Создание макросов для упрощения работы с Microsoft Word

Содержание

Статья: Автоматизация действий в приложениях Office 2010 с помощью макросов

Создание макросов для упрощения работы с Microsoft Word
Создание макросов для упрощения работы с Microsoft Word

При работе над документами многие люди сталкиваются с необходимостью производить большое количество повторяющихся действий. Одни выполняются в начале работы, другие – в её процессе, третьи – по окончании. Было бы здорово автоматизировать рутинные операции, не так ли? Это сэкономило бы кучу времени и нервов.

Программы пакета Microsoft Office имеют встроенное средство автоматизации, результатом работы которого являются так называемые «макросы». Обычно это небольшие скрипты, с помощью которых можно выполнять те или иные действия над документами.

Несмотря на то, что в приложения встроен макрорекордер, с его помощью можно записать разве что самые простые действия. Для построения сложных сценариев он малопригоден. Однако его можно рассматривать в качестве справочной системы по VBA (Visual Basic for Application), на котором и будут разрабатываться скрипты.

Область применения макросов достаточно широка и ограничивается разве что возможностями языка программирования Visual Basic. Но мы не будем вдаваться в подробности слишком глубоко, а разберём принципы автоматизации работы с приложениями Microsoft Office 2010.

Даже не имея опыта программирования на Basic, вы легко разберётесь с его синтаксисом. Однако я предполагаю, что вы уже умеете программировать хотя бы на одном из языков на базовом уровне и разбираетесь в основных синтаксических конструкциях.

Получаем доступ к инструментам автоматизации

Прежде всего, давайте разберёмся с использованием макрорекордера. Во всех приложениях, входящих в состав Microsoft Office 2010, средство записи макросов включается одинаково. Давайте посмотрим, как получить к нему доступ в Word 2010.

Откройте окно настроек Word (Файл – Параметры) и отметьте флажком вкладку Разработчик в Настройках ленты (см. рисунок 1).

Рисунок 1 – Включаем вкладку «Разработчик»

Сама вкладка выглядит так, как показано на рисунке 2.

Рисунок 2 – Вкладка «Разработчик»

Здесь большое количество кнопок, однако мы сосредоточимся только на группе Код.

Записываем макрос с помощью макрорекордера

Давайте нажмём кнопку Запись макроса группы Код. Эта кнопка также продублирована в строке состояния Word (появляется после включения вкладки) – см. рисунок 3.

Рисунок 3 – Панель состояния Word 2010

После нажатия на кнопку откроется диалоговое окно (см. рисунок 4), где вы можете:

  • задать своему будущему макросу имя, краткое описание,
  • сделать его доступным для всех документов или только для текущего,
  • сделать быстрый вызов по кнопке на панели инструментов или по комбинации клавиш.

Единственное замечание здесь следует сделать насчёт имени макроса – оно не должно содержать пробелов и спецсимволов. Старайтесь обойтись только буквами и цифрами (причём с цифры начинать также нельзя).

Рисунок 4 – Окно «Запись макроса»

Оставим пока в стороне кнопки и клавиши быстрого вызова и просто нажмём ОК.

Кнопка записи макроса в строке состояния изменит свой вид на значок Стоп , а возле курсора появится изображение аудиокассеты. Это говорит о том, что запись началась. Теперь вам просто нужно выполнить действия, которые требуются для достижения результата.

Спешить не нужно, поскольку в макрос не записывается продолжительность вашей работы. В нём будет представлен только результат. Учтите только, что в процессе записи вам будет недоступно управление курсором с помощью мыши.

И это правильно, поскольку отследить такие перемещения очень сложно.

В качестве учебного примера давайте создадим «фонарь» документа.

«Фонарём» называют элемент, содержащий сведения о документе и его создателе, размещаемый на последней странице. Можно сказать, что это аналог электронных свойств, хотя, пожалуй, именно электронные свойства являются аналогом «фонаря».

После выполнения нужных действий (ввода текста) нажмите на кнопку Стоп . Вам не будет выдано никаких сообщений, но можете не сомневаться, что запись завершилась успешно. Чтобы убедиться в этом, нажмите кнопку Макросы на вкладке Разработчик.

Рисунок 5 – Список доступных макросов

В окне, изображённом на рисунке 5, будут перечислены все доступные макросы (пока у нас только один). Запустите его, дважды щёлкнув по имени в списке или нажав на кнопку Выполнить. Вы увидите, что действия выполняются в точности так, как вы их записали.

Редактирование макроса

Всё в том же окне макросов выделите нужную строку и нажмите кнопку Изменить. Откроется окно редактора Visual Basic for Applications (см. рисунок 6).

Конечно, этот редактор не очень удобен и его внешний вид и функционал не меняется уже достаточно давно (в отличие от Visual Studio, например), но и с его помощью вы можете писать скрипты.

К тому же он входит в состав пакета Microsoft Office, а Visual Studio Professional нужно приобретать отдельно за немалую сумму.

Рисунок 6 – Окно редактора Visual Basic for Applications

Слева мы видим навигатор проекта и окно свойств. Пока мы только учимся писать макросы, навигатор нам не потребуется – всё уместится в одну функцию.

Справа – большое окно кода. Не обращайте пока внимания на раскрывающиеся списки над ним, в малых проектах можно обойтись и без них.

Давайте посмотрим на код, созданный макрорекордером.

Sub ИмяМакроса()End Sub

Эти строки формируют функцию с определённым именем, а весь код располагается между ними.

Источник: //coutty.wordpress.com/2010/07/17/%D1%81%D1%82%D0%B0%D1%82%D1%8C%D1%8F-%D0%B0%D0%B2%D1%82%D0%BE%D0%BC%D0%B0%D1%82%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D1%8F-%D0%B4%D0%B5%D0%B9%D1%81%D1%82%D0%B2%D0%B8%D0%B9-%D0%B2-%D0%BF%D1%80%D0%B8%D0%BB/

Макросы и функции в Word для быстрого форматирования

Создание макросов для упрощения работы с Microsoft Word

Макросы в Word — это такая полезная штука, которую просто обязан знать каждый, кто много работает с текстами.

Предысторию написания данной статьи, а также ее полезность можно оценить по видеоролику.

Макросы — теория

Теперь немного теории.

Как известно, в текстовом редакторе Word есть очень полезная функция «Найти и заменить« (вызывается через сочетание клавиш Ctrl+H или меню «Правка» -> «Заменить…»), которой, к сожалению, пользуются не так часто. Но еще реже используют данную функцию в режиме «Подстановочные знаки«.

А между тем данное умение может принести неоценимую пользу. Свое знакомство с подстановочными знаками и их изучение можно начать со статьи Сергея Хозяинова (будет полезна для новичков).

Я же хочу рассказать о более конкретных случаях применения этого знания, а именно: использование замены с помощью подстановочных знаков и форматирование текста в макросах.

Макросы — это такие полезные штуки, которые позволяют автоматизировать часто выполняемые операции (в случае примера на видео, это форматирование текста). О способах записи и создания макросов можно найти тысячи статей на просторах Интернета.

[attention type=yellow]
Нас же будет интересовать вариант, при котором макрос записывается вручную во встроенном в Word редакторе Visual Basic. Суть использования макросов мною основана на принципе конструктора: макрос состоит из набора кирпичиков-функций, которые заранее прописаны и могут размещаться в любой требуемой последовательности.
[/attention]

Каждая же из функций является действием, либо набором действий, она имеет свое уникальное имя. В макросе же надо лишь указать имя функции для ее вызова.

Макросы — практика

Мой список функций »

Function Tire()‘заменяет дефис в начале абзаца на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p- ».Replacement.Text = «p= ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tire2()‘заменяет дефис окруженный пробелами на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = » — ».Replacement.Text = » = ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.

MatchSounds = False.MatchAllWordForms = False.Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Defis()‘заменяет тире в начале абзаца на дефисActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p=».Replacement.Text = «p-».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.

[attention type=green]
MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.
[/attention]

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Prob()‘заменяет множественные пробелы на одиночный‘удаляет множественные и одиночные пробелы в начале абзаца‘удаляет множественные и одиночные пробелы в конце абзаца‘удаляет знаки абзаца идущие до текста в начале документа‘и знаки абзаца идущие после текста в конце документаActiveDocument.Content.Find.ClearFormattingActiveDocument.

Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.MatchWildcards = False.Execute «w», , , , , 0, , , 0, » «, 2.Execute «pw», , , , 0, , , , 0, «p», 2.Execute «wp», , , , 0, , , , 0, «p», 2End WithIf ActiveDocument.Paragraphs.Count > 1 ThenDo While ActiveDocument.Paragraphs.Last.Range.Text = Chr(13) And _ActiveDocument.Paragraphs.Count > 1ActiveDocument.Paragraphs.Last.

Range.DeleteLoopEnd IfSelection.HomeKey wdStoryWhile Selection.Paragraphs.First.Range.Characters.Count = 1Selection.Paragraphs.First.Range.DeleteWendEnd FunctionFunction Format()‘весь текст делает 14 размером TimesNewRoman‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Times New Roman»ActiveDocument.Content.Font.Size = 14ActiveDocument.Content.ParagraphFormat.

[attention type=red]
LineSpacing = LinesToPoints(1.5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Format2()‘весь текст делает 11 размером Arial‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Arial»ActiveDocument.Content.Font.Size = 11ActiveDocument.Content.ParagraphFormat.LineSpacing = LinesToPoints(1.
[/attention]

5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Zagol()‘делает заголовок (первый абзац) документа жирным‘и выравнивает его по центруActiveDocument.Paragraphs(1).Range.SelectSelection.Font.Bold = TrueSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSelection.

HomeKey wdStoryEnd FunctionFunction Symb()‘Подсчитывает количество символов в документе‘и выводит сообщениеspacecount = ActiveDocument.Content.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)MsgBox «В тексте содержится символов (включая пробелы) — » & spacecount & » »End FunctionFunction Krasn()‘Делает красный шрифт у выделенного словаSelection.Font.

Color = wdColorRedEnd FunctionFunction Intjyr()‘Выделяет жирным все вопросы «И:»ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(00130013И:)(*)(0013)».MatchWildcards = True.Forward = True.Replacement.Text = «123».Replacement.Font.Bold = True.

[attention type=yellow]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction One_to_Two()‘Разделяет одно предложение на два (перед выполнением курсор ставить после запятой)Selection.TypeBackspaceSelection.TypeText Text:=».»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.
[/attention]

Case = wdTitleSentenceEnd FunctionFunction Two_to_One()‘Склеивает два предложения в одно (перед выполнением курсор ставить после точки)Selection.TypeBackspaceSelection.TypeText Text:=»,»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.Case = wdTitleSentenceEnd FunctionFunction Nimerstr()‘Вставляет нумерацию страниц справа вверхуSelection.Sections(1).Headers(1).PageNumbers.

Add PageNumberAlignment:= _wdAlignPageNumberRight, FirstPage:=TrueEnd FunctionFunction MastifTime()‘Находит и заменяет тайм-коды в обычном формате (чч:мм:сс), на формат‘требуемый для Мастифа (чч-мм-сс)ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(0013)(([0-9]@:[0-9]@:[0-9]@))».MatchWildcards = True.

Forward = True.Replacement.Text = «12».Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «:([0-9]@):».MatchWildcards = True.Forward = True.Replacement.Text = «-1-».

[attention type=green]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Troetoch()‘Заменяет три точки идущие подряд на знак троеточияActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «…».Replacement.Text = «…».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.
[/attention]

MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tehnik()‘Ищет в тексте технические надписи в скобках‘если они прописаны без точки, то перед закрывающей скобкой ставится точка,‘если они написаны (случайно) не курсивом, то выделяются имDim MyCollection As New CollectionWith MyCollection.Add («Аплодисменты»).Add («Говорят одновременно»).Add («Дефект записи»).Add («Дефект звука»).Add («Смена кадра»).Add («Обрыв записи»).Add («Техническая съемка»).Add («Техническая реплика»).Add («Технический разговор»).Add («Конец просмотра видеоролика»).Add («Начало просмотра видеоролика»).Add («Просмотр видеоролика»).Add («Возобновление тайм-кода»).Add («Остановка тайм-кода»).Add («Смена тайм-кода»).Add («Смех»).

Add («Смеется»).Add («Кашель»).Add («Кашляет»)End WithDim i As IntegerFor i = 1 To MyCollection.CountActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «))».MatchWildcards = True.Forward = True.Replacement.Text = «(1.)».Replacement.Font.Italic = True.

Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «.))».MatchWildcards = True.Forward = True.Replacement.Text = «(1)».Replacement.Font.Italic = True.Execute Replace:=wdReplaceAllEnd WithNext iEnd FunctionSub Zamena()‘ Комплекс последовательных функций при форматировании работ всех видов кроме Первого канала.ProbTire2TireTroetochNimerstrTehnikSymbEnd FunctionSub Zamena2()‘ Комплекс последовательных функций при форматировании работ Первого канала.ProbDefisTire2TroetochNimerstrTehnikSymbEnd FunctionSub ФОРМАТ()FormatProbTire2TireTroetochIntjyrTehnikNimerstrZagolSymbEnd SubSub МАСТИФ()Format2ProbIntjyrTehnikMastifTimeNimerstrZagolSymb

End Sub

[attention type=red]
Прописав это и сохранив в шаблоне «Normal.dot« можно получить доступ к этим макросам из любого документа. Вызывается окно выбора макросов горячей клавишей Alt+F8.
[/attention]

Я предпочитаю использовать кнопки на панели инструментов. Поместить на нее кнопку и привязать к ней макрос очень легко. Об этом доступно написано в данной статье.

Источник: //dvorkin.by/macros/

Как создать макросы в Word?

Создание макросов для упрощения работы с Microsoft Word

Большинство начинающих пользователей, которые только приступили к изучению компьютера в целом и освоению программы Word в частности, не знают, что такое макрос. Причем полагают, что макрос представляет собой довольно сложную и невыполнимую задачу. Но на самом деле макрос — это очень простая и удобная вещь, пользоваться которой должен уметь любой юзер.

Что такое макрос и для чего он используется?

Макрос представляет собой инструмент в программе Ворд, который позволяет запоминать какие-либо определенные задачи и действия, а потом в дальнейшем автоматически их выполнять.

Он является набором команд, при помощи которых можно автоматизировать выполнение повторяющихся действий.

Такой элемент является очень важным и нужным, особенно для тех, кто привык экономить свое время.

Макрос в программе Ворд может использоваться для следующих целей:

  1. Для ускорения процесса обработки текста. В частности, с помощью этого элемента можно быстро заполнить требуемую область либо отформатировать содержимое документа.
  2. Для того чтобы объединить несколько команд. Согласитесь, создавать табличную форму в Ворд и потом еще наполнять ее содержимым довольно проблематично. Такого рода инструмент позволит быстро создать нужный параметр и в дальнейшем просто вставить его в требуемое место.
  3. Для того чтобы максимально упростить доступ к всевозможным параметрам, которые разбросаны в разных диалоговых окнах. Пользователи инструмента Ворд наверняка знают, как сложно порой отыскать требуемый элемент из-за обилия различных многоуровневых меню. Подобный компонент поможет заметно упростить эту задачу.
  4. Для того чтобы автоматизировать обработку тех действий, которые являются весьма сложными и рутинными. Макросы в Ворд умеют доводить до автоматизма те параметры, на которые, казалось бы, уходит очень много драгоценного времени.

Как создать макрос?

Естественно, чтобы воспользоваться этим инструментом в Word, его нужно вначале создать. Этот процесс не несет в себе много сложностей, поэтому справиться с ним сможет абсолютно любой пользователь.

Первый вариант — это создание подобного элемента при помощи специального средства для создания макроса. Оно может быть как встроено в Word, так и взято с каких-либо сторонних источников.

Следует отметить, что этот пункт является довольно небезопасным, ведь в макросах, скачанных с интернета, запросто могут находиться вирусы, уничтожающие и крадущие важную для пользователя информацию.

Поэтому прежде чем выполнять найденный элемент в Word, следует убедиться, что он чист от различного рода недоброжелательных элементов. Для этого просто нужно просканировать его антивирусом.

Второй вариант — это создать элемент такого рода для Word путем использования специального программного кода, пишущегося на языке под названием Visual Basic.

Для этой цели необходимо предварительно обзавестись специальным редактором, который носит точно такое же название, как и сам язык программирования кода.

[attention type=yellow]
Нужно сказать о том, что этот пункт достаточно сложен и вряд ли подойдет для рядового пользователя.
[/attention]

Есть возможность провести процесс создания макросов в Word путем комбинирования вышеприведенных методик.

В результате получится стандартный элемент, который затем можно будет отредактировать и улучшить при помощи специального кода.

Однако следует знать, что этот пункт, как и предыдущий, подходит лишь для опытных пользователей. Ведь для создания такого инструмента потребуются немалые знания в программировании.

[attention type=green]
Для создания макросов в редакторе MS Office Word следует выделить фрагмент, для которого будет создаваться макрос.
[/attention]

Потом надо войти в меню «Вид — Макросы — Запись макроса», выполнить необходимые действия, которые надо записать, после чего выполняется остановка записи макроса.

Для того чтобы его использовать, необходимо выделить фрагмент текста, к которому следует его применить, войти в меню «Вид — Макросы — Макросы — Выполнить» и выбрать имя сохраненного макроса.

Как видно, процесс создания подобных элементов не несет в себе каких-либо определенных сложностей. Здесь самое главное — это грамотный и обдуманный подход к делу, который в разы увеличит шансы на успех.

[attention type=red]
Нужно заметить, что макросами могут пользоваться не только те, кому по роду службы необходимо заполнять объемные документы и бланки.
[/attention]

В частности, прибегать к использованию такого рода инструментов могут и обычные пользователи, которым необходимо что-либо напечатать в Ворде, к примеру, какие-либо официальные документы.

Ведь пользуясь подобным инструментом, можно сэкономить довольно большую часть своего времени и наделать намного меньше ошибок, чем при ручном вводе. Ведь, как показывает практика, использование таких элементов сводит на нет возможность ошибиться при последующем заполнении того же шаблона.

Источник: //itguides.ru/soft/word/kak-sozdat-makrosy-v-word.html

Создать макрос в ворд это легко

Создание макросов для упрощения работы с Microsoft Word

В этом уроке Вы узнаете:

  • Что такое Макросы в ворд
  • Как применить макросы в ворд
  • Как записать макрос в ворд

Добрый день дорогие друзья. Сегодня Мы разберем инструмент автоматизации, а именно макрос в ворд, который в некоторых случаях поможет сэкономить достаточное количество времени. Достаточно простая и при этом уникальная вещь при форматировании текста.

Что такое макросы в ворд

Макросы в программе Microsoft Office Word — это набор команд/сочетание клавиш на клавиатуре, сообщающее алгоритм выполнения действий в автоматическом режиме, для достижения результата. Другими словами, это записанная последовательность сочетания команд в единую команду.

Могу привести пример макроса из жизни: ещё совсем недавно в выходной день, кто-нибудь из вашей семьи уходил на рынок за покупками. И для выполнения своей задачи необходимо было пройтись по прилавкам с различным наименованием товара для приобретения мяса, зелени, молочной продукции, бакалеи, хоз.

товаров и т.д. Алгоритм был следующий:

  1. Выйти за покупками
  2. Пройтись по n-количеству продавцов
  3. Доставить купленный товар домой

Сейчас же можно взять и заказать весь товар через интернет/по телефону. Это уже будет процесс с минимальным использования Ваших действий, где Вам необходимо сделать заказ, принять доставку, расплатиться:

  1. Фирма, предоставляющее услуги доставки заказанного Вами товара, наладило взаимодействия между поставщиком товара и услугой транспортировки.
  2. Вы в свою очередь сделали заказ, кликнув по монитору или в приложении в телефоне.

Итог: кто-то выполняет сочетание различных действий за Вас, по вашему заказу.

Вот и в Microsoft Word похожий процесс.

Вы записываете сочетание различных команд в одну команду (вы выступаете в роли той фирмы, которое наладило взаимоотношение), и выводите кнопку этой команды на панель быстрого доступа (простите за тавтологию, просто так понятнее:)) далее Вы нажимает на кнопку, компьютер выполняет записанную последовательность команд и мигом получаете результат с использованием всего одного действия. Это круто;)

Как применить макрос в ворд

Применяются макросы в самых различных задачах по форматированию и структурированию текста. Поверьте, иногда лучше потратить четыре часа на запись макроса, чем два дня на выполнение задачи без макроса.

Ярким примером такого случая является структурирование текста для создание программного обеспечения. А точнее, Вам дают перечень помещений в каком-то огромном здании, и вам необходимо выстроить их иерархию из предоставленных данных.

Но это примеры от среднего уровня и выше, а пока я Вам расскажу и покажу основы, принцип действия макроса на достаточно легком примере.

Как записать макрос в word

Самым легким макросом, с которым мне приходилось встречаться, это создание какого-нибудь символа с использованием шестнадцатеричного кода, например ударение над буквой в ворде.

В данной статье написано как сделать ударение с использованием кода (для ударения этот код — 0301). Переходите по ссылке Ударение над буквой в ворде. 

Но Нам главное понять процедуру создания макроса, так что идеальный пример.

  1. Устанавливаем курсор мышки за буквой, на которую хотим поставить ударение (в слове «года» нам нужно поставить ударение на букву «о»).
  1. Переходим в вкладку «Вид» → раздел «Макросы» →нажимаем «Запись Макроса»
  1. Вводим имя нашему макросу, в поле «Назначить макрос» нажимаем «Кнопке», при желании можно добавить описание (это поле удобно заполнять, когда много макросов, и некоторые из них могут иметь подобные либо редко-встречающиеся названия).
  1. В появившемся окне выделяем создаваемый макрос нажимаем «Добавить» и нажимаем «Ок»
  1. После того, как Вы нажали «Ок» пошла запись макроса. Теперь каждое нажатие клавиши записывается ровно в той же последовательности. Вводим 0301 и нажимаем сочетание клавиш ALT+X
  1. Теперь во вкладке «Вид», в разделе «Макросы» нажимаем на «Макросы» → «Остановить запись»

На этом этапе макрос записался и вынесен на панель быстрого доступа. Теперь, когда Вы в следующий раз захотите поставить ударение, Вам просто потребуется нажать на значок на панели быстрого доступа (это значок стоит по умолчанию, но его можно поменять).

Ворд файл макрос

Вот я и показал, как использовать в ворде файл макроса. Повторю, это самый простой пример, но в следующих уроках я обязательно уделю время какой-нибудь более сложной записи макроса, чтобы расширить понимание этого инструмента в Word.

Все спасибо, если появились вопросы, обязательно задавайте, будем решать его.

Источник: //www.gidprog.ru/sozdat-makros-v-vord-eto-legko/

Виноградненская средняя общеобразовательная школа

Подготовила

учитель информатики

Кусраева Н.А.

2013 год

Тема урока: «Создание макросов в текстовом редакторе»

Сведения об авторе:

Кусраева Нонна Алексеевна

РСО-Алания, Моздокский р-н, МБОУ СОШ с.Виноградное

Учитель информатики

Общая информация

Учебный предмет: Информатика

Класс: 7

Авторская программа к учебникам: Л.Л. Босова, А.Ю. Босова, программа курса «Информатика»

Тема урока: «Создание макросов в текстовом редакторе»

Место урока в структуре учебного занятия: урок в разделе «обработка текстовой информации».

Цели урока:

  • предметныеумение применять макросы при работе с текстовыми документами, формирование представления о компьютере как универсальном устройстве обработки информации, развитие алгоритмического мышления
  • метапредметные – основы ИКТ-компетентности; формирование объектно-ориентированного мышления – способность работать с объектами, объединять отдельные предметы в группу с общим названием, общепредметные навыки обработки информации;
  • личностные – формирование готовности к продолжению обучения с использованием ИКТ, понимание значимости информационной деятельности для современного человека.

Решаемые учебные задачи:

  • систематизировать представления учащихся об этапах создания текстового документа; о возможности автоматизации повторяющихся операций при создании тестового документа;
  • актуализировать имеющиеся умения оформления текстовых документов в соответствии с заданными требованиями.

Тип урока

  • Изучение нового материала.

Ход урока

I. Мотивирование к учебной деятельности

На слайде презентации: кроссворд.

  • Вопрос: Как можно создать кроссворд в текстовом документе?

(использовать таблицу для создания сетки.)

  • Вопрос: Что надо знать при построении таблицы?

(Количество строк и количество столбцов. )

Вопрос: Сколько строк и столбцов?

  • Опишите путь создания таблицы.

(Вставка/Таблица / Вставить таблицу / указать количество строк и столбцов / ОК)

  • Будем считать, что сетка создана. Дальнейшие действия?

( Обрамление ячеек.)

  • Вопрос: Как выполнить это действие?

( Выделить / щелчок ПКМ / Границы и заливка)

  • Вопрос: Какие действия необходимо выполнять многократно?

(Обрамление ячеек)

  • Можно ли как – то упростить эту работу?

Автоматизировать эту рутинную операцию можно, применяя ….. для ответа на этот вопрос необходимо разгадать ключевое слово в кроссворде. (МАКРОС).

– Вопрос: Значит тема нашего урока….. («Создание макросов в текстовом редакторе»).

-Вопрос: цель? (познакомиться с порядком создания макросов). (Сопровождается показом презентации).

II. Способы достижения намеченной цели по построению нового знания (Теоретический материал)

В офисном пакете MS Office существует возможность написания макросов – специальных дополнений выполняющих какие-либо действия на языке программирования Visual Basic. Но не пугайтесь сразу, макрос мы будем делать без программирования, а воспользуемся автоматической записью команд.

В Справке (F1) найдите ответ на вопрос – что обозначает термин МАКРОС.

Термин макрос обозначает возможность воспроизведения последовательности нажатий клавиш (или других элементарных действий), которые приводят к выполнению заранее указанного набора действий.

Это означает, что в текстовом редакторе, как и в некоторых других прикладных программах, например, в электронных таблицах, достаточно один раз записать нужную последовательность действий, а затем, при необходимости, давать компьютеру приказ выполнить эти действия.

Указание даётся через панель инструментов либо назначаются клавиши.

Порядок создания макросов рассмотрим, выполняя Задание 1. (необходимо заранее заготовить файл с текстом на осетинском языке без символа æ; на столах у учащихся распечатки с образцом оформления текста)

III. Первичное применение знаний с целью формирования умений (учащиеся осуществляют поиск решения по плану).

Задание1 . Оформите текст в файле по данному образцу.

    1. Æгас цæут, сывæллæттæ: Зæринæ æмæ Мæдинæ, Янæ æмæ Лёня, Эммæ æмæ Фатимæ. Хорз ахуыр кæнынмæ бæллут.
    2. Лæппутæ цауынц хъæдмæ.
    3. Æз кæсын «Рæстзинад».

Перевод с осетинского языка: 1. Здравствуйте, дети: Зарина и Мадина, Яна и Лёня, Эмма и Фатима. Стремитесь хорошо учиться. 2. Мальчики идут в лес. 3. Я читаю «Растзинад».(название газеты)

В данном задании повторяющимися действиями являются вставка из таблицы символов символа æ .

Создадим макрос для вывода на экран символа æ. Для этого:

Установите курсор перед буквой г.

Выполните команду Вид/Макросы/Запись макроса..

В окне Запись макроса удалите имя, которое предлагает компьютер, и введите новое имя Буква.

Пусть мы собираемся назначить для выполнения макроса клавиши. Щелчок по кнопке Назначить макрос клавишам.

[attention type=yellow]
В комбинациях клавиш можно использовать символьные или функциональные клавиши в сочетании с Alt или Ctrl . Удобнее всего использовать Alt или Ctrl в сочетании с редко используемыми символами «э», «ъ», «ё». Для нашего макроса Буква пусть назначим сочетание Alt + э.
[/attention]

Выполнить команду Назначить / Закрыть.

Начинается запись макроса. А курсор принял вид аудиокассетки со стрелочкой.

Далее необходимо выполнить нужные действия по вставке из таблицы символов символ æ: Вставка / Символ ( шрифт Calibri, дополнительная латиница 1)/æ / вставить / закрыть.

Выполнить команду Остановить запись.

Макрос для вывода изображения символа æ готов. Теперь достаточно устанавливать курсор в нужное место текста и нажимать Alt + э.

IV. Физминутка

Учитель:

1. Учитель дает энергичную команду: «Потянитесь, сядьте прямо! Сплетите кольца рук перед собой. Выверните кисти рук ладонями наружу. С полным вдохом поднимите руки со сплетенными пальцами над головой. С резким выдохом опустите руки». Повторить 2 раза.

[attention type=green]
2. Не поворачивая головы, посмотреть направо и зафиксировать взгляд на счет 1-4. Затем посмотреть вдаль прямо на счет 1-6. Аналогично проводятся упражнения, но с фиксацией взгляда влево, вверх, вниз. Повторить 3-4 раза.
[/attention]

Вернёмся к вопросу о кроссворде.

Какие этапы выполнения кроссворда можно упростить, применив макросы? (Оформление ячеек под слова)

Какие следует создать макросы? (Один – для оформления вертикального блока ячеек, другой – для горизонтального).

V. Практическая работа (применение полученных знаний).

Создание и оформление тематического кроссворда «Компоненты компьютера» 

По горизонтали:

3. Специальная микросхема для управления внешним устройством.

6. Устройство, обеспечивающее выполнение логических и арифметических операций.

10. Жесткий диск.

11. Печатающее устройство.

12. Устройство ручного ввода графических данных, выполненное в виде ручки.

14. Устройство визуального отображения информации.

15. Манипулятор в виде небольшой коробочки.

17. Гибкий (флоппи) диск.

18. Устройство сопряжения компьютера и внешнего устройства.

19. Устройство, с помощью которого изображение считывается по точкам.

По вертикали:

1. Устройство для создания электронной копии с бумажных носителей.

2. Микросхема, обеспечивающая увеличение быстродействия при выполнении арифметических операций.

4. Устройство для вывода графической информации на бумагу, графопостроитель.

5. Ячейка микропроцессора.

7. Обобщённое название устройств для хранения информации.

8. Накопитель на магнитной ленте, заменивший кассетный магнитофон.

9. Устройство, передающее и принимающее информацию по компьютерам сетям.

12. Устройство вывода звуковой информации, колонки.

[attention type=red]
13. Устройство, с помощью которого можно воспроизводить телепередачи на экране монитора.
[/attention]

16. Устройство, обеспечивающее передачу данных и управляющих сигналов между компонентами компьютера.

Порядок выполнения задания

  • Вставить в документ таблицу, в которой количество строк и столбцов соответствует максимальному количеству клеток подготовленного на бумаге кроссворда по горизонтали и по вертикали.
  • Выделив эту таблицу, установить ширину столбцов и высоту строк таким образом, чтобы ячейки получились квадратными.
  • Уберите сетку таблицы (выделить таблицу, щелчок ПКМ – Границы и заливка– Тип границы Нет).
  • Записать в виде макроса оформление блока ячеек по горизонтали:выделить блок ячеек под первое слово по горизонтали;записать макрос. Выполняемые действия: щелчок ПКМ – Границы и заливка– Тип границы Все; установка оформления для всех границ ячеек, затем заливки.
  • Аналогично записать макрос оформления блока ячеек по вертикали.
  • Для оформления кроссворда нужно выделять блоки ячеек и нажимать назначенную для макроса комбинацию клавиш.
  • Выделить полученную сетку кроссворда, установить тип шрифта и расположение символов в ячейках. Проставить цифры в нужных ячейках.
  • Записать вопросы кроссворда, оформить документ по вашему усмотрению.
  • Сохранить работу в своей папке под именем Кроссворд.

VI.Подведём итог урока

  • Что нового вы узнали сегодня на уроке?
  • Когда можно применять макросы?
  • Порядок создания макроса с помощью клавиш?

VII. Рефлексия

VIII. Домашнее задание

  • Знать алгоритм создания макроса.
  • Ответить на вопросы кроссворда.

Список используемых ресурсов:

  1. Материалы с интернет-сайтов rusedu.ru, itn.ru, festival.1september.ru, klyaksa.net.

Источник: //multiurok.ru/files/sozdaniie-makrosov-v-ms-word-konspiekt-uroka-priezientatsiia.html

Макросы в Microsoft Word

Создание макросов для упрощения работы с Microsoft Word

Нередко простановка HTML тегов в статье занимает почти столько же времени, сколько ее написание. Особенно часто такая проблема возникает со статьями со сложной версткой, включающей множество заголовков, списков, цитат и стилей.

Заметно облегчить работу по подготовке текстов к публикации на web-сайте помогут макросы Word, которые могут автоматизировать любую задачу.

Для написания такого макроса требуется знание языка программирования Visual Basic for Applications (VBA), встроенного не только в линейку программных пакетов от MicroSoft, но и многие другие приложения.

Однако, благодаря тому, что VBA представляет собой упрощенную версию Visual Basic, начать писать простейшие скрипты может любой пользователь.

Кроме того, упростить задачу по написанию VBA макроса поможет возможность записи всех действий пользователя, которые автоматически преобразуются в программный код. Таким образом, чтобы создать простейший макрос, достаточно:

  • выбрать пункт меню Вид –> Макросы –> Запись макроса;
  • дать ему любое имя;
  • выполнить необходимые действия, которые вы хотите автоматизировать;
  • остановить запись (Вид –> Макросы –>Остановить запись).

Кликнув по пункту меню Вид –> Макросы –> Запись макроса, вы откроете окно со список всех имеющихся у вас макросов и сможете запустить их, отредактировать или удалить.

Расстановка тегов абзаца

в Word при помощи VBA макроса

Предварительная простановка тегов

в тексте перед его размещением требуется при работе со многими CMS. Далеко не все встроенные в web-движки редакторы могут автоматически опознать абзацы в статье и автоматически вставить туда тексты. Кроме того, нередко разбивку текста HTML-тегами требуют и от копирайтеров, чтобы размещение статьи занимало у заказчика как можно меньше времени.

Самый простой способ автоматизировать вставку HTML-тега в Word – это использование опции автозамены (окошко «Найти и заменить»), вызываемой сочетанием клавиш Ctrl+H.

Вставляем в строку «Найти» сочетание p, а в строку «Заменить на»

p

и жмем на кнопку «Заменить все». Word автоматически проставит необходимые HTML-теги в тексте.

Чтобы перевести данное действие в макрос, запустим его запись перед выполнением всех действий.

  1. Включаем запись макроса.
  2. Выполняем замену абзацев на HTML-теги в тексте при помощи опции «Заменить все».
  3. Останавливаем запись.

Теперь, чтобы проставить тег

в статье, вам будет достаточно нажать единственную кнопку запуска макроса.

Готовый код (помимо простановки тегов, он изменяет шрифт текста на Times New Roman и устанавливает размер 11):

Sub P()'''Selection.WholeStorySelection.Font.Name=”TimesNewRoman”Selection.Font.Size=11Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”p”.Replacement.Text=”

p

“.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.

HomeKeyUnit:=wdStorySelection.TypeTextText:=”

“Application.Browser.NextSelection.EndKeyUnit:=wdStorySelection.TypeBackspaceSelection.TypeBackspaceSelection.TypeBackspaceSelection.

TypeBackspace

End Sub

[attention type=yellow]
Учтите, что если в конце вашего текста есть много лишних абзацев, то данный VBA скрипт обязательно заменит их на HTML-теги, поэтому обязательно проверяйте то, как выглядит конец статьи, перед ее непосредственной публикацией на сайте.
[/attention]

Как видите, код интуитивно понятный, и многие команды VBA имеют говорящее название, указывающее на их функцию:

  • Selection.Find.Replacement.ClearFormatting – заменить в выбранном тексте,
  • .Text – текст, который нужно найти;
  • .Replacement.Text – текст для замены.

Команда Selection.TypeBackspace обозначение удаление одного символа, стоящего впереди курсора. Она необходима, так как в случае выполнения замены абзацев на HTML-теги

в конце всегда будет находиться лишний открывающий тег

.

Продолжим писать наш макрос для «Ворда». Пусть он обрамляет тегами или или текст, выделенный жирным.

Сделать это при помощи автозамены можно так.

В поле «Найти» вставляем текст (). В пункте «Формат» выбираем Шрифт –> Полужирный. Ставим галочку в пункте «Подстановочные знаки». В поле «Заменить на» пишем \1. Нажимаем «Заменить все».

[attention type=green]
У такой опции есть один недостаток: программа расставит обрамляющие HTML-теги не возле вокруг всего «куска» жирного текста, а вокруг каждого слова, следовательно, итоговый код будет очень грязный.
[/attention]

Чтобы исправить эту ошибку, просто заменим на пробел.

Итоговый код (на примере замены на ):

Sub B()'''Selection.Find.ClearFormattingSelection.Find.Font.Bold=TrueSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”\1.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.

MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text = “”.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.

ExecuteReplace:=wdReplaceAll

End Sub

[attention type=red]
Двойные кавычки в коде – это не опечатка, так как именно таким образом осуществляется экранирование кавычек в VBA-скриптах.
[/attention]

Аналогичным способом вы можете дополнить макрос, например, обрамляя курсив тегами или .

Автоматическая простановка тегов заголовков

Чтобы автоматически расставить заголовки H1, H2, H3, H4, H5 и H6, необходимо задать для них размер шрифта, отличный от остального текста. Например, если вы пишите статью 12 размером, можно выделять заголовки 16 размером. Тогда опция автозамены будет выглядеть так:

  • в поле «Найти» (),
  • в поле «Заменить на»

    \1

    ,

  • ставим галочку «Подстановочные знаки»,
  • в разделе «Формат» указываем 16 шрифт.

Затем заменяем лишние «

».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

\1

“.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Font.Size=16Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

\1

“.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Font.Size=16Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.htmlСтатья: Автоматизация действий в приложениях Office 2010 с помощью макросов

Создание макросов для упрощения работы с Microsoft Word
Создание макросов для упрощения работы с Microsoft Word

При работе над документами многие люди сталкиваются с необходимостью производить большое количество повторяющихся действий. Одни выполняются в начале работы, другие – в её процессе, третьи – по окончании. Было бы здорово автоматизировать рутинные операции, не так ли? Это сэкономило бы кучу времени и нервов.

Программы пакета Microsoft Office имеют встроенное средство автоматизации, результатом работы которого являются так называемые «макросы». Обычно это небольшие скрипты, с помощью которых можно выполнять те или иные действия над документами.

Несмотря на то, что в приложения встроен макрорекордер, с его помощью можно записать разве что самые простые действия. Для построения сложных сценариев он малопригоден. Однако его можно рассматривать в качестве справочной системы по VBA (Visual Basic for Application), на котором и будут разрабатываться скрипты.

Область применения макросов достаточно широка и ограничивается разве что возможностями языка программирования Visual Basic. Но мы не будем вдаваться в подробности слишком глубоко, а разберём принципы автоматизации работы с приложениями Microsoft Office 2010.

Даже не имея опыта программирования на Basic, вы легко разберётесь с его синтаксисом. Однако я предполагаю, что вы уже умеете программировать хотя бы на одном из языков на базовом уровне и разбираетесь в основных синтаксических конструкциях.

Получаем доступ к инструментам автоматизации

Прежде всего, давайте разберёмся с использованием макрорекордера. Во всех приложениях, входящих в состав Microsoft Office 2010, средство записи макросов включается одинаково. Давайте посмотрим, как получить к нему доступ в Word 2010.

Откройте окно настроек Word (Файл – Параметры) и отметьте флажком вкладку Разработчик в Настройках ленты (см. рисунок 1).

Рисунок 1 – Включаем вкладку «Разработчик»

Сама вкладка выглядит так, как показано на рисунке 2.

Рисунок 2 – Вкладка «Разработчик»

Здесь большое количество кнопок, однако мы сосредоточимся только на группе Код.

Записываем макрос с помощью макрорекордера

Давайте нажмём кнопку Запись макроса группы Код. Эта кнопка также продублирована в строке состояния Word (появляется после включения вкладки) – см. рисунок 3.

Рисунок 3 – Панель состояния Word 2010

После нажатия на кнопку откроется диалоговое окно (см. рисунок 4), где вы можете:

  • задать своему будущему макросу имя, краткое описание,
  • сделать его доступным для всех документов или только для текущего,
  • сделать быстрый вызов по кнопке на панели инструментов или по комбинации клавиш.

Единственное замечание здесь следует сделать насчёт имени макроса – оно не должно содержать пробелов и спецсимволов. Старайтесь обойтись только буквами и цифрами (причём с цифры начинать также нельзя).

Рисунок 4 – Окно «Запись макроса»

Оставим пока в стороне кнопки и клавиши быстрого вызова и просто нажмём ОК.

Кнопка записи макроса в строке состояния изменит свой вид на значок Стоп , а возле курсора появится изображение аудиокассеты. Это говорит о том, что запись началась. Теперь вам просто нужно выполнить действия, которые требуются для достижения результата.

Спешить не нужно, поскольку в макрос не записывается продолжительность вашей работы. В нём будет представлен только результат. Учтите только, что в процессе записи вам будет недоступно управление курсором с помощью мыши.

И это правильно, поскольку отследить такие перемещения очень сложно.

В качестве учебного примера давайте создадим «фонарь» документа.

«Фонарём» называют элемент, содержащий сведения о документе и его создателе, размещаемый на последней странице. Можно сказать, что это аналог электронных свойств, хотя, пожалуй, именно электронные свойства являются аналогом «фонаря».

После выполнения нужных действий (ввода текста) нажмите на кнопку Стоп . Вам не будет выдано никаких сообщений, но можете не сомневаться, что запись завершилась успешно. Чтобы убедиться в этом, нажмите кнопку Макросы на вкладке Разработчик.

Рисунок 5 – Список доступных макросов

В окне, изображённом на рисунке 5, будут перечислены все доступные макросы (пока у нас только один). Запустите его, дважды щёлкнув по имени в списке или нажав на кнопку Выполнить. Вы увидите, что действия выполняются в точности так, как вы их записали.

Редактирование макроса

Всё в том же окне макросов выделите нужную строку и нажмите кнопку Изменить. Откроется окно редактора Visual Basic for Applications (см. рисунок 6).

Конечно, этот редактор не очень удобен и его внешний вид и функционал не меняется уже достаточно давно (в отличие от Visual Studio, например), но и с его помощью вы можете писать скрипты.

К тому же он входит в состав пакета Microsoft Office, а Visual Studio Professional нужно приобретать отдельно за немалую сумму.

Рисунок 6 – Окно редактора Visual Basic for Applications

Слева мы видим навигатор проекта и окно свойств. Пока мы только учимся писать макросы, навигатор нам не потребуется – всё уместится в одну функцию.

Справа – большое окно кода. Не обращайте пока внимания на раскрывающиеся списки над ним, в малых проектах можно обойтись и без них.

Давайте посмотрим на код, созданный макрорекордером.

Sub ИмяМакроса()End Sub

Эти строки формируют функцию с определённым именем, а весь код располагается между ними.

Источник: //coutty.wordpress.com/2010/07/17/%D1%81%D1%82%D0%B0%D1%82%D1%8C%D1%8F-%D0%B0%D0%B2%D1%82%D0%BE%D0%BC%D0%B0%D1%82%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D1%8F-%D0%B4%D0%B5%D0%B9%D1%81%D1%82%D0%B2%D0%B8%D0%B9-%D0%B2-%D0%BF%D1%80%D0%B8%D0%BB/

Макросы и функции в Word для быстрого форматирования

Создание макросов для упрощения работы с Microsoft Word

Макросы в Word — это такая полезная штука, которую просто обязан знать каждый, кто много работает с текстами.

Предысторию написания данной статьи, а также ее полезность можно оценить по видеоролику.

Макросы — теория

Теперь немного теории.

Как известно, в текстовом редакторе Word есть очень полезная функция «Найти и заменить« (вызывается через сочетание клавиш Ctrl+H или меню «Правка» -> «Заменить…»), которой, к сожалению, пользуются не так часто. Но еще реже используют данную функцию в режиме «Подстановочные знаки«.

А между тем данное умение может принести неоценимую пользу. Свое знакомство с подстановочными знаками и их изучение можно начать со статьи Сергея Хозяинова (будет полезна для новичков).

Я же хочу рассказать о более конкретных случаях применения этого знания, а именно: использование замены с помощью подстановочных знаков и форматирование текста в макросах.

Макросы — это такие полезные штуки, которые позволяют автоматизировать часто выполняемые операции (в случае примера на видео, это форматирование текста). О способах записи и создания макросов можно найти тысячи статей на просторах Интернета.

[attention type=yellow]
Нас же будет интересовать вариант, при котором макрос записывается вручную во встроенном в Word редакторе Visual Basic. Суть использования макросов мною основана на принципе конструктора: макрос состоит из набора кирпичиков-функций, которые заранее прописаны и могут размещаться в любой требуемой последовательности.
[/attention]

Каждая же из функций является действием, либо набором действий, она имеет свое уникальное имя. В макросе же надо лишь указать имя функции для ее вызова.

Макросы — практика

Мой список функций »

Function Tire()‘заменяет дефис в начале абзаца на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p- ».Replacement.Text = «p= ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tire2()‘заменяет дефис окруженный пробелами на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = » — ».Replacement.Text = » = ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.

MatchSounds = False.MatchAllWordForms = False.Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Defis()‘заменяет тире в начале абзаца на дефисActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p=».Replacement.Text = «p-».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.

[attention type=green]
MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.
[/attention]

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Prob()‘заменяет множественные пробелы на одиночный‘удаляет множественные и одиночные пробелы в начале абзаца‘удаляет множественные и одиночные пробелы в конце абзаца‘удаляет знаки абзаца идущие до текста в начале документа‘и знаки абзаца идущие после текста в конце документаActiveDocument.Content.Find.ClearFormattingActiveDocument.

Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.MatchWildcards = False.Execute «w», , , , , 0, , , 0, » «, 2.Execute «pw», , , , 0, , , , 0, «p», 2.Execute «wp», , , , 0, , , , 0, «p», 2End WithIf ActiveDocument.Paragraphs.Count > 1 ThenDo While ActiveDocument.Paragraphs.Last.Range.Text = Chr(13) And _ActiveDocument.Paragraphs.Count > 1ActiveDocument.Paragraphs.Last.

Range.DeleteLoopEnd IfSelection.HomeKey wdStoryWhile Selection.Paragraphs.First.Range.Characters.Count = 1Selection.Paragraphs.First.Range.DeleteWendEnd FunctionFunction Format()‘весь текст делает 14 размером TimesNewRoman‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Times New Roman»ActiveDocument.Content.Font.Size = 14ActiveDocument.Content.ParagraphFormat.

[attention type=red]
LineSpacing = LinesToPoints(1.5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Format2()‘весь текст делает 11 размером Arial‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Arial»ActiveDocument.Content.Font.Size = 11ActiveDocument.Content.ParagraphFormat.LineSpacing = LinesToPoints(1.
[/attention]

5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Zagol()‘делает заголовок (первый абзац) документа жирным‘и выравнивает его по центруActiveDocument.Paragraphs(1).Range.SelectSelection.Font.Bold = TrueSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSelection.

HomeKey wdStoryEnd FunctionFunction Symb()‘Подсчитывает количество символов в документе‘и выводит сообщениеspacecount = ActiveDocument.Content.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)MsgBox «В тексте содержится символов (включая пробелы) — » & spacecount & » »End FunctionFunction Krasn()‘Делает красный шрифт у выделенного словаSelection.Font.

Color = wdColorRedEnd FunctionFunction Intjyr()‘Выделяет жирным все вопросы «И:»ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(00130013И:)(*)(0013)».MatchWildcards = True.Forward = True.Replacement.Text = «123».Replacement.Font.Bold = True.

[attention type=yellow]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction One_to_Two()‘Разделяет одно предложение на два (перед выполнением курсор ставить после запятой)Selection.TypeBackspaceSelection.TypeText Text:=».»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.
[/attention]

Case = wdTitleSentenceEnd FunctionFunction Two_to_One()‘Склеивает два предложения в одно (перед выполнением курсор ставить после точки)Selection.TypeBackspaceSelection.TypeText Text:=»,»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.Case = wdTitleSentenceEnd FunctionFunction Nimerstr()‘Вставляет нумерацию страниц справа вверхуSelection.Sections(1).Headers(1).PageNumbers.

Add PageNumberAlignment:= _wdAlignPageNumberRight, FirstPage:=TrueEnd FunctionFunction MastifTime()‘Находит и заменяет тайм-коды в обычном формате (чч:мм:сс), на формат‘требуемый для Мастифа (чч-мм-сс)ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(0013)(([0-9]@:[0-9]@:[0-9]@))».MatchWildcards = True.

Forward = True.Replacement.Text = «12».Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «:([0-9]@):».MatchWildcards = True.Forward = True.Replacement.Text = «-1-».

[attention type=green]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Troetoch()‘Заменяет три точки идущие подряд на знак троеточияActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «…».Replacement.Text = «…».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.
[/attention]

MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tehnik()‘Ищет в тексте технические надписи в скобках‘если они прописаны без точки, то перед закрывающей скобкой ставится точка,‘если они написаны (случайно) не курсивом, то выделяются имDim MyCollection As New CollectionWith MyCollection.Add («Аплодисменты»).Add («Говорят одновременно»).Add («Дефект записи»).Add («Дефект звука»).Add («Смена кадра»).Add («Обрыв записи»).Add («Техническая съемка»).Add («Техническая реплика»).Add («Технический разговор»).Add («Конец просмотра видеоролика»).Add («Начало просмотра видеоролика»).Add («Просмотр видеоролика»).Add («Возобновление тайм-кода»).Add («Остановка тайм-кода»).Add («Смена тайм-кода»).Add («Смех»).

Add («Смеется»).Add («Кашель»).Add («Кашляет»)End WithDim i As IntegerFor i = 1 To MyCollection.CountActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «))».MatchWildcards = True.Forward = True.Replacement.Text = «(1.)».Replacement.Font.Italic = True.

Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «.))».MatchWildcards = True.Forward = True.Replacement.Text = «(1)».Replacement.Font.Italic = True.Execute Replace:=wdReplaceAllEnd WithNext iEnd FunctionSub Zamena()‘ Комплекс последовательных функций при форматировании работ всех видов кроме Первого канала.ProbTire2TireTroetochNimerstrTehnikSymbEnd FunctionSub Zamena2()‘ Комплекс последовательных функций при форматировании работ Первого канала.ProbDefisTire2TroetochNimerstrTehnikSymbEnd FunctionSub ФОРМАТ()FormatProbTire2TireTroetochIntjyrTehnikNimerstrZagolSymbEnd SubSub МАСТИФ()Format2ProbIntjyrTehnikMastifTimeNimerstrZagolSymb

End Sub

[attention type=red]
Прописав это и сохранив в шаблоне «Normal.dot« можно получить доступ к этим макросам из любого документа. Вызывается окно выбора макросов горячей клавишей Alt+F8.
[/attention]

Я предпочитаю использовать кнопки на панели инструментов. Поместить на нее кнопку и привязать к ней макрос очень легко. Об этом доступно написано в данной статье.

Источник: //dvorkin.by/macros/

Как создать макросы в Word?

Создание макросов для упрощения работы с Microsoft Word

Большинство начинающих пользователей, которые только приступили к изучению компьютера в целом и освоению программы Word в частности, не знают, что такое макрос. Причем полагают, что макрос представляет собой довольно сложную и невыполнимую задачу. Но на самом деле макрос — это очень простая и удобная вещь, пользоваться которой должен уметь любой юзер.

Что такое макрос и для чего он используется?

Макрос представляет собой инструмент в программе Ворд, который позволяет запоминать какие-либо определенные задачи и действия, а потом в дальнейшем автоматически их выполнять.

Он является набором команд, при помощи которых можно автоматизировать выполнение повторяющихся действий.

Такой элемент является очень важным и нужным, особенно для тех, кто привык экономить свое время.

Макрос в программе Ворд может использоваться для следующих целей:

  1. Для ускорения процесса обработки текста. В частности, с помощью этого элемента можно быстро заполнить требуемую область либо отформатировать содержимое документа.
  2. Для того чтобы объединить несколько команд. Согласитесь, создавать табличную форму в Ворд и потом еще наполнять ее содержимым довольно проблематично. Такого рода инструмент позволит быстро создать нужный параметр и в дальнейшем просто вставить его в требуемое место.
  3. Для того чтобы максимально упростить доступ к всевозможным параметрам, которые разбросаны в разных диалоговых окнах. Пользователи инструмента Ворд наверняка знают, как сложно порой отыскать требуемый элемент из-за обилия различных многоуровневых меню. Подобный компонент поможет заметно упростить эту задачу.
  4. Для того чтобы автоматизировать обработку тех действий, которые являются весьма сложными и рутинными. Макросы в Ворд умеют доводить до автоматизма те параметры, на которые, казалось бы, уходит очень много драгоценного времени.

Как создать макрос?

Естественно, чтобы воспользоваться этим инструментом в Word, его нужно вначале создать. Этот процесс не несет в себе много сложностей, поэтому справиться с ним сможет абсолютно любой пользователь.

Первый вариант — это создание подобного элемента при помощи специального средства для создания макроса. Оно может быть как встроено в Word, так и взято с каких-либо сторонних источников.

Следует отметить, что этот пункт является довольно небезопасным, ведь в макросах, скачанных с интернета, запросто могут находиться вирусы, уничтожающие и крадущие важную для пользователя информацию.

Поэтому прежде чем выполнять найденный элемент в Word, следует убедиться, что он чист от различного рода недоброжелательных элементов. Для этого просто нужно просканировать его антивирусом.

Второй вариант — это создать элемент такого рода для Word путем использования специального программного кода, пишущегося на языке под названием Visual Basic.

Для этой цели необходимо предварительно обзавестись специальным редактором, который носит точно такое же название, как и сам язык программирования кода.

[attention type=yellow]
Нужно сказать о том, что этот пункт достаточно сложен и вряд ли подойдет для рядового пользователя.
[/attention]

Есть возможность провести процесс создания макросов в Word путем комбинирования вышеприведенных методик.

В результате получится стандартный элемент, который затем можно будет отредактировать и улучшить при помощи специального кода.

Однако следует знать, что этот пункт, как и предыдущий, подходит лишь для опытных пользователей. Ведь для создания такого инструмента потребуются немалые знания в программировании.

[attention type=green]
Для создания макросов в редакторе MS Office Word следует выделить фрагмент, для которого будет создаваться макрос.
[/attention]

Потом надо войти в меню «Вид — Макросы — Запись макроса», выполнить необходимые действия, которые надо записать, после чего выполняется остановка записи макроса.

Для того чтобы его использовать, необходимо выделить фрагмент текста, к которому следует его применить, войти в меню «Вид — Макросы — Макросы — Выполнить» и выбрать имя сохраненного макроса.

Как видно, процесс создания подобных элементов не несет в себе каких-либо определенных сложностей. Здесь самое главное — это грамотный и обдуманный подход к делу, который в разы увеличит шансы на успех.

[attention type=red]
Нужно заметить, что макросами могут пользоваться не только те, кому по роду службы необходимо заполнять объемные документы и бланки.
[/attention]

В частности, прибегать к использованию такого рода инструментов могут и обычные пользователи, которым необходимо что-либо напечатать в Ворде, к примеру, какие-либо официальные документы.

Ведь пользуясь подобным инструментом, можно сэкономить довольно большую часть своего времени и наделать намного меньше ошибок, чем при ручном вводе. Ведь, как показывает практика, использование таких элементов сводит на нет возможность ошибиться при последующем заполнении того же шаблона.

Источник: //itguides.ru/soft/word/kak-sozdat-makrosy-v-word.html

Создать макрос в ворд это легко

Создание макросов для упрощения работы с Microsoft Word

В этом уроке Вы узнаете:

  • Что такое Макросы в ворд
  • Как применить макросы в ворд
  • Как записать макрос в ворд

Добрый день дорогие друзья. Сегодня Мы разберем инструмент автоматизации, а именно макрос в ворд, который в некоторых случаях поможет сэкономить достаточное количество времени. Достаточно простая и при этом уникальная вещь при форматировании текста.

Что такое макросы в ворд

Макросы в программе Microsoft Office Word — это набор команд/сочетание клавиш на клавиатуре, сообщающее алгоритм выполнения действий в автоматическом режиме, для достижения результата. Другими словами, это записанная последовательность сочетания команд в единую команду.

Могу привести пример макроса из жизни: ещё совсем недавно в выходной день, кто-нибудь из вашей семьи уходил на рынок за покупками. И для выполнения своей задачи необходимо было пройтись по прилавкам с различным наименованием товара для приобретения мяса, зелени, молочной продукции, бакалеи, хоз.

товаров и т.д. Алгоритм был следующий:

  1. Выйти за покупками
  2. Пройтись по n-количеству продавцов
  3. Доставить купленный товар домой

Сейчас же можно взять и заказать весь товар через интернет/по телефону. Это уже будет процесс с минимальным использования Ваших действий, где Вам необходимо сделать заказ, принять доставку, расплатиться:

  1. Фирма, предоставляющее услуги доставки заказанного Вами товара, наладило взаимодействия между поставщиком товара и услугой транспортировки.
  2. Вы в свою очередь сделали заказ, кликнув по монитору или в приложении в телефоне.

Итог: кто-то выполняет сочетание различных действий за Вас, по вашему заказу.

Вот и в Microsoft Word похожий процесс.

Вы записываете сочетание различных команд в одну команду (вы выступаете в роли той фирмы, которое наладило взаимоотношение), и выводите кнопку этой команды на панель быстрого доступа (простите за тавтологию, просто так понятнее:)) далее Вы нажимает на кнопку, компьютер выполняет записанную последовательность команд и мигом получаете результат с использованием всего одного действия. Это круто;)

Как применить макрос в ворд

Применяются макросы в самых различных задачах по форматированию и структурированию текста. Поверьте, иногда лучше потратить четыре часа на запись макроса, чем два дня на выполнение задачи без макроса.

Ярким примером такого случая является структурирование текста для создание программного обеспечения. А точнее, Вам дают перечень помещений в каком-то огромном здании, и вам необходимо выстроить их иерархию из предоставленных данных.

Но это примеры от среднего уровня и выше, а пока я Вам расскажу и покажу основы, принцип действия макроса на достаточно легком примере.

Как записать макрос в word

Самым легким макросом, с которым мне приходилось встречаться, это создание какого-нибудь символа с использованием шестнадцатеричного кода, например ударение над буквой в ворде.

В данной статье написано как сделать ударение с использованием кода (для ударения этот код — 0301). Переходите по ссылке Ударение над буквой в ворде. 

Но Нам главное понять процедуру создания макроса, так что идеальный пример.

  1. Устанавливаем курсор мышки за буквой, на которую хотим поставить ударение (в слове «года» нам нужно поставить ударение на букву «о»).
  1. Переходим в вкладку «Вид» → раздел «Макросы» →нажимаем «Запись Макроса»
  1. Вводим имя нашему макросу, в поле «Назначить макрос» нажимаем «Кнопке», при желании можно добавить описание (это поле удобно заполнять, когда много макросов, и некоторые из них могут иметь подобные либо редко-встречающиеся названия).
  1. В появившемся окне выделяем создаваемый макрос нажимаем «Добавить» и нажимаем «Ок»
  1. После того, как Вы нажали «Ок» пошла запись макроса. Теперь каждое нажатие клавиши записывается ровно в той же последовательности. Вводим 0301 и нажимаем сочетание клавиш ALT+X
  1. Теперь во вкладке «Вид», в разделе «Макросы» нажимаем на «Макросы» → «Остановить запись»

На этом этапе макрос записался и вынесен на панель быстрого доступа. Теперь, когда Вы в следующий раз захотите поставить ударение, Вам просто потребуется нажать на значок на панели быстрого доступа (это значок стоит по умолчанию, но его можно поменять).

Ворд файл макрос

Вот я и показал, как использовать в ворде файл макроса. Повторю, это самый простой пример, но в следующих уроках я обязательно уделю время какой-нибудь более сложной записи макроса, чтобы расширить понимание этого инструмента в Word.

Все спасибо, если появились вопросы, обязательно задавайте, будем решать его.

Источник: //www.gidprog.ru/sozdat-makros-v-vord-eto-legko/

Виноградненская средняя общеобразовательная школа

Подготовила

учитель информатики

Кусраева Н.А.

2013 год

Тема урока: «Создание макросов в текстовом редакторе»

Сведения об авторе:

Кусраева Нонна Алексеевна

РСО-Алания, Моздокский р-н, МБОУ СОШ с.Виноградное

Учитель информатики

Общая информация

Учебный предмет: Информатика

Класс: 7

Авторская программа к учебникам: Л.Л. Босова, А.Ю. Босова, программа курса «Информатика»

Тема урока: «Создание макросов в текстовом редакторе»

Место урока в структуре учебного занятия: урок в разделе «обработка текстовой информации».

Цели урока:

  • предметныеумение применять макросы при работе с текстовыми документами, формирование представления о компьютере как универсальном устройстве обработки информации, развитие алгоритмического мышления
  • метапредметные – основы ИКТ-компетентности; формирование объектно-ориентированного мышления – способность работать с объектами, объединять отдельные предметы в группу с общим названием, общепредметные навыки обработки информации;
  • личностные – формирование готовности к продолжению обучения с использованием ИКТ, понимание значимости информационной деятельности для современного человека.

Решаемые учебные задачи:

  • систематизировать представления учащихся об этапах создания текстового документа; о возможности автоматизации повторяющихся операций при создании тестового документа;
  • актуализировать имеющиеся умения оформления текстовых документов в соответствии с заданными требованиями.

Тип урока

  • Изучение нового материала.

Ход урока

I. Мотивирование к учебной деятельности

На слайде презентации: кроссворд.

  • Вопрос: Как можно создать кроссворд в текстовом документе?

(использовать таблицу для создания сетки.)

  • Вопрос: Что надо знать при построении таблицы?

(Количество строк и количество столбцов. )

Вопрос: Сколько строк и столбцов?

  • Опишите путь создания таблицы.

(Вставка/Таблица / Вставить таблицу / указать количество строк и столбцов / ОК)

  • Будем считать, что сетка создана. Дальнейшие действия?

( Обрамление ячеек.)

  • Вопрос: Как выполнить это действие?

( Выделить / щелчок ПКМ / Границы и заливка)

  • Вопрос: Какие действия необходимо выполнять многократно?

(Обрамление ячеек)

  • Можно ли как – то упростить эту работу?

Автоматизировать эту рутинную операцию можно, применяя ….. для ответа на этот вопрос необходимо разгадать ключевое слово в кроссворде. (МАКРОС).

– Вопрос: Значит тема нашего урока….. («Создание макросов в текстовом редакторе»).

-Вопрос: цель? (познакомиться с порядком создания макросов). (Сопровождается показом презентации).

II. Способы достижения намеченной цели по построению нового знания (Теоретический материал)

В офисном пакете MS Office существует возможность написания макросов – специальных дополнений выполняющих какие-либо действия на языке программирования Visual Basic. Но не пугайтесь сразу, макрос мы будем делать без программирования, а воспользуемся автоматической записью команд.

В Справке (F1) найдите ответ на вопрос – что обозначает термин МАКРОС.

Термин макрос обозначает возможность воспроизведения последовательности нажатий клавиш (или других элементарных действий), которые приводят к выполнению заранее указанного набора действий.

Это означает, что в текстовом редакторе, как и в некоторых других прикладных программах, например, в электронных таблицах, достаточно один раз записать нужную последовательность действий, а затем, при необходимости, давать компьютеру приказ выполнить эти действия.

Указание даётся через панель инструментов либо назначаются клавиши.

Порядок создания макросов рассмотрим, выполняя Задание 1. (необходимо заранее заготовить файл с текстом на осетинском языке без символа æ; на столах у учащихся распечатки с образцом оформления текста)

III. Первичное применение знаний с целью формирования умений (учащиеся осуществляют поиск решения по плану).

Задание1 . Оформите текст в файле по данному образцу.

    1. Æгас цæут, сывæллæттæ: Зæринæ æмæ Мæдинæ, Янæ æмæ Лёня, Эммæ æмæ Фатимæ. Хорз ахуыр кæнынмæ бæллут.
    2. Лæппутæ цауынц хъæдмæ.
    3. Æз кæсын «Рæстзинад».

Перевод с осетинского языка: 1. Здравствуйте, дети: Зарина и Мадина, Яна и Лёня, Эмма и Фатима. Стремитесь хорошо учиться. 2. Мальчики идут в лес. 3. Я читаю «Растзинад».(название газеты)

В данном задании повторяющимися действиями являются вставка из таблицы символов символа æ .

Создадим макрос для вывода на экран символа æ. Для этого:

Установите курсор перед буквой г.

Выполните команду Вид/Макросы/Запись макроса..

В окне Запись макроса удалите имя, которое предлагает компьютер, и введите новое имя Буква.

Пусть мы собираемся назначить для выполнения макроса клавиши. Щелчок по кнопке Назначить макрос клавишам.

[attention type=yellow]
В комбинациях клавиш можно использовать символьные или функциональные клавиши в сочетании с Alt или Ctrl . Удобнее всего использовать Alt или Ctrl в сочетании с редко используемыми символами «э», «ъ», «ё». Для нашего макроса Буква пусть назначим сочетание Alt + э.
[/attention]

Выполнить команду Назначить / Закрыть.

Начинается запись макроса. А курсор принял вид аудиокассетки со стрелочкой.

Далее необходимо выполнить нужные действия по вставке из таблицы символов символ æ: Вставка / Символ ( шрифт Calibri, дополнительная латиница 1)/æ / вставить / закрыть.

Выполнить команду Остановить запись.

Макрос для вывода изображения символа æ готов. Теперь достаточно устанавливать курсор в нужное место текста и нажимать Alt + э.

IV. Физминутка

Учитель:

1. Учитель дает энергичную команду: «Потянитесь, сядьте прямо! Сплетите кольца рук перед собой. Выверните кисти рук ладонями наружу. С полным вдохом поднимите руки со сплетенными пальцами над головой. С резким выдохом опустите руки». Повторить 2 раза.

[attention type=green]
2. Не поворачивая головы, посмотреть направо и зафиксировать взгляд на счет 1-4. Затем посмотреть вдаль прямо на счет 1-6. Аналогично проводятся упражнения, но с фиксацией взгляда влево, вверх, вниз. Повторить 3-4 раза.
[/attention]

Вернёмся к вопросу о кроссворде.

Какие этапы выполнения кроссворда можно упростить, применив макросы? (Оформление ячеек под слова)

Какие следует создать макросы? (Один – для оформления вертикального блока ячеек, другой – для горизонтального).

V. Практическая работа (применение полученных знаний).

Создание и оформление тематического кроссворда «Компоненты компьютера» 

По горизонтали:

3. Специальная микросхема для управления внешним устройством.

6. Устройство, обеспечивающее выполнение логических и арифметических операций.

10. Жесткий диск.

11. Печатающее устройство.

12. Устройство ручного ввода графических данных, выполненное в виде ручки.

14. Устройство визуального отображения информации.

15. Манипулятор в виде небольшой коробочки.

17. Гибкий (флоппи) диск.

18. Устройство сопряжения компьютера и внешнего устройства.

19. Устройство, с помощью которого изображение считывается по точкам.

По вертикали:

1. Устройство для создания электронной копии с бумажных носителей.

2. Микросхема, обеспечивающая увеличение быстродействия при выполнении арифметических операций.

4. Устройство для вывода графической информации на бумагу, графопостроитель.

5. Ячейка микропроцессора.

7. Обобщённое название устройств для хранения информации.

8. Накопитель на магнитной ленте, заменивший кассетный магнитофон.

9. Устройство, передающее и принимающее информацию по компьютерам сетям.

12. Устройство вывода звуковой информации, колонки.

[attention type=red]
13. Устройство, с помощью которого можно воспроизводить телепередачи на экране монитора.
[/attention]

16. Устройство, обеспечивающее передачу данных и управляющих сигналов между компонентами компьютера.

Порядок выполнения задания

  • Вставить в документ таблицу, в которой количество строк и столбцов соответствует максимальному количеству клеток подготовленного на бумаге кроссворда по горизонтали и по вертикали.
  • Выделив эту таблицу, установить ширину столбцов и высоту строк таким образом, чтобы ячейки получились квадратными.
  • Уберите сетку таблицы (выделить таблицу, щелчок ПКМ – Границы и заливка– Тип границы Нет).
  • Записать в виде макроса оформление блока ячеек по горизонтали:выделить блок ячеек под первое слово по горизонтали;записать макрос. Выполняемые действия: щелчок ПКМ – Границы и заливка– Тип границы Все; установка оформления для всех границ ячеек, затем заливки.
  • Аналогично записать макрос оформления блока ячеек по вертикали.
  • Для оформления кроссворда нужно выделять блоки ячеек и нажимать назначенную для макроса комбинацию клавиш.
  • Выделить полученную сетку кроссворда, установить тип шрифта и расположение символов в ячейках. Проставить цифры в нужных ячейках.
  • Записать вопросы кроссворда, оформить документ по вашему усмотрению.
  • Сохранить работу в своей папке под именем Кроссворд.

VI.Подведём итог урока

  • Что нового вы узнали сегодня на уроке?
  • Когда можно применять макросы?
  • Порядок создания макроса с помощью клавиш?

VII. Рефлексия

VIII. Домашнее задание

  • Знать алгоритм создания макроса.
  • Ответить на вопросы кроссворда.

Список используемых ресурсов:

  1. Материалы с интернет-сайтов rusedu.ru, itn.ru, festival.1september.ru, klyaksa.net.

Источник: //multiurok.ru/files/sozdaniie-makrosov-v-ms-word-konspiekt-uroka-priezientatsiia.html

Макросы в Microsoft Word

Создание макросов для упрощения работы с Microsoft Word

Нередко простановка HTML тегов в статье занимает почти столько же времени, сколько ее написание. Особенно часто такая проблема возникает со статьями со сложной версткой, включающей множество заголовков, списков, цитат и стилей.

Заметно облегчить работу по подготовке текстов к публикации на web-сайте помогут макросы Word, которые могут автоматизировать любую задачу.

Для написания такого макроса требуется знание языка программирования Visual Basic for Applications (VBA), встроенного не только в линейку программных пакетов от MicroSoft, но и многие другие приложения.

Однако, благодаря тому, что VBA представляет собой упрощенную версию Visual Basic, начать писать простейшие скрипты может любой пользователь.

Кроме того, упростить задачу по написанию VBA макроса поможет возможность записи всех действий пользователя, которые автоматически преобразуются в программный код. Таким образом, чтобы создать простейший макрос, достаточно:

  • выбрать пункт меню Вид –> Макросы –> Запись макроса;
  • дать ему любое имя;
  • выполнить необходимые действия, которые вы хотите автоматизировать;
  • остановить запись (Вид –> Макросы –>Остановить запись).

Кликнув по пункту меню Вид –> Макросы –> Запись макроса, вы откроете окно со список всех имеющихся у вас макросов и сможете запустить их, отредактировать или удалить.

Расстановка тегов абзаца

в Word при помощи VBA макроса

Предварительная простановка тегов

в тексте перед его размещением требуется при работе со многими CMS. Далеко не все встроенные в web-движки редакторы могут автоматически опознать абзацы в статье и автоматически вставить туда тексты. Кроме того, нередко разбивку текста HTML-тегами требуют и от копирайтеров, чтобы размещение статьи занимало у заказчика как можно меньше времени.

Самый простой способ автоматизировать вставку HTML-тега в Word – это использование опции автозамены (окошко «Найти и заменить»), вызываемой сочетанием клавиш Ctrl+H.

Вставляем в строку «Найти» сочетание p, а в строку «Заменить на»

p

и жмем на кнопку «Заменить все». Word автоматически проставит необходимые HTML-теги в тексте.

Чтобы перевести данное действие в макрос, запустим его запись перед выполнением всех действий.

  1. Включаем запись макроса.
  2. Выполняем замену абзацев на HTML-теги в тексте при помощи опции «Заменить все».
  3. Останавливаем запись.

Теперь, чтобы проставить тег

в статье, вам будет достаточно нажать единственную кнопку запуска макроса.

Готовый код (помимо простановки тегов, он изменяет шрифт текста на Times New Roman и устанавливает размер 11):

Sub P()'''Selection.WholeStorySelection.Font.Name=”TimesNewRoman”Selection.Font.Size=11Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”p”.Replacement.Text=”

p

“.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.

HomeKeyUnit:=wdStorySelection.TypeTextText:=”

“Application.Browser.NextSelection.EndKeyUnit:=wdStorySelection.TypeBackspaceSelection.TypeBackspaceSelection.TypeBackspaceSelection.

TypeBackspace

End Sub

[attention type=yellow]
Учтите, что если в конце вашего текста есть много лишних абзацев, то данный VBA скрипт обязательно заменит их на HTML-теги, поэтому обязательно проверяйте то, как выглядит конец статьи, перед ее непосредственной публикацией на сайте.
[/attention]

Как видите, код интуитивно понятный, и многие команды VBA имеют говорящее название, указывающее на их функцию:

  • Selection.Find.Replacement.ClearFormatting – заменить в выбранном тексте,
  • .Text – текст, который нужно найти;
  • .Replacement.Text – текст для замены.

Команда Selection.TypeBackspace обозначение удаление одного символа, стоящего впереди курсора. Она необходима, так как в случае выполнения замены абзацев на HTML-теги

в конце всегда будет находиться лишний открывающий тег

.

Продолжим писать наш макрос для «Ворда». Пусть он обрамляет тегами или или текст, выделенный жирным.

Сделать это при помощи автозамены можно так.

В поле «Найти» вставляем текст (). В пункте «Формат» выбираем Шрифт –> Полужирный. Ставим галочку в пункте «Подстановочные знаки». В поле «Заменить на» пишем \1. Нажимаем «Заменить все».

[attention type=green]
У такой опции есть один недостаток: программа расставит обрамляющие HTML-теги не возле вокруг всего «куска» жирного текста, а вокруг каждого слова, следовательно, итоговый код будет очень грязный.
[/attention]

Чтобы исправить эту ошибку, просто заменим на пробел.

Итоговый код (на примере замены на ):

Sub B()'''Selection.Find.ClearFormattingSelection.Find.Font.Bold=TrueSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”\1.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.

MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text = “”.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.

ExecuteReplace:=wdReplaceAll

End Sub

[attention type=red]
Двойные кавычки в коде – это не опечатка, так как именно таким образом осуществляется экранирование кавычек в VBA-скриптах.
[/attention]

Аналогичным способом вы можете дополнить макрос, например, обрамляя курсив тегами или .

Автоматическая простановка тегов заголовков

Чтобы автоматически расставить заголовки H1, H2, H3, H4, H5 и H6, необходимо задать для них размер шрифта, отличный от остального текста. Например, если вы пишите статью 12 размером, можно выделять заголовки 16 размером. Тогда опция автозамены будет выглядеть так:

  • в поле «Найти» (),
  • в поле «Заменить на»

    \1

    ,

  • ставим галочку «Подстановочные знаки»,
  • в разделе «Формат» указываем 16 шрифт.

Затем заменяем лишние «

».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

\1

“.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Font.Size=16Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

Статья: Автоматизация действий в приложениях Office 2010 с помощью макросов

Создание макросов для упрощения работы с Microsoft Word
Создание макросов для упрощения работы с Microsoft Word

При работе над документами многие люди сталкиваются с необходимостью производить большое количество повторяющихся действий. Одни выполняются в начале работы, другие – в её процессе, третьи – по окончании. Было бы здорово автоматизировать рутинные операции, не так ли? Это сэкономило бы кучу времени и нервов.

Программы пакета Microsoft Office имеют встроенное средство автоматизации, результатом работы которого являются так называемые «макросы». Обычно это небольшие скрипты, с помощью которых можно выполнять те или иные действия над документами.

Несмотря на то, что в приложения встроен макрорекордер, с его помощью можно записать разве что самые простые действия. Для построения сложных сценариев он малопригоден. Однако его можно рассматривать в качестве справочной системы по VBA (Visual Basic for Application), на котором и будут разрабатываться скрипты.

Область применения макросов достаточно широка и ограничивается разве что возможностями языка программирования Visual Basic. Но мы не будем вдаваться в подробности слишком глубоко, а разберём принципы автоматизации работы с приложениями Microsoft Office 2010.

Даже не имея опыта программирования на Basic, вы легко разберётесь с его синтаксисом. Однако я предполагаю, что вы уже умеете программировать хотя бы на одном из языков на базовом уровне и разбираетесь в основных синтаксических конструкциях.

Получаем доступ к инструментам автоматизации

Прежде всего, давайте разберёмся с использованием макрорекордера. Во всех приложениях, входящих в состав Microsoft Office 2010, средство записи макросов включается одинаково. Давайте посмотрим, как получить к нему доступ в Word 2010.

Откройте окно настроек Word (Файл – Параметры) и отметьте флажком вкладку Разработчик в Настройках ленты (см. рисунок 1).

Рисунок 1 – Включаем вкладку «Разработчик»

Сама вкладка выглядит так, как показано на рисунке 2.

Рисунок 2 – Вкладка «Разработчик»

Здесь большое количество кнопок, однако мы сосредоточимся только на группе Код.

Записываем макрос с помощью макрорекордера

Давайте нажмём кнопку Запись макроса группы Код. Эта кнопка также продублирована в строке состояния Word (появляется после включения вкладки) – см. рисунок 3.

Рисунок 3 – Панель состояния Word 2010

После нажатия на кнопку откроется диалоговое окно (см. рисунок 4), где вы можете:

  • задать своему будущему макросу имя, краткое описание,
  • сделать его доступным для всех документов или только для текущего,
  • сделать быстрый вызов по кнопке на панели инструментов или по комбинации клавиш.

Единственное замечание здесь следует сделать насчёт имени макроса – оно не должно содержать пробелов и спецсимволов. Старайтесь обойтись только буквами и цифрами (причём с цифры начинать также нельзя).

Рисунок 4 – Окно «Запись макроса»

Оставим пока в стороне кнопки и клавиши быстрого вызова и просто нажмём ОК.

Кнопка записи макроса в строке состояния изменит свой вид на значок Стоп , а возле курсора появится изображение аудиокассеты. Это говорит о том, что запись началась. Теперь вам просто нужно выполнить действия, которые требуются для достижения результата.

Спешить не нужно, поскольку в макрос не записывается продолжительность вашей работы. В нём будет представлен только результат. Учтите только, что в процессе записи вам будет недоступно управление курсором с помощью мыши.

И это правильно, поскольку отследить такие перемещения очень сложно.

В качестве учебного примера давайте создадим «фонарь» документа.

«Фонарём» называют элемент, содержащий сведения о документе и его создателе, размещаемый на последней странице. Можно сказать, что это аналог электронных свойств, хотя, пожалуй, именно электронные свойства являются аналогом «фонаря».

После выполнения нужных действий (ввода текста) нажмите на кнопку Стоп . Вам не будет выдано никаких сообщений, но можете не сомневаться, что запись завершилась успешно. Чтобы убедиться в этом, нажмите кнопку Макросы на вкладке Разработчик.

Рисунок 5 – Список доступных макросов

В окне, изображённом на рисунке 5, будут перечислены все доступные макросы (пока у нас только один). Запустите его, дважды щёлкнув по имени в списке или нажав на кнопку Выполнить. Вы увидите, что действия выполняются в точности так, как вы их записали.

Редактирование макроса

Всё в том же окне макросов выделите нужную строку и нажмите кнопку Изменить. Откроется окно редактора Visual Basic for Applications (см. рисунок 6).

Конечно, этот редактор не очень удобен и его внешний вид и функционал не меняется уже достаточно давно (в отличие от Visual Studio, например), но и с его помощью вы можете писать скрипты.

К тому же он входит в состав пакета Microsoft Office, а Visual Studio Professional нужно приобретать отдельно за немалую сумму.

Рисунок 6 – Окно редактора Visual Basic for Applications

Слева мы видим навигатор проекта и окно свойств. Пока мы только учимся писать макросы, навигатор нам не потребуется – всё уместится в одну функцию.

Справа – большое окно кода. Не обращайте пока внимания на раскрывающиеся списки над ним, в малых проектах можно обойтись и без них.

Давайте посмотрим на код, созданный макрорекордером.

Sub ИмяМакроса()End Sub

Эти строки формируют функцию с определённым именем, а весь код располагается между ними.

Источник: //coutty.wordpress.com/2010/07/17/%D1%81%D1%82%D0%B0%D1%82%D1%8C%D1%8F-%D0%B0%D0%B2%D1%82%D0%BE%D0%BC%D0%B0%D1%82%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D1%8F-%D0%B4%D0%B5%D0%B9%D1%81%D1%82%D0%B2%D0%B8%D0%B9-%D0%B2-%D0%BF%D1%80%D0%B8%D0%BB/

Макросы и функции в Word для быстрого форматирования

Создание макросов для упрощения работы с Microsoft Word

Макросы в Word — это такая полезная штука, которую просто обязан знать каждый, кто много работает с текстами.

Предысторию написания данной статьи, а также ее полезность можно оценить по видеоролику.

Макросы — теория

Теперь немного теории.

Как известно, в текстовом редакторе Word есть очень полезная функция «Найти и заменить« (вызывается через сочетание клавиш Ctrl+H или меню «Правка» -> «Заменить…»), которой, к сожалению, пользуются не так часто. Но еще реже используют данную функцию в режиме «Подстановочные знаки«.

А между тем данное умение может принести неоценимую пользу. Свое знакомство с подстановочными знаками и их изучение можно начать со статьи Сергея Хозяинова (будет полезна для новичков).

Я же хочу рассказать о более конкретных случаях применения этого знания, а именно: использование замены с помощью подстановочных знаков и форматирование текста в макросах.

Макросы — это такие полезные штуки, которые позволяют автоматизировать часто выполняемые операции (в случае примера на видео, это форматирование текста). О способах записи и создания макросов можно найти тысячи статей на просторах Интернета.

[attention type=yellow]
Нас же будет интересовать вариант, при котором макрос записывается вручную во встроенном в Word редакторе Visual Basic. Суть использования макросов мною основана на принципе конструктора: макрос состоит из набора кирпичиков-функций, которые заранее прописаны и могут размещаться в любой требуемой последовательности.
[/attention]

Каждая же из функций является действием, либо набором действий, она имеет свое уникальное имя. В макросе же надо лишь указать имя функции для ее вызова.

Макросы — практика

Мой список функций »

Function Tire()‘заменяет дефис в начале абзаца на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p- ».Replacement.Text = «p= ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tire2()‘заменяет дефис окруженный пробелами на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = » — ».Replacement.Text = » = ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.

MatchSounds = False.MatchAllWordForms = False.Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Defis()‘заменяет тире в начале абзаца на дефисActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p=».Replacement.Text = «p-».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.

[attention type=green]
MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.
[/attention]

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Prob()‘заменяет множественные пробелы на одиночный‘удаляет множественные и одиночные пробелы в начале абзаца‘удаляет множественные и одиночные пробелы в конце абзаца‘удаляет знаки абзаца идущие до текста в начале документа‘и знаки абзаца идущие после текста в конце документаActiveDocument.Content.Find.ClearFormattingActiveDocument.

Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.MatchWildcards = False.Execute «w», , , , , 0, , , 0, » «, 2.Execute «pw», , , , 0, , , , 0, «p», 2.Execute «wp», , , , 0, , , , 0, «p», 2End WithIf ActiveDocument.Paragraphs.Count > 1 ThenDo While ActiveDocument.Paragraphs.Last.Range.Text = Chr(13) And _ActiveDocument.Paragraphs.Count > 1ActiveDocument.Paragraphs.Last.

Range.DeleteLoopEnd IfSelection.HomeKey wdStoryWhile Selection.Paragraphs.First.Range.Characters.Count = 1Selection.Paragraphs.First.Range.DeleteWendEnd FunctionFunction Format()‘весь текст делает 14 размером TimesNewRoman‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Times New Roman»ActiveDocument.Content.Font.Size = 14ActiveDocument.Content.ParagraphFormat.

[attention type=red]
LineSpacing = LinesToPoints(1.5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Format2()‘весь текст делает 11 размером Arial‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Arial»ActiveDocument.Content.Font.Size = 11ActiveDocument.Content.ParagraphFormat.LineSpacing = LinesToPoints(1.
[/attention]

5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Zagol()‘делает заголовок (первый абзац) документа жирным‘и выравнивает его по центруActiveDocument.Paragraphs(1).Range.SelectSelection.Font.Bold = TrueSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSelection.

HomeKey wdStoryEnd FunctionFunction Symb()‘Подсчитывает количество символов в документе‘и выводит сообщениеspacecount = ActiveDocument.Content.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)MsgBox «В тексте содержится символов (включая пробелы) — » & spacecount & » »End FunctionFunction Krasn()‘Делает красный шрифт у выделенного словаSelection.Font.

Color = wdColorRedEnd FunctionFunction Intjyr()‘Выделяет жирным все вопросы «И:»ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(00130013И:)(*)(0013)».MatchWildcards = True.Forward = True.Replacement.Text = «123».Replacement.Font.Bold = True.

[attention type=yellow]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction One_to_Two()‘Разделяет одно предложение на два (перед выполнением курсор ставить после запятой)Selection.TypeBackspaceSelection.TypeText Text:=».»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.
[/attention]

Case = wdTitleSentenceEnd FunctionFunction Two_to_One()‘Склеивает два предложения в одно (перед выполнением курсор ставить после точки)Selection.TypeBackspaceSelection.TypeText Text:=»,»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.Case = wdTitleSentenceEnd FunctionFunction Nimerstr()‘Вставляет нумерацию страниц справа вверхуSelection.Sections(1).Headers(1).PageNumbers.

Add PageNumberAlignment:= _wdAlignPageNumberRight, FirstPage:=TrueEnd FunctionFunction MastifTime()‘Находит и заменяет тайм-коды в обычном формате (чч:мм:сс), на формат‘требуемый для Мастифа (чч-мм-сс)ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(0013)(([0-9]@:[0-9]@:[0-9]@))».MatchWildcards = True.

Forward = True.Replacement.Text = «12».Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «:([0-9]@):».MatchWildcards = True.Forward = True.Replacement.Text = «-1-».

[attention type=green]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Troetoch()‘Заменяет три точки идущие подряд на знак троеточияActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «…».Replacement.Text = «…».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.
[/attention]

MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tehnik()‘Ищет в тексте технические надписи в скобках‘если они прописаны без точки, то перед закрывающей скобкой ставится точка,‘если они написаны (случайно) не курсивом, то выделяются имDim MyCollection As New CollectionWith MyCollection.Add («Аплодисменты»).Add («Говорят одновременно»).Add («Дефект записи»).Add («Дефект звука»).Add («Смена кадра»).Add («Обрыв записи»).Add («Техническая съемка»).Add («Техническая реплика»).Add («Технический разговор»).Add («Конец просмотра видеоролика»).Add («Начало просмотра видеоролика»).Add («Просмотр видеоролика»).Add («Возобновление тайм-кода»).Add («Остановка тайм-кода»).Add («Смена тайм-кода»).Add («Смех»).

Add («Смеется»).Add («Кашель»).Add («Кашляет»)End WithDim i As IntegerFor i = 1 To MyCollection.CountActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «))».MatchWildcards = True.Forward = True.Replacement.Text = «(1.)».Replacement.Font.Italic = True.

Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «.))».MatchWildcards = True.Forward = True.Replacement.Text = «(1)».Replacement.Font.Italic = True.Execute Replace:=wdReplaceAllEnd WithNext iEnd FunctionSub Zamena()‘ Комплекс последовательных функций при форматировании работ всех видов кроме Первого канала.ProbTire2TireTroetochNimerstrTehnikSymbEnd FunctionSub Zamena2()‘ Комплекс последовательных функций при форматировании работ Первого канала.ProbDefisTire2TroetochNimerstrTehnikSymbEnd FunctionSub ФОРМАТ()FormatProbTire2TireTroetochIntjyrTehnikNimerstrZagolSymbEnd SubSub МАСТИФ()Format2ProbIntjyrTehnikMastifTimeNimerstrZagolSymb

End Sub

[attention type=red]
Прописав это и сохранив в шаблоне «Normal.dot« можно получить доступ к этим макросам из любого документа. Вызывается окно выбора макросов горячей клавишей Alt+F8.
[/attention]

Я предпочитаю использовать кнопки на панели инструментов. Поместить на нее кнопку и привязать к ней макрос очень легко. Об этом доступно написано в данной статье.

Источник: //dvorkin.by/macros/

Как создать макросы в Word?

Создание макросов для упрощения работы с Microsoft Word

Большинство начинающих пользователей, которые только приступили к изучению компьютера в целом и освоению программы Word в частности, не знают, что такое макрос. Причем полагают, что макрос представляет собой довольно сложную и невыполнимую задачу. Но на самом деле макрос — это очень простая и удобная вещь, пользоваться которой должен уметь любой юзер.

Что такое макрос и для чего он используется?

Макрос представляет собой инструмент в программе Ворд, который позволяет запоминать какие-либо определенные задачи и действия, а потом в дальнейшем автоматически их выполнять.

Он является набором команд, при помощи которых можно автоматизировать выполнение повторяющихся действий.

Такой элемент является очень важным и нужным, особенно для тех, кто привык экономить свое время.

Макрос в программе Ворд может использоваться для следующих целей:

  1. Для ускорения процесса обработки текста. В частности, с помощью этого элемента можно быстро заполнить требуемую область либо отформатировать содержимое документа.
  2. Для того чтобы объединить несколько команд. Согласитесь, создавать табличную форму в Ворд и потом еще наполнять ее содержимым довольно проблематично. Такого рода инструмент позволит быстро создать нужный параметр и в дальнейшем просто вставить его в требуемое место.
  3. Для того чтобы максимально упростить доступ к всевозможным параметрам, которые разбросаны в разных диалоговых окнах. Пользователи инструмента Ворд наверняка знают, как сложно порой отыскать требуемый элемент из-за обилия различных многоуровневых меню. Подобный компонент поможет заметно упростить эту задачу.
  4. Для того чтобы автоматизировать обработку тех действий, которые являются весьма сложными и рутинными. Макросы в Ворд умеют доводить до автоматизма те параметры, на которые, казалось бы, уходит очень много драгоценного времени.

Как создать макрос?

Естественно, чтобы воспользоваться этим инструментом в Word, его нужно вначале создать. Этот процесс не несет в себе много сложностей, поэтому справиться с ним сможет абсолютно любой пользователь.

Первый вариант — это создание подобного элемента при помощи специального средства для создания макроса. Оно может быть как встроено в Word, так и взято с каких-либо сторонних источников.

Следует отметить, что этот пункт является довольно небезопасным, ведь в макросах, скачанных с интернета, запросто могут находиться вирусы, уничтожающие и крадущие важную для пользователя информацию.

Поэтому прежде чем выполнять найденный элемент в Word, следует убедиться, что он чист от различного рода недоброжелательных элементов. Для этого просто нужно просканировать его антивирусом.

Второй вариант — это создать элемент такого рода для Word путем использования специального программного кода, пишущегося на языке под названием Visual Basic.

Для этой цели необходимо предварительно обзавестись специальным редактором, который носит точно такое же название, как и сам язык программирования кода.

[attention type=yellow]
Нужно сказать о том, что этот пункт достаточно сложен и вряд ли подойдет для рядового пользователя.
[/attention]

Есть возможность провести процесс создания макросов в Word путем комбинирования вышеприведенных методик.

В результате получится стандартный элемент, который затем можно будет отредактировать и улучшить при помощи специального кода.

Однако следует знать, что этот пункт, как и предыдущий, подходит лишь для опытных пользователей. Ведь для создания такого инструмента потребуются немалые знания в программировании.

[attention type=green]
Для создания макросов в редакторе MS Office Word следует выделить фрагмент, для которого будет создаваться макрос.
[/attention]

Потом надо войти в меню «Вид — Макросы — Запись макроса», выполнить необходимые действия, которые надо записать, после чего выполняется остановка записи макроса.

Для того чтобы его использовать, необходимо выделить фрагмент текста, к которому следует его применить, войти в меню «Вид — Макросы — Макросы — Выполнить» и выбрать имя сохраненного макроса.

Как видно, процесс создания подобных элементов не несет в себе каких-либо определенных сложностей. Здесь самое главное — это грамотный и обдуманный подход к делу, который в разы увеличит шансы на успех.

[attention type=red]
Нужно заметить, что макросами могут пользоваться не только те, кому по роду службы необходимо заполнять объемные документы и бланки.
[/attention]

В частности, прибегать к использованию такого рода инструментов могут и обычные пользователи, которым необходимо что-либо напечатать в Ворде, к примеру, какие-либо официальные документы.

Ведь пользуясь подобным инструментом, можно сэкономить довольно большую часть своего времени и наделать намного меньше ошибок, чем при ручном вводе. Ведь, как показывает практика, использование таких элементов сводит на нет возможность ошибиться при последующем заполнении того же шаблона.

Источник: //itguides.ru/soft/word/kak-sozdat-makrosy-v-word.html

Создать макрос в ворд это легко

Создание макросов для упрощения работы с Microsoft Word

В этом уроке Вы узнаете:

  • Что такое Макросы в ворд
  • Как применить макросы в ворд
  • Как записать макрос в ворд

Добрый день дорогие друзья. Сегодня Мы разберем инструмент автоматизации, а именно макрос в ворд, который в некоторых случаях поможет сэкономить достаточное количество времени. Достаточно простая и при этом уникальная вещь при форматировании текста.

Что такое макросы в ворд

Макросы в программе Microsoft Office Word — это набор команд/сочетание клавиш на клавиатуре, сообщающее алгоритм выполнения действий в автоматическом режиме, для достижения результата. Другими словами, это записанная последовательность сочетания команд в единую команду.

Могу привести пример макроса из жизни: ещё совсем недавно в выходной день, кто-нибудь из вашей семьи уходил на рынок за покупками. И для выполнения своей задачи необходимо было пройтись по прилавкам с различным наименованием товара для приобретения мяса, зелени, молочной продукции, бакалеи, хоз.

товаров и т.д. Алгоритм был следующий:

  1. Выйти за покупками
  2. Пройтись по n-количеству продавцов
  3. Доставить купленный товар домой

Сейчас же можно взять и заказать весь товар через интернет/по телефону. Это уже будет процесс с минимальным использования Ваших действий, где Вам необходимо сделать заказ, принять доставку, расплатиться:

  1. Фирма, предоставляющее услуги доставки заказанного Вами товара, наладило взаимодействия между поставщиком товара и услугой транспортировки.
  2. Вы в свою очередь сделали заказ, кликнув по монитору или в приложении в телефоне.

Итог: кто-то выполняет сочетание различных действий за Вас, по вашему заказу.

Вот и в Microsoft Word похожий процесс.

Вы записываете сочетание различных команд в одну команду (вы выступаете в роли той фирмы, которое наладило взаимоотношение), и выводите кнопку этой команды на панель быстрого доступа (простите за тавтологию, просто так понятнее:)) далее Вы нажимает на кнопку, компьютер выполняет записанную последовательность команд и мигом получаете результат с использованием всего одного действия. Это круто;)

Как применить макрос в ворд

Применяются макросы в самых различных задачах по форматированию и структурированию текста. Поверьте, иногда лучше потратить четыре часа на запись макроса, чем два дня на выполнение задачи без макроса.

Ярким примером такого случая является структурирование текста для создание программного обеспечения. А точнее, Вам дают перечень помещений в каком-то огромном здании, и вам необходимо выстроить их иерархию из предоставленных данных.

Но это примеры от среднего уровня и выше, а пока я Вам расскажу и покажу основы, принцип действия макроса на достаточно легком примере.

Как записать макрос в word

Самым легким макросом, с которым мне приходилось встречаться, это создание какого-нибудь символа с использованием шестнадцатеричного кода, например ударение над буквой в ворде.

В данной статье написано как сделать ударение с использованием кода (для ударения этот код — 0301). Переходите по ссылке Ударение над буквой в ворде. 

Но Нам главное понять процедуру создания макроса, так что идеальный пример.

  1. Устанавливаем курсор мышки за буквой, на которую хотим поставить ударение (в слове «года» нам нужно поставить ударение на букву «о»).
  1. Переходим в вкладку «Вид» → раздел «Макросы» →нажимаем «Запись Макроса»
  1. Вводим имя нашему макросу, в поле «Назначить макрос» нажимаем «Кнопке», при желании можно добавить описание (это поле удобно заполнять, когда много макросов, и некоторые из них могут иметь подобные либо редко-встречающиеся названия).
  1. В появившемся окне выделяем создаваемый макрос нажимаем «Добавить» и нажимаем «Ок»
  1. После того, как Вы нажали «Ок» пошла запись макроса. Теперь каждое нажатие клавиши записывается ровно в той же последовательности. Вводим 0301 и нажимаем сочетание клавиш ALT+X
  1. Теперь во вкладке «Вид», в разделе «Макросы» нажимаем на «Макросы» → «Остановить запись»

На этом этапе макрос записался и вынесен на панель быстрого доступа. Теперь, когда Вы в следующий раз захотите поставить ударение, Вам просто потребуется нажать на значок на панели быстрого доступа (это значок стоит по умолчанию, но его можно поменять).

Ворд файл макрос

Вот я и показал, как использовать в ворде файл макроса. Повторю, это самый простой пример, но в следующих уроках я обязательно уделю время какой-нибудь более сложной записи макроса, чтобы расширить понимание этого инструмента в Word.

Все спасибо, если появились вопросы, обязательно задавайте, будем решать его.

Источник: //www.gidprog.ru/sozdat-makros-v-vord-eto-legko/

Виноградненская средняя общеобразовательная школа

Подготовила

учитель информатики

Кусраева Н.А.

2013 год

Тема урока: «Создание макросов в текстовом редакторе»

Сведения об авторе:

Кусраева Нонна Алексеевна

РСО-Алания, Моздокский р-н, МБОУ СОШ с.Виноградное

Учитель информатики

Общая информация

Учебный предмет: Информатика

Класс: 7

Авторская программа к учебникам: Л.Л. Босова, А.Ю. Босова, программа курса «Информатика»

Тема урока: «Создание макросов в текстовом редакторе»

Место урока в структуре учебного занятия: урок в разделе «обработка текстовой информации».

Цели урока:

  • предметныеумение применять макросы при работе с текстовыми документами, формирование представления о компьютере как универсальном устройстве обработки информации, развитие алгоритмического мышления
  • метапредметные – основы ИКТ-компетентности; формирование объектно-ориентированного мышления – способность работать с объектами, объединять отдельные предметы в группу с общим названием, общепредметные навыки обработки информации;
  • личностные – формирование готовности к продолжению обучения с использованием ИКТ, понимание значимости информационной деятельности для современного человека.

Решаемые учебные задачи:

  • систематизировать представления учащихся об этапах создания текстового документа; о возможности автоматизации повторяющихся операций при создании тестового документа;
  • актуализировать имеющиеся умения оформления текстовых документов в соответствии с заданными требованиями.

Тип урока

  • Изучение нового материала.

Ход урока

I. Мотивирование к учебной деятельности

На слайде презентации: кроссворд.

  • Вопрос: Как можно создать кроссворд в текстовом документе?

(использовать таблицу для создания сетки.)

  • Вопрос: Что надо знать при построении таблицы?

(Количество строк и количество столбцов. )

Вопрос: Сколько строк и столбцов?

  • Опишите путь создания таблицы.

(Вставка/Таблица / Вставить таблицу / указать количество строк и столбцов / ОК)

  • Будем считать, что сетка создана. Дальнейшие действия?

( Обрамление ячеек.)

  • Вопрос: Как выполнить это действие?

( Выделить / щелчок ПКМ / Границы и заливка)

  • Вопрос: Какие действия необходимо выполнять многократно?

(Обрамление ячеек)

  • Можно ли как – то упростить эту работу?

Автоматизировать эту рутинную операцию можно, применяя ….. для ответа на этот вопрос необходимо разгадать ключевое слово в кроссворде. (МАКРОС).

– Вопрос: Значит тема нашего урока….. («Создание макросов в текстовом редакторе»).

-Вопрос: цель? (познакомиться с порядком создания макросов). (Сопровождается показом презентации).

II. Способы достижения намеченной цели по построению нового знания (Теоретический материал)

В офисном пакете MS Office существует возможность написания макросов – специальных дополнений выполняющих какие-либо действия на языке программирования Visual Basic. Но не пугайтесь сразу, макрос мы будем делать без программирования, а воспользуемся автоматической записью команд.

В Справке (F1) найдите ответ на вопрос – что обозначает термин МАКРОС.

Термин макрос обозначает возможность воспроизведения последовательности нажатий клавиш (или других элементарных действий), которые приводят к выполнению заранее указанного набора действий.

Это означает, что в текстовом редакторе, как и в некоторых других прикладных программах, например, в электронных таблицах, достаточно один раз записать нужную последовательность действий, а затем, при необходимости, давать компьютеру приказ выполнить эти действия.

Указание даётся через панель инструментов либо назначаются клавиши.

Порядок создания макросов рассмотрим, выполняя Задание 1. (необходимо заранее заготовить файл с текстом на осетинском языке без символа æ; на столах у учащихся распечатки с образцом оформления текста)

III. Первичное применение знаний с целью формирования умений (учащиеся осуществляют поиск решения по плану).

Задание1 . Оформите текст в файле по данному образцу.

    1. Æгас цæут, сывæллæттæ: Зæринæ æмæ Мæдинæ, Янæ æмæ Лёня, Эммæ æмæ Фатимæ. Хорз ахуыр кæнынмæ бæллут.
    2. Лæппутæ цауынц хъæдмæ.
    3. Æз кæсын «Рæстзинад».

Перевод с осетинского языка: 1. Здравствуйте, дети: Зарина и Мадина, Яна и Лёня, Эмма и Фатима. Стремитесь хорошо учиться. 2. Мальчики идут в лес. 3. Я читаю «Растзинад».(название газеты)

В данном задании повторяющимися действиями являются вставка из таблицы символов символа æ .

Создадим макрос для вывода на экран символа æ. Для этого:

Установите курсор перед буквой г.

Выполните команду Вид/Макросы/Запись макроса..

В окне Запись макроса удалите имя, которое предлагает компьютер, и введите новое имя Буква.

Пусть мы собираемся назначить для выполнения макроса клавиши. Щелчок по кнопке Назначить макрос клавишам.

[attention type=yellow]
В комбинациях клавиш можно использовать символьные или функциональные клавиши в сочетании с Alt или Ctrl . Удобнее всего использовать Alt или Ctrl в сочетании с редко используемыми символами «э», «ъ», «ё». Для нашего макроса Буква пусть назначим сочетание Alt + э.
[/attention]

Выполнить команду Назначить / Закрыть.

Начинается запись макроса. А курсор принял вид аудиокассетки со стрелочкой.

Далее необходимо выполнить нужные действия по вставке из таблицы символов символ æ: Вставка / Символ ( шрифт Calibri, дополнительная латиница 1)/æ / вставить / закрыть.

Выполнить команду Остановить запись.

Макрос для вывода изображения символа æ готов. Теперь достаточно устанавливать курсор в нужное место текста и нажимать Alt + э.

IV. Физминутка

Учитель:

1. Учитель дает энергичную команду: «Потянитесь, сядьте прямо! Сплетите кольца рук перед собой. Выверните кисти рук ладонями наружу. С полным вдохом поднимите руки со сплетенными пальцами над головой. С резким выдохом опустите руки». Повторить 2 раза.

[attention type=green]
2. Не поворачивая головы, посмотреть направо и зафиксировать взгляд на счет 1-4. Затем посмотреть вдаль прямо на счет 1-6. Аналогично проводятся упражнения, но с фиксацией взгляда влево, вверх, вниз. Повторить 3-4 раза.
[/attention]

Вернёмся к вопросу о кроссворде.

Какие этапы выполнения кроссворда можно упростить, применив макросы? (Оформление ячеек под слова)

Какие следует создать макросы? (Один – для оформления вертикального блока ячеек, другой – для горизонтального).

V. Практическая работа (применение полученных знаний).

Создание и оформление тематического кроссворда «Компоненты компьютера» 

По горизонтали:

3. Специальная микросхема для управления внешним устройством.

6. Устройство, обеспечивающее выполнение логических и арифметических операций.

10. Жесткий диск.

11. Печатающее устройство.

12. Устройство ручного ввода графических данных, выполненное в виде ручки.

14. Устройство визуального отображения информации.

15. Манипулятор в виде небольшой коробочки.

17. Гибкий (флоппи) диск.

18. Устройство сопряжения компьютера и внешнего устройства.

19. Устройство, с помощью которого изображение считывается по точкам.

По вертикали:

1. Устройство для создания электронной копии с бумажных носителей.

2. Микросхема, обеспечивающая увеличение быстродействия при выполнении арифметических операций.

4. Устройство для вывода графической информации на бумагу, графопостроитель.

5. Ячейка микропроцессора.

7. Обобщённое название устройств для хранения информации.

8. Накопитель на магнитной ленте, заменивший кассетный магнитофон.

9. Устройство, передающее и принимающее информацию по компьютерам сетям.

12. Устройство вывода звуковой информации, колонки.

[attention type=red]
13. Устройство, с помощью которого можно воспроизводить телепередачи на экране монитора.
[/attention]

16. Устройство, обеспечивающее передачу данных и управляющих сигналов между компонентами компьютера.

Порядок выполнения задания

  • Вставить в документ таблицу, в которой количество строк и столбцов соответствует максимальному количеству клеток подготовленного на бумаге кроссворда по горизонтали и по вертикали.
  • Выделив эту таблицу, установить ширину столбцов и высоту строк таким образом, чтобы ячейки получились квадратными.
  • Уберите сетку таблицы (выделить таблицу, щелчок ПКМ – Границы и заливка– Тип границы Нет).
  • Записать в виде макроса оформление блока ячеек по горизонтали:выделить блок ячеек под первое слово по горизонтали;записать макрос. Выполняемые действия: щелчок ПКМ – Границы и заливка– Тип границы Все; установка оформления для всех границ ячеек, затем заливки.
  • Аналогично записать макрос оформления блока ячеек по вертикали.
  • Для оформления кроссворда нужно выделять блоки ячеек и нажимать назначенную для макроса комбинацию клавиш.
  • Выделить полученную сетку кроссворда, установить тип шрифта и расположение символов в ячейках. Проставить цифры в нужных ячейках.
  • Записать вопросы кроссворда, оформить документ по вашему усмотрению.
  • Сохранить работу в своей папке под именем Кроссворд.

VI.Подведём итог урока

  • Что нового вы узнали сегодня на уроке?
  • Когда можно применять макросы?
  • Порядок создания макроса с помощью клавиш?

VII. Рефлексия

VIII. Домашнее задание

  • Знать алгоритм создания макроса.
  • Ответить на вопросы кроссворда.

Список используемых ресурсов:

  1. Материалы с интернет-сайтов rusedu.ru, itn.ru, festival.1september.ru, klyaksa.net.

Источник: //multiurok.ru/files/sozdaniie-makrosov-v-ms-word-konspiekt-uroka-priezientatsiia.html

Макросы в Microsoft Word

Создание макросов для упрощения работы с Microsoft Word

Нередко простановка HTML тегов в статье занимает почти столько же времени, сколько ее написание. Особенно часто такая проблема возникает со статьями со сложной версткой, включающей множество заголовков, списков, цитат и стилей.

Заметно облегчить работу по подготовке текстов к публикации на web-сайте помогут макросы Word, которые могут автоматизировать любую задачу.

Для написания такого макроса требуется знание языка программирования Visual Basic for Applications (VBA), встроенного не только в линейку программных пакетов от MicroSoft, но и многие другие приложения.

Однако, благодаря тому, что VBA представляет собой упрощенную версию Visual Basic, начать писать простейшие скрипты может любой пользователь.

Кроме того, упростить задачу по написанию VBA макроса поможет возможность записи всех действий пользователя, которые автоматически преобразуются в программный код. Таким образом, чтобы создать простейший макрос, достаточно:

  • выбрать пункт меню Вид –> Макросы –> Запись макроса;
  • дать ему любое имя;
  • выполнить необходимые действия, которые вы хотите автоматизировать;
  • остановить запись (Вид –> Макросы –>Остановить запись).

Кликнув по пункту меню Вид –> Макросы –> Запись макроса, вы откроете окно со список всех имеющихся у вас макросов и сможете запустить их, отредактировать или удалить.

Расстановка тегов абзаца

в Word при помощи VBA макроса

Предварительная простановка тегов

в тексте перед его размещением требуется при работе со многими CMS. Далеко не все встроенные в web-движки редакторы могут автоматически опознать абзацы в статье и автоматически вставить туда тексты. Кроме того, нередко разбивку текста HTML-тегами требуют и от копирайтеров, чтобы размещение статьи занимало у заказчика как можно меньше времени.

Самый простой способ автоматизировать вставку HTML-тега в Word – это использование опции автозамены (окошко «Найти и заменить»), вызываемой сочетанием клавиш Ctrl+H.

Вставляем в строку «Найти» сочетание p, а в строку «Заменить на»

p

и жмем на кнопку «Заменить все». Word автоматически проставит необходимые HTML-теги в тексте.

Чтобы перевести данное действие в макрос, запустим его запись перед выполнением всех действий.

  1. Включаем запись макроса.
  2. Выполняем замену абзацев на HTML-теги в тексте при помощи опции «Заменить все».
  3. Останавливаем запись.

Теперь, чтобы проставить тег

в статье, вам будет достаточно нажать единственную кнопку запуска макроса.

Готовый код (помимо простановки тегов, он изменяет шрифт текста на Times New Roman и устанавливает размер 11):

Sub P()'''Selection.WholeStorySelection.Font.Name=”TimesNewRoman”Selection.Font.Size=11Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”p”.Replacement.Text=”

p

“.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.

HomeKeyUnit:=wdStorySelection.TypeTextText:=”

“Application.Browser.NextSelection.EndKeyUnit:=wdStorySelection.TypeBackspaceSelection.TypeBackspaceSelection.TypeBackspaceSelection.

TypeBackspace

End Sub

[attention type=yellow]
Учтите, что если в конце вашего текста есть много лишних абзацев, то данный VBA скрипт обязательно заменит их на HTML-теги, поэтому обязательно проверяйте то, как выглядит конец статьи, перед ее непосредственной публикацией на сайте.
[/attention]

Как видите, код интуитивно понятный, и многие команды VBA имеют говорящее название, указывающее на их функцию:

  • Selection.Find.Replacement.ClearFormatting – заменить в выбранном тексте,
  • .Text – текст, который нужно найти;
  • .Replacement.Text – текст для замены.

Команда Selection.TypeBackspace обозначение удаление одного символа, стоящего впереди курсора. Она необходима, так как в случае выполнения замены абзацев на HTML-теги

в конце всегда будет находиться лишний открывающий тег

.

Продолжим писать наш макрос для «Ворда». Пусть он обрамляет тегами или или текст, выделенный жирным.

Сделать это при помощи автозамены можно так.

В поле «Найти» вставляем текст (). В пункте «Формат» выбираем Шрифт –> Полужирный. Ставим галочку в пункте «Подстановочные знаки». В поле «Заменить на» пишем \1. Нажимаем «Заменить все».

[attention type=green]
У такой опции есть один недостаток: программа расставит обрамляющие HTML-теги не возле вокруг всего «куска» жирного текста, а вокруг каждого слова, следовательно, итоговый код будет очень грязный.
[/attention]

Чтобы исправить эту ошибку, просто заменим на пробел.

Итоговый код (на примере замены на ):

Sub B()'''Selection.Find.ClearFormattingSelection.Find.Font.Bold=TrueSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”\1.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.

MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text = “”.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.

ExecuteReplace:=wdReplaceAll

End Sub

[attention type=red]
Двойные кавычки в коде – это не опечатка, так как именно таким образом осуществляется экранирование кавычек в VBA-скриптах.
[/attention]

Аналогичным способом вы можете дополнить макрос, например, обрамляя курсив тегами или .

Автоматическая простановка тегов заголовков

Чтобы автоматически расставить заголовки H1, H2, H3, H4, H5 и H6, необходимо задать для них размер шрифта, отличный от остального текста. Например, если вы пишите статью 12 размером, можно выделять заголовки 16 размером. Тогда опция автозамены будет выглядеть так:

  • в поле «Найти» (),
  • в поле «Заменить на»

    \1

    ,

  • ставим галочку «Подстановочные знаки»,
  • в разделе «Формат» указываем 16 шрифт.

Затем заменяем лишние «

».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

\1

“.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Font.Size=16Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.htmlСтатья: Автоматизация действий в приложениях Office 2010 с помощью макросов

Создание макросов для упрощения работы с Microsoft Word
Создание макросов для упрощения работы с Microsoft Word

При работе над документами многие люди сталкиваются с необходимостью производить большое количество повторяющихся действий. Одни выполняются в начале работы, другие – в её процессе, третьи – по окончании. Было бы здорово автоматизировать рутинные операции, не так ли? Это сэкономило бы кучу времени и нервов.

Программы пакета Microsoft Office имеют встроенное средство автоматизации, результатом работы которого являются так называемые «макросы». Обычно это небольшие скрипты, с помощью которых можно выполнять те или иные действия над документами.

Несмотря на то, что в приложения встроен макрорекордер, с его помощью можно записать разве что самые простые действия. Для построения сложных сценариев он малопригоден. Однако его можно рассматривать в качестве справочной системы по VBA (Visual Basic for Application), на котором и будут разрабатываться скрипты.

Область применения макросов достаточно широка и ограничивается разве что возможностями языка программирования Visual Basic. Но мы не будем вдаваться в подробности слишком глубоко, а разберём принципы автоматизации работы с приложениями Microsoft Office 2010.

Даже не имея опыта программирования на Basic, вы легко разберётесь с его синтаксисом. Однако я предполагаю, что вы уже умеете программировать хотя бы на одном из языков на базовом уровне и разбираетесь в основных синтаксических конструкциях.

Получаем доступ к инструментам автоматизации

Прежде всего, давайте разберёмся с использованием макрорекордера. Во всех приложениях, входящих в состав Microsoft Office 2010, средство записи макросов включается одинаково. Давайте посмотрим, как получить к нему доступ в Word 2010.

Откройте окно настроек Word (Файл – Параметры) и отметьте флажком вкладку Разработчик в Настройках ленты (см. рисунок 1).

Рисунок 1 – Включаем вкладку «Разработчик»

Сама вкладка выглядит так, как показано на рисунке 2.

Рисунок 2 – Вкладка «Разработчик»

Здесь большое количество кнопок, однако мы сосредоточимся только на группе Код.

Записываем макрос с помощью макрорекордера

Давайте нажмём кнопку Запись макроса группы Код. Эта кнопка также продублирована в строке состояния Word (появляется после включения вкладки) – см. рисунок 3.

Рисунок 3 – Панель состояния Word 2010

После нажатия на кнопку откроется диалоговое окно (см. рисунок 4), где вы можете:

  • задать своему будущему макросу имя, краткое описание,
  • сделать его доступным для всех документов или только для текущего,
  • сделать быстрый вызов по кнопке на панели инструментов или по комбинации клавиш.

Единственное замечание здесь следует сделать насчёт имени макроса – оно не должно содержать пробелов и спецсимволов. Старайтесь обойтись только буквами и цифрами (причём с цифры начинать также нельзя).

Рисунок 4 – Окно «Запись макроса»

Оставим пока в стороне кнопки и клавиши быстрого вызова и просто нажмём ОК.

Кнопка записи макроса в строке состояния изменит свой вид на значок Стоп , а возле курсора появится изображение аудиокассеты. Это говорит о том, что запись началась. Теперь вам просто нужно выполнить действия, которые требуются для достижения результата.

Спешить не нужно, поскольку в макрос не записывается продолжительность вашей работы. В нём будет представлен только результат. Учтите только, что в процессе записи вам будет недоступно управление курсором с помощью мыши.

И это правильно, поскольку отследить такие перемещения очень сложно.

В качестве учебного примера давайте создадим «фонарь» документа.

«Фонарём» называют элемент, содержащий сведения о документе и его создателе, размещаемый на последней странице. Можно сказать, что это аналог электронных свойств, хотя, пожалуй, именно электронные свойства являются аналогом «фонаря».

После выполнения нужных действий (ввода текста) нажмите на кнопку Стоп . Вам не будет выдано никаких сообщений, но можете не сомневаться, что запись завершилась успешно. Чтобы убедиться в этом, нажмите кнопку Макросы на вкладке Разработчик.

Рисунок 5 – Список доступных макросов

В окне, изображённом на рисунке 5, будут перечислены все доступные макросы (пока у нас только один). Запустите его, дважды щёлкнув по имени в списке или нажав на кнопку Выполнить. Вы увидите, что действия выполняются в точности так, как вы их записали.

Редактирование макроса

Всё в том же окне макросов выделите нужную строку и нажмите кнопку Изменить. Откроется окно редактора Visual Basic for Applications (см. рисунок 6).

Конечно, этот редактор не очень удобен и его внешний вид и функционал не меняется уже достаточно давно (в отличие от Visual Studio, например), но и с его помощью вы можете писать скрипты.

К тому же он входит в состав пакета Microsoft Office, а Visual Studio Professional нужно приобретать отдельно за немалую сумму.

Рисунок 6 – Окно редактора Visual Basic for Applications

Слева мы видим навигатор проекта и окно свойств. Пока мы только учимся писать макросы, навигатор нам не потребуется – всё уместится в одну функцию.

Справа – большое окно кода. Не обращайте пока внимания на раскрывающиеся списки над ним, в малых проектах можно обойтись и без них.

Давайте посмотрим на код, созданный макрорекордером.

Sub ИмяМакроса()End Sub

Эти строки формируют функцию с определённым именем, а весь код располагается между ними.

Источник: //coutty.wordpress.com/2010/07/17/%D1%81%D1%82%D0%B0%D1%82%D1%8C%D1%8F-%D0%B0%D0%B2%D1%82%D0%BE%D0%BC%D0%B0%D1%82%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D1%8F-%D0%B4%D0%B5%D0%B9%D1%81%D1%82%D0%B2%D0%B8%D0%B9-%D0%B2-%D0%BF%D1%80%D0%B8%D0%BB/

Макросы и функции в Word для быстрого форматирования

Создание макросов для упрощения работы с Microsoft Word

Макросы в Word — это такая полезная штука, которую просто обязан знать каждый, кто много работает с текстами.

Предысторию написания данной статьи, а также ее полезность можно оценить по видеоролику.

Макросы — теория

Теперь немного теории.

Как известно, в текстовом редакторе Word есть очень полезная функция «Найти и заменить« (вызывается через сочетание клавиш Ctrl+H или меню «Правка» -> «Заменить…»), которой, к сожалению, пользуются не так часто. Но еще реже используют данную функцию в режиме «Подстановочные знаки«.

А между тем данное умение может принести неоценимую пользу. Свое знакомство с подстановочными знаками и их изучение можно начать со статьи Сергея Хозяинова (будет полезна для новичков).

Я же хочу рассказать о более конкретных случаях применения этого знания, а именно: использование замены с помощью подстановочных знаков и форматирование текста в макросах.

Макросы — это такие полезные штуки, которые позволяют автоматизировать часто выполняемые операции (в случае примера на видео, это форматирование текста). О способах записи и создания макросов можно найти тысячи статей на просторах Интернета.

[attention type=yellow]
Нас же будет интересовать вариант, при котором макрос записывается вручную во встроенном в Word редакторе Visual Basic. Суть использования макросов мною основана на принципе конструктора: макрос состоит из набора кирпичиков-функций, которые заранее прописаны и могут размещаться в любой требуемой последовательности.
[/attention]

Каждая же из функций является действием, либо набором действий, она имеет свое уникальное имя. В макросе же надо лишь указать имя функции для ее вызова.

Макросы — практика

Мой список функций »

Function Tire()‘заменяет дефис в начале абзаца на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p- ».Replacement.Text = «p= ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tire2()‘заменяет дефис окруженный пробелами на тиреActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = » — ».Replacement.Text = » = ».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.

MatchSounds = False.MatchAllWordForms = False.Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Defis()‘заменяет тире в начале абзаца на дефисActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «p=».Replacement.Text = «p-».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.

[attention type=green]
MatchWholeWord = False.MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.
[/attention]

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Prob()‘заменяет множественные пробелы на одиночный‘удаляет множественные и одиночные пробелы в начале абзаца‘удаляет множественные и одиночные пробелы в конце абзаца‘удаляет знаки абзаца идущие до текста в начале документа‘и знаки абзаца идущие после текста в конце документаActiveDocument.Content.Find.ClearFormattingActiveDocument.

Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.MatchWildcards = False.Execute «w», , , , , 0, , , 0, » «, 2.Execute «pw», , , , 0, , , , 0, «p», 2.Execute «wp», , , , 0, , , , 0, «p», 2End WithIf ActiveDocument.Paragraphs.Count > 1 ThenDo While ActiveDocument.Paragraphs.Last.Range.Text = Chr(13) And _ActiveDocument.Paragraphs.Count > 1ActiveDocument.Paragraphs.Last.

Range.DeleteLoopEnd IfSelection.HomeKey wdStoryWhile Selection.Paragraphs.First.Range.Characters.Count = 1Selection.Paragraphs.First.Range.DeleteWendEnd FunctionFunction Format()‘весь текст делает 14 размером TimesNewRoman‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Times New Roman»ActiveDocument.Content.Font.Size = 14ActiveDocument.Content.ParagraphFormat.

[attention type=red]
LineSpacing = LinesToPoints(1.5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Format2()‘весь текст делает 11 размером Arial‘с 1,5 интервалом и выравнивает его по ширинеActiveDocument.Content.Font.Name = «Arial»ActiveDocument.Content.Font.Size = 11ActiveDocument.Content.ParagraphFormat.LineSpacing = LinesToPoints(1.
[/attention]

5)ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustifySelection.HomeKey wdStoryEnd FunctionFunction Zagol()‘делает заголовок (первый абзац) документа жирным‘и выравнивает его по центруActiveDocument.Paragraphs(1).Range.SelectSelection.Font.Bold = TrueSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSelection.

HomeKey wdStoryEnd FunctionFunction Symb()‘Подсчитывает количество символов в документе‘и выводит сообщениеspacecount = ActiveDocument.Content.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)MsgBox «В тексте содержится символов (включая пробелы) — » & spacecount & » »End FunctionFunction Krasn()‘Делает красный шрифт у выделенного словаSelection.Font.

Color = wdColorRedEnd FunctionFunction Intjyr()‘Выделяет жирным все вопросы «И:»ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(00130013И:)(*)(0013)».MatchWildcards = True.Forward = True.Replacement.Text = «123».Replacement.Font.Bold = True.

[attention type=yellow]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction One_to_Two()‘Разделяет одно предложение на два (перед выполнением курсор ставить после запятой)Selection.TypeBackspaceSelection.TypeText Text:=».»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.
[/attention]

Case = wdTitleSentenceEnd FunctionFunction Two_to_One()‘Склеивает два предложения в одно (перед выполнением курсор ставить после точки)Selection.TypeBackspaceSelection.TypeText Text:=»,»Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Range.Case = wdTitleSentenceEnd FunctionFunction Nimerstr()‘Вставляет нумерацию страниц справа вверхуSelection.Sections(1).Headers(1).PageNumbers.

Add PageNumberAlignment:= _wdAlignPageNumberRight, FirstPage:=TrueEnd FunctionFunction MastifTime()‘Находит и заменяет тайм-коды в обычном формате (чч:мм:сс), на формат‘требуемый для Мастифа (чч-мм-сс)ActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «(0013)(([0-9]@:[0-9]@:[0-9]@))».MatchWildcards = True.

Forward = True.Replacement.Text = «12».Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «:([0-9]@):».MatchWildcards = True.Forward = True.Replacement.Text = «-1-».

[attention type=green]
Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Troetoch()‘Заменяет три точки идущие подряд на знак троеточияActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «…».Replacement.Text = «…».Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.
[/attention]

MatchWildcards = False.MatchSounds = False.MatchAllWordForms = False.

Execute Replace:=wdReplaceAllEnd WithEnd FunctionFunction Tehnik()‘Ищет в тексте технические надписи в скобках‘если они прописаны без точки, то перед закрывающей скобкой ставится точка,‘если они написаны (случайно) не курсивом, то выделяются имDim MyCollection As New CollectionWith MyCollection.Add («Аплодисменты»).Add («Говорят одновременно»).Add («Дефект записи»).Add («Дефект звука»).Add («Смена кадра»).Add («Обрыв записи»).Add («Техническая съемка»).Add («Техническая реплика»).Add («Технический разговор»).Add («Конец просмотра видеоролика»).Add («Начало просмотра видеоролика»).Add («Просмотр видеоролика»).Add («Возобновление тайм-кода»).Add («Остановка тайм-кода»).Add («Смена тайм-кода»).Add («Смех»).

Add («Смеется»).Add («Кашель»).Add («Кашляет»)End WithDim i As IntegerFor i = 1 To MyCollection.CountActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «))».MatchWildcards = True.Forward = True.Replacement.Text = «(1.)».Replacement.Font.Italic = True.

Execute Replace:=wdReplaceAllEnd WithActiveDocument.Content.Find.ClearFormattingActiveDocument.Content.Find.Replacement.ClearFormattingWith ActiveDocument.Content.Find.Text = «((» & MyCollection.Item(i) & «.))».MatchWildcards = True.Forward = True.Replacement.Text = «(1)».Replacement.Font.Italic = True.Execute Replace:=wdReplaceAllEnd WithNext iEnd FunctionSub Zamena()‘ Комплекс последовательных функций при форматировании работ всех видов кроме Первого канала.ProbTire2TireTroetochNimerstrTehnikSymbEnd FunctionSub Zamena2()‘ Комплекс последовательных функций при форматировании работ Первого канала.ProbDefisTire2TroetochNimerstrTehnikSymbEnd FunctionSub ФОРМАТ()FormatProbTire2TireTroetochIntjyrTehnikNimerstrZagolSymbEnd SubSub МАСТИФ()Format2ProbIntjyrTehnikMastifTimeNimerstrZagolSymb

End Sub

[attention type=red]
Прописав это и сохранив в шаблоне «Normal.dot« можно получить доступ к этим макросам из любого документа. Вызывается окно выбора макросов горячей клавишей Alt+F8.
[/attention]

Я предпочитаю использовать кнопки на панели инструментов. Поместить на нее кнопку и привязать к ней макрос очень легко. Об этом доступно написано в данной статье.

Источник: //dvorkin.by/macros/

Как создать макросы в Word?

Создание макросов для упрощения работы с Microsoft Word

Большинство начинающих пользователей, которые только приступили к изучению компьютера в целом и освоению программы Word в частности, не знают, что такое макрос. Причем полагают, что макрос представляет собой довольно сложную и невыполнимую задачу. Но на самом деле макрос — это очень простая и удобная вещь, пользоваться которой должен уметь любой юзер.

Что такое макрос и для чего он используется?

Макрос представляет собой инструмент в программе Ворд, который позволяет запоминать какие-либо определенные задачи и действия, а потом в дальнейшем автоматически их выполнять.

Он является набором команд, при помощи которых можно автоматизировать выполнение повторяющихся действий.

Такой элемент является очень важным и нужным, особенно для тех, кто привык экономить свое время.

Макрос в программе Ворд может использоваться для следующих целей:

  1. Для ускорения процесса обработки текста. В частности, с помощью этого элемента можно быстро заполнить требуемую область либо отформатировать содержимое документа.
  2. Для того чтобы объединить несколько команд. Согласитесь, создавать табличную форму в Ворд и потом еще наполнять ее содержимым довольно проблематично. Такого рода инструмент позволит быстро создать нужный параметр и в дальнейшем просто вставить его в требуемое место.
  3. Для того чтобы максимально упростить доступ к всевозможным параметрам, которые разбросаны в разных диалоговых окнах. Пользователи инструмента Ворд наверняка знают, как сложно порой отыскать требуемый элемент из-за обилия различных многоуровневых меню. Подобный компонент поможет заметно упростить эту задачу.
  4. Для того чтобы автоматизировать обработку тех действий, которые являются весьма сложными и рутинными. Макросы в Ворд умеют доводить до автоматизма те параметры, на которые, казалось бы, уходит очень много драгоценного времени.

Как создать макрос?

Естественно, чтобы воспользоваться этим инструментом в Word, его нужно вначале создать. Этот процесс не несет в себе много сложностей, поэтому справиться с ним сможет абсолютно любой пользователь.

Первый вариант — это создание подобного элемента при помощи специального средства для создания макроса. Оно может быть как встроено в Word, так и взято с каких-либо сторонних источников.

Следует отметить, что этот пункт является довольно небезопасным, ведь в макросах, скачанных с интернета, запросто могут находиться вирусы, уничтожающие и крадущие важную для пользователя информацию.

Поэтому прежде чем выполнять найденный элемент в Word, следует убедиться, что он чист от различного рода недоброжелательных элементов. Для этого просто нужно просканировать его антивирусом.

Второй вариант — это создать элемент такого рода для Word путем использования специального программного кода, пишущегося на языке под названием Visual Basic.

Для этой цели необходимо предварительно обзавестись специальным редактором, который носит точно такое же название, как и сам язык программирования кода.

[attention type=yellow]
Нужно сказать о том, что этот пункт достаточно сложен и вряд ли подойдет для рядового пользователя.
[/attention]

Есть возможность провести процесс создания макросов в Word путем комбинирования вышеприведенных методик.

В результате получится стандартный элемент, который затем можно будет отредактировать и улучшить при помощи специального кода.

Однако следует знать, что этот пункт, как и предыдущий, подходит лишь для опытных пользователей. Ведь для создания такого инструмента потребуются немалые знания в программировании.

[attention type=green]
Для создания макросов в редакторе MS Office Word следует выделить фрагмент, для которого будет создаваться макрос.
[/attention]

Потом надо войти в меню «Вид — Макросы — Запись макроса», выполнить необходимые действия, которые надо записать, после чего выполняется остановка записи макроса.

Для того чтобы его использовать, необходимо выделить фрагмент текста, к которому следует его применить, войти в меню «Вид — Макросы — Макросы — Выполнить» и выбрать имя сохраненного макроса.

Как видно, процесс создания подобных элементов не несет в себе каких-либо определенных сложностей. Здесь самое главное — это грамотный и обдуманный подход к делу, который в разы увеличит шансы на успех.

[attention type=red]
Нужно заметить, что макросами могут пользоваться не только те, кому по роду службы необходимо заполнять объемные документы и бланки.
[/attention]

В частности, прибегать к использованию такого рода инструментов могут и обычные пользователи, которым необходимо что-либо напечатать в Ворде, к примеру, какие-либо официальные документы.

Ведь пользуясь подобным инструментом, можно сэкономить довольно большую часть своего времени и наделать намного меньше ошибок, чем при ручном вводе. Ведь, как показывает практика, использование таких элементов сводит на нет возможность ошибиться при последующем заполнении того же шаблона.

Источник: //itguides.ru/soft/word/kak-sozdat-makrosy-v-word.html

Создать макрос в ворд это легко

Создание макросов для упрощения работы с Microsoft Word

В этом уроке Вы узнаете:

  • Что такое Макросы в ворд
  • Как применить макросы в ворд
  • Как записать макрос в ворд

Добрый день дорогие друзья. Сегодня Мы разберем инструмент автоматизации, а именно макрос в ворд, который в некоторых случаях поможет сэкономить достаточное количество времени. Достаточно простая и при этом уникальная вещь при форматировании текста.

Что такое макросы в ворд

Макросы в программе Microsoft Office Word — это набор команд/сочетание клавиш на клавиатуре, сообщающее алгоритм выполнения действий в автоматическом режиме, для достижения результата. Другими словами, это записанная последовательность сочетания команд в единую команду.

Могу привести пример макроса из жизни: ещё совсем недавно в выходной день, кто-нибудь из вашей семьи уходил на рынок за покупками. И для выполнения своей задачи необходимо было пройтись по прилавкам с различным наименованием товара для приобретения мяса, зелени, молочной продукции, бакалеи, хоз.

товаров и т.д. Алгоритм был следующий:

  1. Выйти за покупками
  2. Пройтись по n-количеству продавцов
  3. Доставить купленный товар домой

Сейчас же можно взять и заказать весь товар через интернет/по телефону. Это уже будет процесс с минимальным использования Ваших действий, где Вам необходимо сделать заказ, принять доставку, расплатиться:

  1. Фирма, предоставляющее услуги доставки заказанного Вами товара, наладило взаимодействия между поставщиком товара и услугой транспортировки.
  2. Вы в свою очередь сделали заказ, кликнув по монитору или в приложении в телефоне.

Итог: кто-то выполняет сочетание различных действий за Вас, по вашему заказу.

Вот и в Microsoft Word похожий процесс.

Вы записываете сочетание различных команд в одну команду (вы выступаете в роли той фирмы, которое наладило взаимоотношение), и выводите кнопку этой команды на панель быстрого доступа (простите за тавтологию, просто так понятнее:)) далее Вы нажимает на кнопку, компьютер выполняет записанную последовательность команд и мигом получаете результат с использованием всего одного действия. Это круто;)

Как применить макрос в ворд

Применяются макросы в самых различных задачах по форматированию и структурированию текста. Поверьте, иногда лучше потратить четыре часа на запись макроса, чем два дня на выполнение задачи без макроса.

Ярким примером такого случая является структурирование текста для создание программного обеспечения. А точнее, Вам дают перечень помещений в каком-то огромном здании, и вам необходимо выстроить их иерархию из предоставленных данных.

Но это примеры от среднего уровня и выше, а пока я Вам расскажу и покажу основы, принцип действия макроса на достаточно легком примере.

Как записать макрос в word

Самым легким макросом, с которым мне приходилось встречаться, это создание какого-нибудь символа с использованием шестнадцатеричного кода, например ударение над буквой в ворде.

В данной статье написано как сделать ударение с использованием кода (для ударения этот код — 0301). Переходите по ссылке Ударение над буквой в ворде. 

Но Нам главное понять процедуру создания макроса, так что идеальный пример.

  1. Устанавливаем курсор мышки за буквой, на которую хотим поставить ударение (в слове «года» нам нужно поставить ударение на букву «о»).
  1. Переходим в вкладку «Вид» → раздел «Макросы» →нажимаем «Запись Макроса»
  1. Вводим имя нашему макросу, в поле «Назначить макрос» нажимаем «Кнопке», при желании можно добавить описание (это поле удобно заполнять, когда много макросов, и некоторые из них могут иметь подобные либо редко-встречающиеся названия).
  1. В появившемся окне выделяем создаваемый макрос нажимаем «Добавить» и нажимаем «Ок»
  1. После того, как Вы нажали «Ок» пошла запись макроса. Теперь каждое нажатие клавиши записывается ровно в той же последовательности. Вводим 0301 и нажимаем сочетание клавиш ALT+X
  1. Теперь во вкладке «Вид», в разделе «Макросы» нажимаем на «Макросы» → «Остановить запись»

На этом этапе макрос записался и вынесен на панель быстрого доступа. Теперь, когда Вы в следующий раз захотите поставить ударение, Вам просто потребуется нажать на значок на панели быстрого доступа (это значок стоит по умолчанию, но его можно поменять).

Ворд файл макрос

Вот я и показал, как использовать в ворде файл макроса. Повторю, это самый простой пример, но в следующих уроках я обязательно уделю время какой-нибудь более сложной записи макроса, чтобы расширить понимание этого инструмента в Word.

Все спасибо, если появились вопросы, обязательно задавайте, будем решать его.

Источник: //www.gidprog.ru/sozdat-makros-v-vord-eto-legko/

Виноградненская средняя общеобразовательная школа

Подготовила

учитель информатики

Кусраева Н.А.

2013 год

Тема урока: «Создание макросов в текстовом редакторе»

Сведения об авторе:

Кусраева Нонна Алексеевна

РСО-Алания, Моздокский р-н, МБОУ СОШ с.Виноградное

Учитель информатики

Общая информация

Учебный предмет: Информатика

Класс: 7

Авторская программа к учебникам: Л.Л. Босова, А.Ю. Босова, программа курса «Информатика»

Тема урока: «Создание макросов в текстовом редакторе»

Место урока в структуре учебного занятия: урок в разделе «обработка текстовой информации».

Цели урока:

  • предметныеумение применять макросы при работе с текстовыми документами, формирование представления о компьютере как универсальном устройстве обработки информации, развитие алгоритмического мышления
  • метапредметные – основы ИКТ-компетентности; формирование объектно-ориентированного мышления – способность работать с объектами, объединять отдельные предметы в группу с общим названием, общепредметные навыки обработки информации;
  • личностные – формирование готовности к продолжению обучения с использованием ИКТ, понимание значимости информационной деятельности для современного человека.

Решаемые учебные задачи:

  • систематизировать представления учащихся об этапах создания текстового документа; о возможности автоматизации повторяющихся операций при создании тестового документа;
  • актуализировать имеющиеся умения оформления текстовых документов в соответствии с заданными требованиями.

Тип урока

  • Изучение нового материала.

Ход урока

I. Мотивирование к учебной деятельности

На слайде презентации: кроссворд.

  • Вопрос: Как можно создать кроссворд в текстовом документе?

(использовать таблицу для создания сетки.)

  • Вопрос: Что надо знать при построении таблицы?

(Количество строк и количество столбцов. )

Вопрос: Сколько строк и столбцов?

  • Опишите путь создания таблицы.

(Вставка/Таблица / Вставить таблицу / указать количество строк и столбцов / ОК)

  • Будем считать, что сетка создана. Дальнейшие действия?

( Обрамление ячеек.)

  • Вопрос: Как выполнить это действие?

( Выделить / щелчок ПКМ / Границы и заливка)

  • Вопрос: Какие действия необходимо выполнять многократно?

(Обрамление ячеек)

  • Можно ли как – то упростить эту работу?

Автоматизировать эту рутинную операцию можно, применяя ….. для ответа на этот вопрос необходимо разгадать ключевое слово в кроссворде. (МАКРОС).

– Вопрос: Значит тема нашего урока….. («Создание макросов в текстовом редакторе»).

-Вопрос: цель? (познакомиться с порядком создания макросов). (Сопровождается показом презентации).

II. Способы достижения намеченной цели по построению нового знания (Теоретический материал)

В офисном пакете MS Office существует возможность написания макросов – специальных дополнений выполняющих какие-либо действия на языке программирования Visual Basic. Но не пугайтесь сразу, макрос мы будем делать без программирования, а воспользуемся автоматической записью команд.

В Справке (F1) найдите ответ на вопрос – что обозначает термин МАКРОС.

Термин макрос обозначает возможность воспроизведения последовательности нажатий клавиш (или других элементарных действий), которые приводят к выполнению заранее указанного набора действий.

Это означает, что в текстовом редакторе, как и в некоторых других прикладных программах, например, в электронных таблицах, достаточно один раз записать нужную последовательность действий, а затем, при необходимости, давать компьютеру приказ выполнить эти действия.

Указание даётся через панель инструментов либо назначаются клавиши.

Порядок создания макросов рассмотрим, выполняя Задание 1. (необходимо заранее заготовить файл с текстом на осетинском языке без символа æ; на столах у учащихся распечатки с образцом оформления текста)

III. Первичное применение знаний с целью формирования умений (учащиеся осуществляют поиск решения по плану).

Задание1 . Оформите текст в файле по данному образцу.

    1. Æгас цæут, сывæллæттæ: Зæринæ æмæ Мæдинæ, Янæ æмæ Лёня, Эммæ æмæ Фатимæ. Хорз ахуыр кæнынмæ бæллут.
    2. Лæппутæ цауынц хъæдмæ.
    3. Æз кæсын «Рæстзинад».

Перевод с осетинского языка: 1. Здравствуйте, дети: Зарина и Мадина, Яна и Лёня, Эмма и Фатима. Стремитесь хорошо учиться. 2. Мальчики идут в лес. 3. Я читаю «Растзинад».(название газеты)

В данном задании повторяющимися действиями являются вставка из таблицы символов символа æ .

Создадим макрос для вывода на экран символа æ. Для этого:

Установите курсор перед буквой г.

Выполните команду Вид/Макросы/Запись макроса..

В окне Запись макроса удалите имя, которое предлагает компьютер, и введите новое имя Буква.

Пусть мы собираемся назначить для выполнения макроса клавиши. Щелчок по кнопке Назначить макрос клавишам.

[attention type=yellow]
В комбинациях клавиш можно использовать символьные или функциональные клавиши в сочетании с Alt или Ctrl . Удобнее всего использовать Alt или Ctrl в сочетании с редко используемыми символами «э», «ъ», «ё». Для нашего макроса Буква пусть назначим сочетание Alt + э.
[/attention]

Выполнить команду Назначить / Закрыть.

Начинается запись макроса. А курсор принял вид аудиокассетки со стрелочкой.

Далее необходимо выполнить нужные действия по вставке из таблицы символов символ æ: Вставка / Символ ( шрифт Calibri, дополнительная латиница 1)/æ / вставить / закрыть.

Выполнить команду Остановить запись.

Макрос для вывода изображения символа æ готов. Теперь достаточно устанавливать курсор в нужное место текста и нажимать Alt + э.

IV. Физминутка

Учитель:

1. Учитель дает энергичную команду: «Потянитесь, сядьте прямо! Сплетите кольца рук перед собой. Выверните кисти рук ладонями наружу. С полным вдохом поднимите руки со сплетенными пальцами над головой. С резким выдохом опустите руки». Повторить 2 раза.

[attention type=green]
2. Не поворачивая головы, посмотреть направо и зафиксировать взгляд на счет 1-4. Затем посмотреть вдаль прямо на счет 1-6. Аналогично проводятся упражнения, но с фиксацией взгляда влево, вверх, вниз. Повторить 3-4 раза.
[/attention]

Вернёмся к вопросу о кроссворде.

Какие этапы выполнения кроссворда можно упростить, применив макросы? (Оформление ячеек под слова)

Какие следует создать макросы? (Один – для оформления вертикального блока ячеек, другой – для горизонтального).

V. Практическая работа (применение полученных знаний).

Создание и оформление тематического кроссворда «Компоненты компьютера» 

По горизонтали:

3. Специальная микросхема для управления внешним устройством.

6. Устройство, обеспечивающее выполнение логических и арифметических операций.

10. Жесткий диск.

11. Печатающее устройство.

12. Устройство ручного ввода графических данных, выполненное в виде ручки.

14. Устройство визуального отображения информации.

15. Манипулятор в виде небольшой коробочки.

17. Гибкий (флоппи) диск.

18. Устройство сопряжения компьютера и внешнего устройства.

19. Устройство, с помощью которого изображение считывается по точкам.

По вертикали:

1. Устройство для создания электронной копии с бумажных носителей.

2. Микросхема, обеспечивающая увеличение быстродействия при выполнении арифметических операций.

4. Устройство для вывода графической информации на бумагу, графопостроитель.

5. Ячейка микропроцессора.

7. Обобщённое название устройств для хранения информации.

8. Накопитель на магнитной ленте, заменивший кассетный магнитофон.

9. Устройство, передающее и принимающее информацию по компьютерам сетям.

12. Устройство вывода звуковой информации, колонки.

[attention type=red]
13. Устройство, с помощью которого можно воспроизводить телепередачи на экране монитора.
[/attention]

16. Устройство, обеспечивающее передачу данных и управляющих сигналов между компонентами компьютера.

Порядок выполнения задания

  • Вставить в документ таблицу, в которой количество строк и столбцов соответствует максимальному количеству клеток подготовленного на бумаге кроссворда по горизонтали и по вертикали.
  • Выделив эту таблицу, установить ширину столбцов и высоту строк таким образом, чтобы ячейки получились квадратными.
  • Уберите сетку таблицы (выделить таблицу, щелчок ПКМ – Границы и заливка– Тип границы Нет).
  • Записать в виде макроса оформление блока ячеек по горизонтали:выделить блок ячеек под первое слово по горизонтали;записать макрос. Выполняемые действия: щелчок ПКМ – Границы и заливка– Тип границы Все; установка оформления для всех границ ячеек, затем заливки.
  • Аналогично записать макрос оформления блока ячеек по вертикали.
  • Для оформления кроссворда нужно выделять блоки ячеек и нажимать назначенную для макроса комбинацию клавиш.
  • Выделить полученную сетку кроссворда, установить тип шрифта и расположение символов в ячейках. Проставить цифры в нужных ячейках.
  • Записать вопросы кроссворда, оформить документ по вашему усмотрению.
  • Сохранить работу в своей папке под именем Кроссворд.

VI.Подведём итог урока

  • Что нового вы узнали сегодня на уроке?
  • Когда можно применять макросы?
  • Порядок создания макроса с помощью клавиш?

VII. Рефлексия

VIII. Домашнее задание

  • Знать алгоритм создания макроса.
  • Ответить на вопросы кроссворда.

Список используемых ресурсов:

  1. Материалы с интернет-сайтов rusedu.ru, itn.ru, festival.1september.ru, klyaksa.net.

Источник: //multiurok.ru/files/sozdaniie-makrosov-v-ms-word-konspiekt-uroka-priezientatsiia.html

Макросы в Microsoft Word

Создание макросов для упрощения работы с Microsoft Word

Нередко простановка HTML тегов в статье занимает почти столько же времени, сколько ее написание. Особенно часто такая проблема возникает со статьями со сложной версткой, включающей множество заголовков, списков, цитат и стилей.

Заметно облегчить работу по подготовке текстов к публикации на web-сайте помогут макросы Word, которые могут автоматизировать любую задачу.

Для написания такого макроса требуется знание языка программирования Visual Basic for Applications (VBA), встроенного не только в линейку программных пакетов от MicroSoft, но и многие другие приложения.

Однако, благодаря тому, что VBA представляет собой упрощенную версию Visual Basic, начать писать простейшие скрипты может любой пользователь.

Кроме того, упростить задачу по написанию VBA макроса поможет возможность записи всех действий пользователя, которые автоматически преобразуются в программный код. Таким образом, чтобы создать простейший макрос, достаточно:

  • выбрать пункт меню Вид –> Макросы –> Запись макроса;
  • дать ему любое имя;
  • выполнить необходимые действия, которые вы хотите автоматизировать;
  • остановить запись (Вид –> Макросы –>Остановить запись).

Кликнув по пункту меню Вид –> Макросы –> Запись макроса, вы откроете окно со список всех имеющихся у вас макросов и сможете запустить их, отредактировать или удалить.

Расстановка тегов абзаца

в Word при помощи VBA макроса

Предварительная простановка тегов

в тексте перед его размещением требуется при работе со многими CMS. Далеко не все встроенные в web-движки редакторы могут автоматически опознать абзацы в статье и автоматически вставить туда тексты. Кроме того, нередко разбивку текста HTML-тегами требуют и от копирайтеров, чтобы размещение статьи занимало у заказчика как можно меньше времени.

Самый простой способ автоматизировать вставку HTML-тега в Word – это использование опции автозамены (окошко «Найти и заменить»), вызываемой сочетанием клавиш Ctrl+H.

Вставляем в строку «Найти» сочетание p, а в строку «Заменить на»

p

и жмем на кнопку «Заменить все». Word автоматически проставит необходимые HTML-теги в тексте.

Чтобы перевести данное действие в макрос, запустим его запись перед выполнением всех действий.

  1. Включаем запись макроса.
  2. Выполняем замену абзацев на HTML-теги в тексте при помощи опции «Заменить все».
  3. Останавливаем запись.

Теперь, чтобы проставить тег

в статье, вам будет достаточно нажать единственную кнопку запуска макроса.

Готовый код (помимо простановки тегов, он изменяет шрифт текста на Times New Roman и устанавливает размер 11):

Sub P()'''Selection.WholeStorySelection.Font.Name=”TimesNewRoman”Selection.Font.Size=11Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”p”.Replacement.Text=”

p

“.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.

HomeKeyUnit:=wdStorySelection.TypeTextText:=”

“Application.Browser.NextSelection.EndKeyUnit:=wdStorySelection.TypeBackspaceSelection.TypeBackspaceSelection.TypeBackspaceSelection.

TypeBackspace

End Sub

[attention type=yellow]
Учтите, что если в конце вашего текста есть много лишних абзацев, то данный VBA скрипт обязательно заменит их на HTML-теги, поэтому обязательно проверяйте то, как выглядит конец статьи, перед ее непосредственной публикацией на сайте.
[/attention]

Как видите, код интуитивно понятный, и многие команды VBA имеют говорящее название, указывающее на их функцию:

  • Selection.Find.Replacement.ClearFormatting – заменить в выбранном тексте,
  • .Text – текст, который нужно найти;
  • .Replacement.Text – текст для замены.

Команда Selection.TypeBackspace обозначение удаление одного символа, стоящего впереди курсора. Она необходима, так как в случае выполнения замены абзацев на HTML-теги

в конце всегда будет находиться лишний открывающий тег

.

Продолжим писать наш макрос для «Ворда». Пусть он обрамляет тегами или или текст, выделенный жирным.

Сделать это при помощи автозамены можно так.

В поле «Найти» вставляем текст (). В пункте «Формат» выбираем Шрифт –> Полужирный. Ставим галочку в пункте «Подстановочные знаки». В поле «Заменить на» пишем \1. Нажимаем «Заменить все».

[attention type=green]
У такой опции есть один недостаток: программа расставит обрамляющие HTML-теги не возле вокруг всего «куска» жирного текста, а вокруг каждого слова, следовательно, итоговый код будет очень грязный.
[/attention]

Чтобы исправить эту ошибку, просто заменим на пробел.

Итоговый код (на примере замены на ):

Sub B()'''Selection.Find.ClearFormattingSelection.Find.Font.Bold=TrueSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”\1.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.

MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text = “”.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.

ExecuteReplace:=wdReplaceAll

End Sub

[attention type=red]
Двойные кавычки в коде – это не опечатка, так как именно таким образом осуществляется экранирование кавычек в VBA-скриптах.
[/attention]

Аналогичным способом вы можете дополнить макрос, например, обрамляя курсив тегами или .

Автоматическая простановка тегов заголовков

Чтобы автоматически расставить заголовки H1, H2, H3, H4, H5 и H6, необходимо задать для них размер шрифта, отличный от остального текста. Например, если вы пишите статью 12 размером, можно выделять заголовки 16 размером. Тогда опция автозамены будет выглядеть так:

  • в поле «Найти» (),
  • в поле «Заменить на»

    \1

    ,

  • ставим галочку «Подстановочные знаки»,
  • в разделе «Формат» указываем 16 шрифт.

Затем заменяем лишние «

».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

\1

“.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchAllWordForms=False.MatchSounds=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Font.Size=16Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html».

Макрос будет выглядеть следующим образом:

Selection.Find.ClearFormattingSelection.Find.Font.Size=18Selection.Find.Replacement.ClearFormattingWithSelection.Find.Text=”()”.Replacement.Text=”

“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html“.Replacement.Text=””.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSounds=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

EndSub

Используя приведенные примеры, вы можете создавать собственные макросы, форматируя текст, как вам удобно, что позволит ускорить работу по подготовке тексте перед размещением на сайте.

Источник: //seo-praktika.com/makrosy-v-microsoft-word.html

Поделиться:
Нет комментариев

    Добавить комментарий

    Ваш e-mail не будет опубликован. Все поля обязательны для заполнения.