Kaip automatiškai pridėti tekstą prie dokumento antraštės „Microsoft Word“ naudojant VBA

Kaip automatiškai pridėti tekstą prie dokumento antraštės „Microsoft Word“ naudojant VBA

Antraštės yra puiki vieta pristatyti „Word“ dokumentą, be to, jas lengva naudoti. Jums tereikia dukart spustelėti antraštę ir įvesti, ar ne? Kad ir kaip paprasta, kaip ir bet kas kita, ši užduotis gali tapti gana monotoniška ir erzinanti, jei tą pačią antraštę turite pridėti keliems dokumentams iš eilės.





DIENOS VAIZDO ĮRAŠO PAGALBA

Šiam scenarijui ar galbūt kitiems scenarijams VBA pravers. Naudodami VBA galite parašyti kodo dalį, kuri automatiškai prideda norimą tekstą prie dokumento antraštės.





Automatinis teksto pridėjimas prie dokumento antraštės naudojant VBA programoje Word

VBA arba „Visual Basic“ programoms yra integruota „Visual Basic“ forma, naudojama „Microsoft Office“ programose. VBA leidžia rašyti kodus, kad sukurtumėte makrokomandas, kurios savo ruožtu automatizuoja užduotis, kurias kitu atveju turėtumėte atlikti rankiniu būdu. VBA netgi leidžia sukurti savo pasirinktinius „Microsoft Word“ mygtukus ir funkcijas.





Šiame straipsnyje mes sukursime makrokomandą ir parašysime jai kodą, kuris pridės pasirinktinį tekstą prie dokumento antraštės. Antraštės yra naudinga dalis Word dokumentuose ir „Microsoft Word“ antraštėse galite gauti daug naudos .

darbalaukio programa, skirta „Windows 7“

Pavyzdžiui, mes sukursime kodą, kuris prideda tekstą Parašė ir išleido MakeUseOf į antraštę. Šį tekstą paryškinsime ir sulygiuosime su dokumento centru.



1. Prieiga prie Kūrėjo skirtuko

Pirmasis „Word“ makrokomandų kūrimo veiksmas yra prieiga prie skirtuko Kūrėjas iš juostos. Šis skirtukas pagal numatytuosius nustatymus yra išjungtas, nes makrokomandos yra skirtos pažengusiems vartotojams. Atsisiųstos makrokomandos yra paprastas būdas įsilaužėliams pasiekti ir įdiegti kenkėjiškas programas jūsų sistemoje, todėl „Microsoft“ nusprendė juos blokuoti pagal numatytuosius nustatymus .

Tai pasakius, skiltyje Parinktys turėsite įjungti skirtuką Kūrėjas. Žinoma, jei anksčiau naudojote makrokomandas, skirtukas Kūrėjas jau bus pasiekiamas, todėl nereikia to daryti iš naujo. Jei pirmą kartą dirbate su makrokomandomis ir VBA Office programose, pravartu perskaityti mūsų vadovą apie kaip pradėti naudoti makrokomandas Word .





  „Word“ juostelės nustatymai
  1. Programoje „Microsoft Word“ eikite į Failas Meniu.
  2. Pasirinkite Galimybės . Tai atvers „Word“ parinkčių langą.
  3. Viduje Žodžio parinktys langą, pasirinkite Tinkinti juostelę .
  4. Dešinėje, apačioje Pagrindiniai skirtukai , slinkite žemyn ir patikrinkite Programuotojas .
  5. Spustelėkite Gerai .

Dabar juostelėje, tarp peržiūros ir žinyno, pamatysite skirtuką Kūrėjas.

2. Makrokomandos kūrimas

Dabar laikas susitepti rankas su makrokomandu ir kodu. Sukūrę makrokomandą ir parašę jos kodą, galite jai priskirti spartųjį klavišą, kad nereikėtų kiekvieną kartą eiti į makrokomandos meniu.





Tokiu būdu galite dar labiau padidinti savo produktyvumą, nes paspausite tik klaviatūros klavišų kombinaciją, o magija įvyks užkulisiuose.

  „Word“ makrokomandos meniu
  1. Eikite į Programuotojas skirtuką.
  2. Spustelėkite Makrokomandos nuo Kodas skyrius.
  3. Įveskite makrokomandos pavadinimą. Mes pavadinsime savo vardus muoHeading .
  4. Spustelėkite Sukurti .
  Tuščia „Word“ makrokomanda

Kai tik spustelėsite Sukurti , atsidarys naujas langas, kuriame yra dvi kodo eilutės ir informacijos eilutė. Sub ir End Sub eilutės žymi makrokomandos kodo pradžią ir pabaigą. Įterpkite žemiau esantį kodą tarp dviejų eilučių:

