Како почети да користите макрое у Ворду

Уморни сте од обављања понављајућих задатака у Мицрософт Ворд -у? У оквиру програма уграђен је моћан алат за аутоматизацију који вам може одузети те послове. Говоримо о макроима, и иако се ова функција ослања на Мицрософтов Висуал Басиц фор Апплицатионс (ВБА), можете је користити чак и ако вам идеја кодирања даје хеебие-јеебиес.

Кликом на дугме, Ворд ће снимити ваше радње, генеришући макро који можете понављати колико год желите. Ако сте авантуристи, можете лако изменити макро за додатни степен аутоматизације.

Овде ћемо вам показати један једноставан, али користан пример: Како аутоматизовати Ворд -ову функцију Финд анд Реплаце.

Снимање макроа

У овом примеру, ви сте цењени председник Друштва за очување старинских стоматолошких апарата. Имате на десетине Ворд докумената о историјским протезама и слично, сви са истакнутим именом друштва. Одједном, одбор гласа да се промени име у Лига за очување зубних антиквитета. Сада вам је потребан једноставан начин за ажурирање докумената.

Можете почети са новим празним документом или отворити постојећи. Ако то већ нисте учинили, мораћете да омогућите картицу Девелопер.

Иди на Датотека> Опције> Прилагоди врпцу . Десно, испод Маин Табс , проверите Девелопер опција. Изаберите ОК и изађите.

која је разлика између 1080и и 1080п

Сада креирајмо наш макро.

Кликните Програмер> Снимање макроа .
Од вас ће бити затражено да именујете макро. Унесите ЦхангеСоциетиНаме или било које друго име које вам одговара. Када именујете макрое, избегавајте размаке, тачке, ускличнике и посебне знакове, иначе ћете добити поруку о грешци. Можете користити бројеве, али први знак мора бити слово.
Макро можете доделити дугмету и/или пречици на тастатури, али то није услов. Ако одаберете дугме, Ворд ће вам омогућити да га додате на траку са алаткама за брзи приступ. Такође можете додати кратак опис макроа.
Кликните У реду , и Ворд ће сада снимити ваше радње. Хит Цтрл + Х да изнесем Нађи и премести дијалог.
Уђите у Друштво за очување античких стоматолошких апарата у Финд и Дентал Антикуе Пресерватион Леагуе у Реплаце.
Кликните Замените да бисте извршили операцију Пронађи и замени. Ово је једина радња коју желите да снимите. Није важно да ли макро заиста замењује било који текст. Поента је да га сачувате за друге документе.
Ово је важно: Кликните Програмер> Заустави снимање . У супротном, макро ће укључивати све наредне радње.

Сада да видимо ваше дело. Отворите документ који садржи назив друштва. Кликните Програмер> Макрои . Ако двапут кликнете на ЦхангеСоциетиНаме, Ворд ће аутоматски извршити операцију Пронађи и замени.

Савет: Док снимате макро, можда ћете морати да извршите радњу за коју не желите да буде снимљена. На пример, можда ћете желети да копирате и залепите текст у дијалог Пронађи и замени уместо да га уносите ручно. Нема проблема: само кликните Програмер> Паузирај снимање , копирајте и залепите текст, а затим кликните Девелопер> Ресуме Рецордер . Затим можете довршити снимање макроа како је горе описано.

Иако смо се овде фокусирали на Мицрософт Ворд, можете и ви користите макрое за повећање продуктивности у Екцелу . За Мицрософт ОнеНоте постоји много макроа који штеде време.

Урањајући у Кодекс

Сада ћемо дубље заронити у наш нови Ворд макро. Иди на Програмер> Макрои , али уместо да двапут кликнете на макро, изаберите га и кликните Уредити . Ово отвара уређивач Висуал Басиц, самостално окружење за израду ВБА апликација.

Можда изгледа застрашујуће, али можете занемарити меније и већину панела. Уместо тога, фокусирајте се на прозор који садржи код. Као што видите, Ворд је управо написао макро који изводи функцију Финд анд Реплаце.

  
Sub ChangeSocietyName()  
'  
' ChangeSocietyName Macro  
' Rename Society for the Preservation of Antique Dental Appliances  
'  
 Selection.Find.ClearFormatting  
 Selection.Find.Replacement.ClearFormatting  
 With Selection.Find  
 .Text = 'Society for the Preservation of Antique Dental Appliances'  
 .Replacement.Text = 'Dental Antiques Preservation League'  
 .Forward = True  
 .Wrap = wdFindContinue  
 .Format = False  
 .MatchCase = False  
 .MatchWholeWord = False  
 .MatchWildcards = False  
 .MatchSoundsLike = False  
 .MatchAllWordForms = False  
 End With  
 Selection.Find.Execute Replace:=wdReplaceAll  
End Sub

Објаснимо шта се овде дешава.

Подмени у првом реду је скраћеница за потпрограм, мали програм који се може покренути сам или као део веће ВБА апликације. Редови којима претходе једноструки наводници служе за коментаре. Наводници говоре ВБА да игнорише било које изјаве у тим редовима.

како организовати пс4 почетни екран

Затим долазимо до меса кода: кода који извршава Нађи и премести операција. Као што видите, он наводи вредности за сваку опцију у дијалогу Пронађи и замени, укључујући текст и заменски текст под наводницима. Тхе Селецтион.Финд.Екецуте наредба при крају је еквивалентна притиску на дугме Замени све.

