Макросы для word скачать

Дополнения, макросы

Описание: Если Вы, набирая текст в Word`е, забыли переключить раскладку клавиатуры, то Вам придется удалить набранный текст, и ввести его заново. Эти два макроса сделают всю работу за Вас. Нужно только выделить неправильно набранный текст и запустить соответствующий макрос.. Здесь Вы можете скачать Макрос Word

Версия программы: 1 Размер программы: 2 Kb Скачали: 4340

Описание: Макрос для Word97,который позволяет создавать макет книжки формата половины листа бумаги и редактировать его в режиме WYSIWYG, то есть видеть, как он будет напечатан, уже при редактировании. В полученный документ можно вставлять рисунки, таблицы, графику. Также имеется программа для конвертации текста, набранного в MS-DOS, в легко редактируемый формат.. Здесь Вы можете скачать Макрос Word97 ВерсткаТекстаКнижкой

Версия программы: 4 Размер программы: 120 Kb Скачали: 807

Описание: Многие пользователи часто испытывают желание «разукрасить» Word по своим вкусам — назначить красивые значки своим любимым командам и макросам, а стандартный набор предлагаемых рисунков для назначения кнопкам не удовлетворяет. Данный шаблон может помочь Вам решить эту проблему. Word содержит в себе около 3000 значков. Они назначены разным командам, большую часть которых обычный пользователь никогда не вызывает. Программа Icon Generator извлечет из «недр» Wordа эти значки, так что Вам останется лишь скопировать их на свои панели. Если Вы разрабатываете макросы для Word, то эта программа облегчит Вам жизнь — Вы сможете назначить своим макросам оригинальные иконки. В шаблоне также имеется готовая подборка красивых значков. Просто откройте шаблон в Wordе и копируйте значки на свои панели.. Здесь Вы можете скачать Макрос Word97 Генератор Иконок

Версия программы: 1 Размер программы: 15 Kb Скачали: 972

Описание: Макрос для MS Word97, состоящий из двух компонентов — Каталогизатора и Каталога картинок, которые позволяют вставлять в документ каталог из гиперссылок на файлы директории, а также создавать html-документ, содержащий избражения из определенной директории.. Здесь Вы можете скачать Макрос Word97 Каталогизатор

Версия программы: 1 Размер программы: 38 Kb Скачали: 511

Описание: Данная программа — макрокоманда для текстового редактора Word97. Она состоит из двух компонентов: программы Каталогизатор и программы КаталогКартинок. Программа Каталогизатор вставляет в активный документ список из гиперссылок на все или определенные файлы в какой-либо директории, причем имеется возможность отсортировывать файлы, а также вставлять после каждой ссылки на картинку .gif или .jpg ее изображение. К каждой ссылке можно приписать пояснение о назначении и содержании файла и впоследствии переходить к этому файлу из данного документа одним нажатием, не тратя время на поиски. Программа КаталогКартинок создает HTML-документ, содержащий ссылки на все или определенные файлы в какой-либо директории, при этом рядом с каждой ссылкой на картинку .gif или .jpg вставляется ее изображение. Можно указать, с какой стороны от ссылок вставлять картинки, какие — полные или краткие — указывать в гиперссылках имена и др. Обе программы могут также быть полезны при разработке Web-сайтов, содержащих много компонентов.. Здесь Вы можете скачать Макрос Word97 Каталогизатор

Версия программы: 1 Размер программы: 38 Kb Скачали: 952

Описание: Использующим в работе справочно-правовую систему КонсультантПлюс известно, что текст с заголовком НПА, скопированный из КонсультантПлюс и затем вставленный в документ, имеет не очень удачное форматирование и для сохранения стиля форматирования всего документа приходится тратить дополнительные усилия: на удаление лишних пробелов и переходов строк на перевод заглавных букв в строчные, на корректировку символа N, на вставку открывающих и закрывающих кавычек и пр. Применение макроса позволяет двумя элементарными движениями придать тексту из КонсультантПлюс приемлемые вид и форматирование для его использования в документе.. Здесь Вы можете скачать Макрос для MS Word и КонсультантПлюс

Версия программы: 1.0 Размер программы: 186 Kb Скачали: 1586

Описание: Макрос позволяет распечатать документ в виде брошюры в формате А4/2, то есть при сгибе листа получившейся твердой копии вы получите брошюрку.. Здесь Вы можете скачать Макрос для Word97-2000 «Печать книгой»

Версия программы: 1.2.3.3b Размер программы: 81 Kb Скачали: 3620

Описание: Данный набор содержит пять макросов для выполнения различных задач и инсталлятор с возможностью частичной установки макросов из набора. Может быть полезен любому, кто интересуется программированием на Visual Basic for Applications, так как в инсталляторе и макросах реализованы интересные технические решения. При работе с документами в Word97 часто приходится сохранять один и тот же документ в нескольких папках, например, в одной — основной, рабочий документ, а в двух-трех других — резервные копии. Постоянно заменять устаревшие резервные копии новыми версиями документа с помощью простого копирования с замещением может порядком надоесть, особенно если архивных папок несколько. С помощью этого макроса Вы можете запомнить в реестре до семи путей к Вашим папкам и впоследствии сохранять файлы, с которыми Вы работаете, в этих папках одним нажатием кнопки. Также имеются макросы для конвертации сносок Word в гипертекстовые, для обьединения файлов.. Здесь Вы можете скачать Набор макросов для Microsoft Word 97 Сохранить в п

Версия программы: 1 Размер программы: 62 Kb Скачали: 1289

Описание: Exctl_евская форма квитанции для подписки на периодические издания. Заполняете один раз базу данных изданий и раз в полгода распечатываете.Коррекция толь после смены цены подписки.. Здесь Вы можете скачать Подписка на прессу

Версия программы: 1 Размер программы: 37 Kb Скачали: 887

Описание: Данный построитель графиков имеет одну особенность, в отличие от других — здесь графики рисуются в текстовом редакторе Word а результат выглядит как графический объект — кривая. Программа написана на VBA.. Здесь Вы можете скачать Построитель графиков

Версия программы: 1.50 Размер программы: 321 Kb Скачали: 1621

ITGuides.ru

Вопросы и ответы в сфере it технологий и настройке ПК

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

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

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

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

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

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

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

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

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

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

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

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

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

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

dvorkin

Личный блог и сайт обо всем на свете

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

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

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

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

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

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

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

Макросы — это такие полезные штуки, которые позволяют автоматизировать часто выполняемые операции (в случае примера на видео, это форматирование текста). О способах записи и создания макросов можно найти тысячи статей на просторах Интернета. Нас же будет интересовать вариант, при котором макрос записывается вручную во встроенном в Word редакторе Visual Basic . Суть использования макросов мною основана на принципе конструктора: макрос состоит из набора кирпичиков-функций, которые заранее прописаны и могут размещаться в любой требуемой последовательности. Каждая же из функций является действием, либо набором действий, она имеет свое уникальное имя. В макросе же надо лишь указать имя функции для ее вызова.

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

[spoiler show=»Мой список функций»]Function Tire()
‘заменяет дефис в начале абзаца на тире
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «^p- »
.Replacement.Text = «^p^= »
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Function
Function Tire2()
‘заменяет дефис окруженный пробелами на тире
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = » — »
.Replacement.Text = » ^= »
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Function
Function Defis()
‘заменяет тире в начале абзаца на дефис
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «^p^=»
.Replacement.Text = «^p-»
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Function
Function Prob()
‘заменяет множественные пробелы на одиночный
‘удаляет множественные и одиночные пробелы в начале абзаца
‘удаляет множественные и одиночные пробелы в конце абзаца
‘удаляет знаки абзаца идущие до текста в начале документа
‘и знаки абзаца идущие после текста в конце документа
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.MatchWildcards = False
.Execute «^w», , , , , 0, , , 0, » «, 2
.Execute «^p^w», , , , 0, , , , 0, «^p», 2
.Execute «^w^p», , , , 0, , , , 0, «^p», 2
End With
If ActiveDocument.Paragraphs.Count > 1 Then
Do While ActiveDocument.Paragraphs.Last.Range.Text = Chr(13) And _
ActiveDocument.Paragraphs.Count > 1
ActiveDocument.Paragraphs.Last.Range.Delete
Loop
End If
Selection.HomeKey wdStory
While Selection.Paragraphs.First.Range.Characters.Count = 1
Selection.Paragraphs.First.Range.Delete
Wend
End Function
Function Format()
‘весь текст делает 14 размером TimesNewRoman
‘с 1,5 интервалом и выравнивает его по ширине
ActiveDocument.Content.Font.Name = «Times New Roman»
ActiveDocument.Content.Font.Size = 14
ActiveDocument.Content.ParagraphFormat.LineSpacing = LinesToPoints(1.5)
ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustify
Selection.HomeKey wdStory
End Function
Function Format2()
‘весь текст делает 11 размером Arial
‘с 1,5 интервалом и выравнивает его по ширине
ActiveDocument.Content.Font.Name = «Arial»
ActiveDocument.Content.Font.Size = 11
ActiveDocument.Content.ParagraphFormat.LineSpacing = LinesToPoints(1.5)
ActiveDocument.Content.ParagraphFormat.Alignment = wdAlignParagraphJustify
Selection.HomeKey wdStory
End Function
Function Zagol()
‘делает заголовок (первый абзац) документа жирным
‘и выравнивает его по центру
ActiveDocument.Paragraphs(1).Range.Select
Selection.Font.Bold = True
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.HomeKey wdStory
End Function
Function Symb()
‘Подсчитывает количество символов в документе
‘и выводит сообщение
spacecount = ActiveDocument.Content.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)
MsgBox «В тексте содержится символов (включая пробелы) — » & spacecount & » »
End Function
Function Krasn()
‘Делает красный шрифт у выделенного слова
Selection.Font.Color = wdColorRed
End Function
Function Intjyr()
‘Выделяет жирным все вопросы «И:»
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «(^0013^0013И:)(*)(^0013)»
.MatchWildcards = True
.Forward = True
.Replacement.Text = «123″
.Replacement.Font.Bold = True
.Execute Replace:=wdReplaceAll
End With
End Function
Function One_to_Two()
‘Разделяет одно предложение на два (перед выполнением курсор ставить после запятой)
Selection.TypeBackspace
Selection.TypeText Text:=».»
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Range.Case = wdTitleSentence
End Function
Function Two_to_One()
‘Склеивает два предложения в одно (перед выполнением курсор ставить после точки)
Selection.TypeBackspace
Selection.TypeText Text:=»,»
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Range.Case = wdTitleSentence
End Function
Function Nimerstr()
‘Вставляет нумерацию страниц справа вверху
Selection.Sections(1).Headers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
End Function
Function MastifTime()
‘Находит и заменяет тайм-коды в обычном формате (чч:мм:сс), на формат
‘требуемый для Мастифа (чч-мм-сс)
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «(^0013)(([0-9]@:[0-9]@:[0-9]@))»
.MatchWildcards = True
.Forward = True
.Replacement.Text = «12»
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «:([0-9]@):»
.MatchWildcards = True
.Forward = True
.Replacement.Text = «-1-»
.Execute Replace:=wdReplaceAll
End With
End Function
Function Troetoch()
‘Заменяет три точки идущие подряд на знак троеточия
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «…»
.Replacement.Text = «…»
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Function
Function Tehnik()
‘Ищет в тексте технические надписи в скобках
‘если они прописаны без точки, то перед закрывающей скобкой ставится точка,
‘если они написаны (случайно) не курсивом, то выделяются им
Dim MyCollection As New Collection
With MyCollection
.Add («Аплодисменты»)
.Add («Говорят одновременно»)
.Add («Дефект записи»)
.Add («Дефект звука»)
.Add («Смена кадра»)
.Add («Обрыв записи»)
.Add («Техническая съемка»)
.Add («Техническая реплика»)
.Add («Технический разговор»)
.Add («Конец просмотра видеоролика»)
.Add («Начало просмотра видеоролика»)
.Add («Просмотр видеоролика»)
.Add («Возобновление тайм-кода»)
.Add («Остановка тайм-кода»)
.Add («Смена тайм-кода»)
.Add («Смех»)
.Add («Смеется»)
.Add («Кашель»)
.Add («Кашляет»)
End With
Dim i As Integer
For i = 1 To MyCollection.Count
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «((» & MyCollection.Item(i) & «))»
.MatchWildcards = True
.Forward = True
.Replacement.Text = «(1.)»
.Replacement.Font.Italic = True
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Content.Find.ClearFormatting
ActiveDocument.Content.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = «((» & MyCollection.Item(i) & «.))»
.MatchWildcards = True
.Forward = True
.Replacement.Text = «(1)»
.Replacement.Font.Italic = True
.Execute Replace:=wdReplaceAll
End With
Next i
End Function
Sub Zamena()
‘ Комплекс последовательных функций при форматировании работ всех видов кроме Первого канала.
Prob
Tire2
Tire
Troetoch
Nimerstr
Tehnik
Symb
End Function
Sub Zamena2()
‘ Комплекс последовательных функций при форматировании работ Первого канала.
Prob
Defis
Tire2
Troetoch
Nimerstr
Tehnik
Symb
End Function
Sub ФОРМАТ()
Format
Prob
Tire2
Tire
Troetoch
Intjyr
Tehnik
Nimerstr
Zagol
Symb
End Sub
Sub МАСТИФ()
Format2
Prob
Intjyr
Tehnik
MastifTime
Nimerstr
Zagol
Symb
End Sub[/spoiler]

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

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

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

ITGuides.ru

Вопросы и ответы в сфере it технологий и настройке ПК

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

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

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

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

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

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

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

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

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

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

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

Для создания макросов в редакторе MS Office 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, а в строку «Заменить на»

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

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

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

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

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

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

Sub P()
‘
‘
‘
Selection.WholeStory
Selection.Font.Name=»TimesNewRoman»
Selection.Font.Size=11
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text=»^p»
.Replacement.Text=»

»
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
Selection.HomeKeyUnit:=wdStory
Selection.TypeTextText:=»

»
Application.Browser.Next
Selection.EndKeyUnit:=wdStory
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
End Sub

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

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

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

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

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

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

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

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

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

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

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

Sub B()
‘
‘
‘
Selection.Find.ClearFormatting
Selection.Find.Font.Bold=True
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text=»( )»
1
.Forward=True
.Wrap=wdFindContinue
.Format=True
.MatchCase=False
.MatchWholeWord=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
WithSelection.Find
.Text = » »
.Replacement.Text=»»
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
End Sub

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

Аналогичным способом вы можете дополнить макрос, например, обрамляя курсив тегами &#60i&#62&#60&#47i&#62 или &#60blockquote&#62&#60&#47blockquote&#62.

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

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

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

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

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

Selection.Find.ClearFormatting
Selection.Find.Font.Size=18
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text=»( )»
.Replacement.Text=»

»
.Replacement.Text=»»
.Forward=True
.Wrap=wdFindContinue
.Format=True
.MatchCase=False
.MatchWholeWord=False
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
EndSub

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