Dim headerRange As Range 
Dim headerText As String
Set headerRange = ActiveDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range
headerRange.Text = "Written and Published by MUO"
headerRange.Font.Bold = True
headerRange.ParagraphFormat.Alignment = wdAlignParagraphCenter

Dim teiginys šiame kode deklaruoja headerRange ir antraštėTekstas kintamieji kaip a diapazonas ir a Styga atitinkamai. Toliau, Nustatyti pareiškimas nustato headerRange kintamasis į dabartinio aktyvaus dokumento antraštę.

The Nustatyti sakinys pirmiausia pasiekia dabartinį aktyvų dokumentą, tada jo skyrius, tada pirmąjį elementą ir jame esančias antraštes. Galiausiai jis pasiekia pagrindinę „Word“ antraštę ir nustato ją kaip a diapazonas .

Kai šie du yra paskelbti, headerRange tekstas nustatomas į norimą tekstą. Kitoje eilutėje šriftas nustatomas kaip paryškintas, o paskutinėje eilutėje pastraipos lygiavimas nustatomas į centrą. Parametrai, prasidedantys raide „wd“, rodo, kad parametras yra išskirtinis „Microsoft Word“.

The Sub ir Pabaigos sub kodai neįtraukti į šį anksčiau pateiktą fragmentą, nes turėtumėte įklijuoti kodą iš fragmento tarp šių dviejų. Jūsų galutinis kodas turėtų atrodyti taip, kaip toliau pateiktame paveikslėlyje:

  „Word“ antraštės teksto įterpimo makrokomanda

3. Makrokomandos naudojimas

Kai nustatysite kodą, būsite pasirengę naudoti makrokomandą. Nereikia jo saugoti; viskas, ką įvedate VBA darbo srityje, akimirksniu išsaugoma. Dabar laikas nustatyti makrokomandos nuorodą ir pamatyti, ar ji veikia!

  1. Eikite į Failas Meniu.
  2. Pasirinkite Galimybės .
  3. Pasirinkite Tinkinti juostelę .
  4. Spustelėkite Pritaikyti šalia Klaviatūros nuorodos lango apačioje. Bus atidarytas langas Tinkinti klaviatūrą.
  5. Viduje Tinkinkite klaviatūrą lange slinkite žemyn Kategorijos sąrašą ir pasirinkite Makrokomandos .
  6. Dešiniajame meniu pasirinkite makrokomandą.
  7. Spustelėkite teksto laukelį po Paspauskite naują spartųjį klavišą .
  8. Įveskite klaviatūros klavišų kombinaciją. Tai gera idėja naudoti Ctrl , Viskas , ir Shift Tuo pačiu metu. Tokiu būdu derinys tikriausiai dar nebus naudojamas. Mes ketiname naudoti Viskas + Ctrl + Shift + H .
  9. Spustelėkite ir tada spustelėkite Gerai .

Dabar atėjo laikas pamatyti magiją darbe. Klaviatūroje paspauskite klavišų kombinaciją, kurią ką tik priskyrėte makrokomandai. Tikimės, kad tekstą pamatysite savo antraštėje! Drąsus ir sutelktas! Jei viskas vyksta ne taip, kaip planuota, sekite veiksmus ir patikrinkite, ar kode nėra klaidų.

Kai norite pakeisti tekstą, kurį kodas prideda prie antraštės, galite tiesiog eiti į makrokomandų meniu ir redaguoti makrokomandą. Jei jus domina numatytieji „Word“ spartieji klavišai, peržiūrėkite mūsų „Microsoft Word“ sparčiųjų klavišų apgaulės lapas .

Automatizuokite savo darbo eigą

Tiesa, kad teksto įtraukimas į dokumento antraštę programoje „Word“ reikalauja nedaug pastangų, tačiau mažai pastangų naudojant didelius kiekius gali būti monotoniška, jei ne sunku. Bet kokiu atveju, jei galite tai padaryti lengviau ir atimti mažiau laiko, kodėl gi to nepadarius?

VBA yra skirta tokiems tikslams. Jei norėtumėte „Word“ funkcijos, kuri automatiškai pridėtų pasirinktinį tekstą prie bet kurio dokumento antraštės, jums to nebereikia. Naudodami VBA galite sukurti bet kokią funkciją, kurios, jūsų manymu, Wordui trūksta. Teksto pridėjimas prie dokumento antraštės yra tik menkas pavyzdys, ką galite pasiekti naudodami VBA programoje Word.

Dabar jūs žinote, kaip parašyti kodą šiam tikslui ir priskirti jam nuorodą. Taigi viskas, ką jums reikia padaryti, tai paspausti klavišų kombinaciją, atsisėsti ir stebėti, kaip Word atlieka nuobodų darbą už jus per milisekundes.