Измена макроа

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

Такође можете подесити макро да би био кориснији, а то ћемо учинити овде. Када покренете Финд анд Реплаце, било ручно или путем макроа, Ворд памти текст за проналажење и замену. Следећи пут када отворите дијалог Пронађи и замени, то ће изгледати овако.

Било би боље да обришете вредности како бисмо добили чисти дијалошки оквир. То ћемо учинити са другим макроом, осим што ћемо овај пут то учинити директно у Висуал Басицу.

У уређивачу Висуал Басиц -а изаберите целу потпрограм, од првог реда до Енд Суб. Хит Цтрл + Ц. да га копирате.
Поставите курсор испод Енд Суб -а и притисните Цтрл + В . Управо сте дуплирали потпрограм.
Промените име из ЦхангеСоциетиНаме у ЦлеарФиндРеплаце (или било које друго име које вам одговара). Ово је важно јер ће ВБА генерисати поруку о грешци ако покушате да покренете макрое са дупликатом имена.
У .Тект и Реплацемент.Тект вредности, уклоните текст, али оставите наводнике. У суштини, говорите Ворду да не пронађе ништа и замени га ничим, али такође бришете те вредности.

Резултат би требао изгледати овако:

  
Sub ClearFindReplace()  
'  
' ClearFindReplace Macro  
' Clear Text from Find and Replace dialog  
'  
 Selection.Find.ClearFormatting  
 Selection.Find.Replacement.ClearFormatting  
 With Selection.Find  
 .Text = ''  
 .Replacement.Text = ''  
 .Forward = True  
 .Wrap = wdFindContinue  
 .Format = False  
 .MatchCase = False  
 .MatchWholeWord = False  
 .MatchWildcards = False  
 .MatchSoundsLike = False  
 .MatchAllWordForms = False  
 End With  
 Selection.Find.Execute Replace:=wdReplaceAll  
End Sub

Сада ћемо се вратити на макро ЦхангеСоциетиНаме. Испод кода Финд анд Реплаце, али пре Енд Суб, унесите ЦлеарФиндРеплаце (без заграда на крају).

Тако је: не морате да уносите сав код који сте управо креирали, само име макроа.

  
Sub ChangeSocietyName()  
'  
' ChangeSocietyName Macro  
' Rename Society for the Preservation of Antique Dental Appliances  
'  
 Selection.Find.ClearFormatting  
 Selection.Find.Replacement.ClearFormatting  
 With Selection.Find  
 .Text = 'Society for the Preservation of Antique Dental Appliances'  
 .Replacement.Text = 'Dental Antiques Preservation League'  
 .Forward = True  
 .Wrap = wdFindContinue  
 .Format = False  
 .MatchCase = False  
 .MatchWholeWord = False  
 .MatchWildcards = False  
 .MatchSoundsLike = False  
 .MatchAllWordForms = False  
 End With  
 Selection.Find.Execute Replace:=wdReplaceAll  
 ClearFindReplace  
 End Sub

Када Ворд покрене ЦхангеСоциетиНаме, прво ће извршити оригиналну функцију Пронађи и замени. Затим ће протумачити ЦлеарФиндРеплаце као наредбу за покретање другог макроа.

Идемо даље са ВБА

Као што видите, Вордова функција снимања макроа може вам помоћи да уштедите време на безброј начина. Можете да креирате макрое да бисте аутоматизовали готово сваку операцију, а у уређивачу Висуал Басиц -а можете подесити макрое, уградити један макро у други или креирати потпрограм који извршава више макроа један за другим.

Пошто је ВБА пуноправни програмски језик, можете укључити потпрограме у веће апликације са променљивим, петљама, условним наредбама и још много тога. А када научите основе ВБА у Ворду, можете применити велики део тог истог знања за креирање макроа у Мицрософт Екцел -у и Аццессу.

који видео кодек треба да користим

Да идемо даље, желећете да сазнате више о ВБА конвенцијама и уређивачу Висуал Басиц -а, на пример о томе како да организујете свој код и како да се носите са грешкама. Али чак и ако желите да се држите једноставних функција попут оних које су овде описане, можете учинити дуг пут ка побољшању продуктивности.

Објави Објави Твеет Емаил Водич за почетнике о писању ВБА макроа у Екцелу (и зашто бисте требали научити)

Ако редовно користите Екцел, вреди научити како да креирате ВБА макрое и добијете приступ многим другим функцијама и могућностима.

Прочитајте следеће Повезане теме

Продуктивност
Мицрософт Ворд
Мицрософт Оффице 365
Мицрософт Оффице 2016
Савети за Мицрософт Оффице
Мицрософт Оффице 2019
Макрои

О аутору Степхен Беале(6 објављених чланака)

Степхен Беале је дугогодишњи писац технологије са подручја Сан Франциска. Написао је бројне књиге о рачунарским апликацијама у издаваштву и графичком дизајну, а бивши је уредник вести и рецензија за Мацворлд. Тренутно води Тхе Стеампунк Екплорер, популарну веб страницу за љубитеље стеампунка.

Више од Степхена Беалеа

Претплатите се на наш билтен

Придружите се нашем билтену за техничке савете, критике, бесплатне е -књиге и ексклузивне понуде!

Кликните овде да бисте се претплатили