Atsibodo atlikti pasikartojančias užduotis „Microsoft Word“? Palaidotas programoje yra galingas automatizavimo įrankis, kuris gali atimti tuos darbus iš rankų. Mes kalbame apie makrokomandas, ir nors ši funkcija priklauso nuo „Microsoft Visual Basic for Applications“ (VBA), galite ją naudoti, net jei kodavimo idėja jums suteikia „heebie-jeebies“.
Spustelėjus mygtuką, „Word“ įrašys jūsų veiksmus ir sugeneruos makrokomandą, kurią galėsite atkurti taip dažnai, kaip norėtumėte. Jei esate drąsus, galite lengvai modifikuoti makrokomandą, kad gautumėte papildomą automatikos laipsnį.
Čia mes parodysime jums vieną paprastą, bet naudingą pavyzdį: kaip automatizuoti „Word“ funkciją Rasti ir pakeisti.
Makro įrašymas
Šiame pavyzdyje esate gerbiamas senovinių dantų prietaisų išsaugojimo draugijos prezidentas. Turite keliasdešimt „Word“ dokumentų apie istorinius dantų protezus ir panašiai, visi jie aiškiai paminėti visuomenės vardu. Tada staiga valdyba balsuoja už pavadinimo pakeitimą į Dantų antikvarinių daiktų išsaugojimo lygą. Dabar jums reikia paprasto būdo atnaujinti dokumentus.
Galite pradėti nuo naujo tuščio dokumento arba atidaryti esamą. Jei to dar nepadarėte, turėsite įgalinti skirtuką Kūrėjas.
Eiti į Failas> Parinktys> Tinkinti juostelę. Dešinėje, po Pagrindiniai skirtukai, Patikrink Programuotojas variantą. Pasirinkite Gerai ir išeikite.
Dabar sukurkime savo makrokomandą.
- Spustelėkite Kūrėjas> Įrašyti makrokomandą.
- Būsite paraginti pavadinti makrokomandą. Įveskite „ChangeSocietyName“ arba bet kurį kitą jums tinkantį pavadinimą. Pavadindami makrokomandas venkite tarpų, taškų, šauktukų ir specialiųjų simbolių, kitaip gausite klaidos pranešimą. Galite naudoti skaičius, tačiau pirmasis simbolis turi būti raidė.
- Galite priskirti makrokomandą mygtukams ir (arba) spartiesiems klavišams, tačiau tai nėra reikalavimas. Jei pasirinksite mygtuką „Mygtukas“, „Word“ leis jums jį pridėti prie greitosios prieigos įrankių juostos. Taip pat galite pridėti trumpą makrokomandos aprašymą.
- Spustelėkite Geraiir „Word“ dabar įrašys jūsų veiksmus. Rezultatas „Ctrl“ + H auklėti Raskite ir pakeiskite dialogo lange.
- Įrašykite „Antikvarinių dantų prietaisų apsaugos draugija“ į „Rasti“ ir „Dantų antikvarinių daiktų išsaugojimo lyga“ į „Pakeisti“.
- Spustelėkite Pakeiskite viską atlikti operaciją Rasti ir pakeisti. Tai yra vienintelis veiksmas, kurį norite įrašyti. Nesvarbu, ar makrokomandas iš tikrųjų pakeičia kokį nors tekstą. Esmė yra išsaugoti jį kitiems dokumentams.
- Tai svarbu: Spustelėkite Kūrėjas> Sustabdyti įrašymą. Kitu atveju makrokomanda apims visus tolesnius veiksmus.
Dabar pažiūrėkime tavo rankų darbą. Atidarykite dokumentą, kuriame nurodytas draugijos pavadinimas. Spustelėkite Kūrėjas> Makrokomandos. Du kartus spustelėjus „ChangeSocietyName“, „Word“ automatiškai atliks radimo ir pakeitimo operaciją.
Patarimas: Įrašant makrokomandą gali tekti atlikti veiksmą, kurio nenorite įrašyti. Pavyzdžiui, galbūt norėsite nukopijuoti ir įklijuoti tekstą į dialogo langą Rasti ir pakeisti, o ne įvesti jį rankiniu būdu. Jokių problemų: tiesiog spustelėkite Kūrėjas> Pristabdyti įrašymą, nukopijuokite ir įklijuokite tekstą, tada spustelėkite Kūrėjas> Atnaujinti įrašymo įrenginį. Tada galite užbaigti makrokomandos įrašymą, kaip aprašyta aukščiau.
Nors čia daugiausia dėmesio skyrėme „Microsoft Word“, jūs taip pat galite naudokite makrokomandas, kad padidintumėte „Excel“ produktyvumą. Ir yra daugybė laiką taupančios „Microsoft OneNote“ makrokomandos.
Ar žinojote, kad naudodami makrokomandas galite automatizuoti pasikartojančias užduotis „Microsoft Excel“? Parodysime, kaip įrašyti makrokomandą „Excel 2016“, kad sutaupytumėte daug laiko.
Nerti į kodeksą
Dabar mes giliau pasinersime į savo naują „Word“ makrokomandą. Eiti į Kūrėjas> Makrokomandos, bet užuot dukart spustelėję makrokomandą, pasirinkite ją ir spustelėkite Redaguoti. Tai atveria „Visual Basic“ redaktorių - savarankišką aplinką VBA programų kūrimui.
Tai gali atrodyti bauginanti, tačiau galite nepaisyti meniu ir daugumos skydų. Vietoj to sutelkite dėmesį į langą, kuriame yra kodas. Kaip matote, „Word“ ką tik parašė makrokomandą, kuri atlieka „Find and Replace“.
Sub ChangeSocietyName ()
'
„ChangeSocietyName Macro“
„Pervardykite senovinių dantų prietaisų išsaugojimo draugiją
'
Pasirinkimas. Rasti. „ClearFormatting“
Pasirinkimas. Rasti. Pakeitimas. „ClearFormatting“
Su pasirinkimu. Rasti
.Text = "Senovinių dantų prietaisų apsaugos draugija"
.Pakeitimas. Tekstas = "Dantų antikvarinių daiktų išsaugojimo lyga"
.Persiųsti = Tiesa
.Wrap = wdFindContue
.Formatas = klaidingas
.MatchCase = klaidinga
.MatchWholeWord = Klaidinga
.MatchWildcards = Klaidinga
.MatchSoundsLike = Klaidinga
.MatchAllWordForms = Klaidinga
Pabaiga su
Pasirinkimas. Rasti. Vykdyti „Replace“: = wdReplaceAll
Pabaigos sub
Paaiškinkime, kas čia vyksta.
Pirmoje eilutėje esantis „poskyris“ yra trumpas „paprogramė“ - maža programa, kuri gali veikti atskirai arba kaip didesnės VBA programos dalis. Eilutės, prieš kurias rašomos vienos kabutės, skirtos komentarams. Kabutės liepia VBA nepaisyti jokių teiginių tose eilutėse.
Tada mes einame prie kodo mėsos: kodo, kuris atlieka Raskite ir pakeiskite operacija. Kaip matote, jis nurodo kiekvienos parinkties reikšmes dialogo langelyje Rasti ir pakeisti, įskaitant tekstą ir pakaitinį tekstą kabutėse. The Pasirinkimas. Rasti. Vykdyti komanda šalia pabaigos prilygsta mygtuko „Pakeisti viską“ paspaudimui.
Makrokomandos pakeitimas
Norėdami naudoti makrokomandas, jums nereikia maišytis su kodu ar net į jį žiūrėti. Bet jūs galite gauti daugiau naudos iš šios funkcijos, jei norite pasinerti. Pvz., Tarkime, kad įrašydami makrokomandą suklydote. Užuot iš naujo įrašę, galite pereiti į „Visual Basic“ ir ištaisyti.
Taip pat galite pakoreguoti makrokomandą, kad ji būtų naudingesnė, ir tai mes čia darysime. Kai paleidžiate „Rasti ir pakeisti“, rankiniu būdu arba per makrokomandą, „Word“ prisimena surastą ir pakeistą tekstą. Kitą kartą atidarius dialogo langą „Rasti ir pakeisti“, jis atrodys taip.
Geriau būtų išvalyti vertes, kad gautume švarų dialogo langą. Tai atliksime naudodami antrą makrokomandą, išskyrus šį kartą, tai atliksime tiesiogiai „Visual Basic“.
- „Visual Basic“ redaktoriuje pasirinkite visą paprogramę nuo pirmos eilutės iki pabaigos antrinės. Rezultatas „Ctrl“ + C ją nukopijuoti.
- Užveskite žymeklį po „End Sub“ ir paspauskite „Ctrl“ + V. Jūs ką tik pakartojote paprogramę.
- Pakeiskite pavadinimą iš ChangeSocietyName į ClearFindReplace (arba bet kurį kitą jums tinkantį pavadinimą). Tai svarbu, nes VBA sugeneruos klaidos pranešimą, jei bandysite paleisti makrokomandas su pasikartojančiais pavadinimais.
- Viduje konors .Tekstas ir Pakeitimas. Tekstas reikšmes, pašalinkite tekstą, bet palikite kabutes. Iš esmės jūs liepiate „Word“ nieko nerasti ir pakeisti niekuo, bet taip pat išaiškinate tas vertybes.
Rezultatas turėtų atrodyti taip:
Sub ClearFindReplace ()
'
„ClearFindReplace Macro“
„Išvalyti tekstą iš dialogo„ Rasti ir pakeisti “
'
Pasirinkimas. Rasti. „ClearFormatting“
Pasirinkimas. Rasti. Pakeitimas. „ClearFormatting“
Su pasirinkimu. Rasti
.Text = ""
.Pakeitimas. Tekstas = ""
.Persiųsti = Tiesa
.Wrap = wdFindContue
.Formatas = klaidingas
.MatchCase = klaidinga
.MatchWholeWord = Klaidinga
.MatchWildcards = Klaidinga
.MatchSoundsLike = Klaidinga
.MatchAllWordForms = Klaidinga
Pabaiga su
Pasirinkimas. Rasti. Vykdyti „Replace“: = wdReplaceAll
Pabaigos sub
Dabar grįšime į makrokomandą „ChangeSocietyName“. Žemiau „Ieškoti ir pakeisti“ kodo, bet prieš „End Sub“ įveskite ClearFindReplace (be skliaustų pabaigoje).
Teisingai: jums nereikia įvesti viso ką tik sukurto kodo, tik makrokomandos pavadinimo.
Sub ChangeSocietyName ()
'
„ChangeSocietyName Macro“
„Pervardykite senovinių dantų prietaisų išsaugojimo draugiją
'
Pasirinkimas. Rasti. „ClearFormatting“
Pasirinkimas. Rasti. Pakeitimas. „ClearFormatting“
Su pasirinkimu. Rasti
.Text = "Senovinių dantų prietaisų apsaugos draugija"
.Pakeitimas. Tekstas = "Dantų antikvarinių daiktų išsaugojimo lyga"
.Persiųsti = Tiesa
.Wrap = wdFindContue
.Formatas = klaidingas
.MatchCase = klaidinga
.MatchWholeWord = Klaidinga
.MatchWildcards = Klaidinga
.MatchSoundsLike = Klaidinga
.MatchAllWordForms = Klaidinga
Pabaiga su
Pasirinkimas. Rasti. Vykdyti „Replace“: = wdReplaceAll
„ClearFindReplace“
Pabaigos sub
Kai „Word“ paleidžia „ChangeSocietyName“, pirmiausia ji atliks pradinę funkciją „Rasti ir pakeisti“. Tada jis aiškins „ClearFindReplace“ kaip komandą paleisti antrąją makrokomandą.
Eiti toliau su VBA
Kaip matote, „Word“ makrokomandos įrašymo funkcija gali padėti sutaupyti laiko daugybe būdų. Galite sukurti makrokomandas beveik bet kokiai operacijai automatizuoti, o „Visual Basic“ redaktoriuje galite pakoreguoti makrokomandas, įdėkite vieną makrokomandą į kitą arba sukurkite paprogramę, kuri viena po kitos vykdo kelias makrokomandas kita.
Kadangi VBA yra visavertė programavimo kalba, galite įtraukti paprogrames į didesnes programas su kintamaisiais, kilpomis, sąlyginiais sakiniais ir dar daugiau. Sužinoję VBA pagrindus programoje „Word“, galite pritaikyti didžiąją dalį tų pačių žinių kurdami makrokomandas „Microsoft Excel“ ir „Access“.
Norėdami tai padaryti toliau, norėsite sužinoti daugiau apie VBA konvencijas ir „Visual Basic“ redaktorių, pavyzdžiui, kaip tvarkyti kodą ir kaip elgtis su klaidomis. Bet net jei norite laikytis paprastų funkcijų, tokių kaip aprašytos čia, galite žengti didelį kelią savo produktyvumo gerinimo link.
Jei reguliariai naudojate „Excel“, verta sužinoti, kaip sukurti VBA makrokomandas ir pasiekti daugybę kitų funkcijų ir galimybių.
- Produktyvumas
- Microsoft word
- „Microsoft Office 365“
- „Microsoft Office 2016“
- „Microsoft Office“ patarimai
- „Microsoft Office 2019“
- Makrokomandos
Stephenas Beale'as yra ilgametis technologijų rašytojas, įsikūręs San Francisko rajone. Jis yra parašęs daug knygų apie leidybos ir grafinio dizaino kompiuterio programas ir yra buvęs „Macworld“ naujienų ir apžvalgų redaktorius. Šiuo metu jis valdo populiarią „steampunk“ entuziastų svetainę „The Steampunk Explorer“.
Prenumeruokite mūsų naujienlaiškį
Prisijunkite prie mūsų naujienlaiškio, kuriame rasite techninių patarimų, apžvalgų, nemokamų el. Knygų ir išskirtinių pasiūlymų!
Dar vienas žingsnis…!
Prašome patvirtinti savo el. Pašto adresą el. Laiške, kurį jums ką tik išsiuntėme.