Како написати Ворд 2016 макрое за замену елемената текста

Када радите са документима у програму Ворд 2016, посебно са дужим, пожелећете додатну лакоћу и ФУНКционалност макроа који могу да мењају текстуалне речи, фразе или елементе. Да бисте креирали макрое, вероватно ће вам требати програмски језик Висуал Басиц за апликације (ВБА), који је огроман, сложен и застрашујући. То значи да има велики потенцијал, али није нешто што ћете седети и научити током лежерног поподнева.

Ево неколико макроа за „замену“ који ће вам помоћи да почнете да прилагођавате свој Ворд доживљај.

Замена речи у програму Ворд 2016

Ево згодног макроа који ћете вероватно користити све време. Ворд_свап макро свопови две речи. Пресече прву реч, а затим је налепи иза друге речи:

Суб ворд_свап()

'

' ворд_свап Мацро

' Замени две речи лево-десно

'

Селецтион.МовеРигхт Унит:=вдВорд, Цоунт:=1, Ектенд:=вдЕктенд

Селецтион.Цут

Селецтион.МовеРигхт Унит:=вдВорд, Цоунт:=1

Селецтион.Пасте

Енд Суб

Ови тастери су снимљени да би се направио овај макро:

Цтрл+Схифт+ →
Реч десно од курсора је изабрана.

Цтрл+Кс
Реч је исечена.

Цтрл+ →
Курсор се помера после друге речи.

Цтрл+В
Оригинална реч је налепљена.

Ворд макрои не могу да снимају кликове мишем. Када треба да изаберете текст, користите тастере са курсором плус тастер Схифт или користите тастер Ф8 (проширени избор).

Такође, да би овај макро функционисао, показивач уметања мора бити постављен на почетак прве речи.

И/или замена речи у програму Ворд 2016

Још један макро за замену речи који ћете вероватно често користити макро анд_ор_ворд_свап . За разлику од обичне замене речи, циљ овог макроа је да се замене речи са обе стране везника. На пример, мењање овога или онога у оно или ово.

Као и код макроа ворд_свап , овај макро је снимљен из уноса притиском на тастер :

Суб анд_ор_ворд_свап()

'

' анд_ор_ворд_свап Мацро

' Замените две речи у споју

'

Селецтион.МовеРигхт Унит:=вдВорд, Цоунт:=1, Ектенд:=вдЕктенд

Селецтион.Цут

Селецтион.МовеРигхт Унит:=вдВорд, Цоунт:=1

Селецтион.Пасте

Селецтион.МовеРигхт Унит:=вдВорд, Цоунт:=1, Ектенд:=вдЕктенд

Селецтион.Цут

Селецтион.МовеЛефт Унит:=вдВорд, Цоунт:=2

Селецтион.Пасте

Енд Суб

Ево тастера који се користе за снимање овог макроа:

Цтрл+Схифт+ →

Цтрл+Кс
Прва реч је исечена.

Цтрл+ →
Показивач за уметање скаче преко везника и или или.

Цтрл+В
Реч се налепи после везника.

Цтрл+Схифт+ →

Цтрл+Кс
Реч после везника (сада после прве речи коју сте налепили у кораку 4) је изабрана и исечена.

Цтрл+ ← , Цтрл+ ←
Курсор се враћа на непосредно пре везника.

Цтрл+В
Друга реч је налепљена.

Нето ефекат ових пречица на тастатури је да исечете реч на једној страни и или или, а затим налепите реч на другој страни. Затим се друга реч исече и налепи испред и или или.

Да би овај макро био ефикасан, показивач уметања мора да трепери на почетку прве речи.

Замените реченице у Ворд 2016

Као што можете заменити две речи заредом, можете заменити и две реченице. Свап_сентенцес макро ради управо то. И, као иу другим макроима за манипулацију текстом, користите тастатуру — не миш — да бисте изабрали текст.

У следећем коду, команда Селецтион.Ектенд представља притискање тастера Ф8 на тастатури. Када три пута притиснете тај тастер, селектује се реченица.

Суб свап_сентенцес()

'

' свап_сентенцес Макро

' Замените две реченице

'

Селекција.Прошири

селекцију.Прошири

селекцију.Прошири

селекцију.Изрежи

избор.Прошири

избор.Прошири

избор.Прошири

Селецтион.ЕсцапеКеи

Селецтион.МовеРигхт Унит:=вдЦхарацтер, Цоунт:=1

Селецтион.Пасте

Енд Суб

Ево притисака на тастере снимљених за креирање макроа свап_сентенцес :

Ф8, Ф8, Ф8
Тренутна реченица је изабрана.

Цтрл+Кс

Ф8, Ф8, Ф8
Изабрана је следећа реченица.

Есц, →
Избор се поништава, а показивач уметања се поставља на почетак следеће реченице.

Цтрл+В
Прва реченица се налепи после друге реченице.

Када покренете овај макро, уверите се да је показивач уметања постављен негде унутар прве реченице.

Замените текст заглавља и подножја у програму Ворд 2016

У свап_хеадер_фоотер макро свопови тог документа главом текст и подножје текст. Овај процес можете да завршите ручно, али проблем је што макро не бележи тачно све радње. Дакле, иако можете да снимите основне притиске на тастере, морате се вратити у Висуал Басиц Едитор да бисте довршили макро:

Суб свап_хеадер_фоотер()

'

' свап_хеадер_фоотер Мацро

' Размена текста заглавља/подножја

'

Ако је АцтивеВиндов.Виев.СплитСпециал <> вдПанеНоне Онда

АцтивеВиндов.Панес(2).Затвори

крај Ако је

АцтивеВиндов.АцтивеПане.Виев.Типе.Или АцтивеВин _

АцтивеПане.Виев.Типе = вдОутлинеВиев Тада

АцтивеВиндов.АцтивеПане.Виев.Типе = вдПринтВиев

Енд Иф

АцтивеВиндов.АцтивеПане.Виев.СеекВиев = вдСеекЦуррентПагеХеадер

Селецтион.ВхолеСтори

Селецтион.Цут

АцтивеВиндов.АцтивеПане.Виев.СеекВиев = вдСеекЦуррентПагеФоотер

Селецтион.ХомеКеи Јединица: = вдЛине

Селецтион.Пасте

Селецтион.ЕндКеи Унит:=вдЛине, Ектенд:=вдЕктенд

Селецтион.Цут

АцтивеВиндов.АцтивеПане.Виев.СеекВиев = вдСеекЦуррентПагеХеадер

Селецтион.Пасте

АцтивеВиндов.АцтивеПане.Виев.СеекВиев = вдСеекМаинДоцумент

Енд Суб

Општи ефекат овог макроа је да уредите заглавље документа, изаберете и исечете сав тај текст, а затим пређете на подножје. Једном у подножју, текст заглавља се налепи, а затим се текст подножја селектује и исече. Макро се враћа назад на заглавље и лепи текст подножја. Затим макро затвара заглавље.