Sveiki atvykę į mūsų „Word VBA / Macros Mega“ vadovą!
Šiame puslapyje yra:
-
- „Word VBA“ vadovėlis PDF (nemokamai atsisiųsti)
- „Word VBA“ „Cheat Sheet“, kuriame yra dažniausiai naudojamų „Word VBA“ kodo fragmentų sąrašas
- Pilna „Word“ VBA / makrokomandos pamoka.
- Ieškomas visų mūsų „Word VBA“ makrokomandų vadovų sąrašas
Galbūt jus taip pat domina mūsų interaktyvi VBA „Excel“ pamoka. Nors kai kurie pavyzdžiai / pratimai yra būdingi „Excel VBA“, didžioji dalis turinio yra bendra visiems VBA ir jums gali būti naudinga išmokti tokias sąvokas kaip „If Statements“, „Loops“, „MessageBoxes“ ir kt.
VBA PDF (nemokami atsisiuntimai)
Atsisiųskite nemokamą „Microsoft Word VBA“ mokymo programą! Arba kitų biuro programų VBA vadovėliai!
parsisiųsti
„Word VBA“ pavyzdžiai „CheatSheet“
Žemiau rasite paprastų VBA kodų pavyzdžių, kaip dirbti su „Microsoft Word“.
Pasirinkite / Eiti į
apibūdinimasVBA kodasBackspaceSelection.TypeBackspacePasirinkite Visas dokumentasPasirinkimas. Pagrindinis raktas: = wdStoryPasirinkimas. IšplėstiKopijuotiPasirinkimas. KopijuotiIštrintiPasirinkimas. Ištrinti vienetą: = wd Charakteris, skaičius: = 1Įterpti poSelection.InsertAfter „tekstas“Eilutės pradžiaPasirinkimas. Pagrindinis raktas: = wdLineEilutės pabaigaPasirinkimas. EndKey vienetas: = wdLineĮklijuotiPasirinkimas. PastaPasirinkti viskąPasirinkimas. Visa istorijaPasirinkite visą eilutęSelection.EndKey Unit: = wdLine, Extend: = wdExtendPerkelti pastraipą aukštynPasirinkimas. „MoveUp“ vienetas: = wdParagrafai, skaičius: = 1Perkelkite vieną simbolį į dešinęPasirinkimas. „MoveRight“ vienetas: = wdCharacter, Count: = 1Perkelkite vieną lentelės langelį į dešinęPasirinkimas.MoveRight Unit: = wdCellEikite į dokumento pradžiąPasirinkimas. Pagrindinis raktas: = wdStoryEiti į dokumento pabaigąPasirinkimas. „EndKey Unit“: = „wdStory“Eiti į 1 puslapįSelection.GoTo What: = wdGoToPage, Kuris: = wdGoToNext, pavadinimas: = ”1 ″Eiti į puslapio viršųSelection.GoTo What: = wdGoToBookmark, Name: = ”\ Page”
Pasirinkimas. „MoveLeft“ vienetas: = wdCharacter, Count: = 1
Grįžti į viršų
Žymės
apibūdinimasVBA kodasPapildytiSu „ActiveDocument.Bookmarks“. Pridėti diapazoną: = Selection.Range, Name: = ”Name”
.DefaultSorting = wdSortByName
.ShowHidden = Netiesa
Pabaiga suGrafasDim n kaip sveikasis skaičius
n = ActiveDocument.Bookmarks.CountIštrintiActiveDocument.Bookmarks („BookmarkName“). IštrintiEgzistuoja?Jei ActiveDocument.Bookmarks.Exists („BookmarkName“) = Tiesa tada
'Daryk ką nors
Pabaiga JeiEiti įSelection.GoTo What: = wdGoToBookmark, Name: = ”BookmarkName”PasirinkiteActiveDocument.Bookmarks („BookmarkName“). PasirinkitePakeisti tekstąSelection.GoTo What: = wdGoToBookmark, Name: = ”BookmarkName”
Pasirinkimas. Ištrinti vienetą: = wd Charakteris, skaičius: = 1
Selection.InsertAfter „Naujas tekstas“
ActiveDocument.Bookmarks.Add Range: = Selection.Range, _
Pavadinimas: = „BookmarkName“
Grįžti į viršų
Dokumentas
apibūdinimasVBA kodasSuaktyvintiDokumentai („Example.doc“)Pridėti prie kintamojoDim doc kaip dokumentasNustatykite doc = Documents.AddPapildytiDokumentai. PridėtiPridėti (iš kito dokumento)Documents.Add šablonas: = ”C: \ Forms \ FormDoc.doc”, _
NewTemplate: = NetiesaUždarytiDokumentai („Example.doc“). UždarytiUždaryti - išsaugoti pakeitimusDokumentai („Example.doc“). Uždarykite SaveChanges: = wdSaveChangesUždaryti - neišsaugotiDokumentai („Example.doc“). Uždaryti SaveChanges: = wdDoNotSaveChangesUždaryti - raginama išsaugotiDokumentai („Example.doc“). Uždaryti SaveChanges: = wdPromptToSaveChanges
Grįžti į viršų
Stulpeliai
apibūdinimasVBA kodasIšsaugoti kaipDokumentai („Example.doc“). SaveAs („C: \ Example \ Example.doc“)SutaupytiDokumentai („Example.doc“). IšsaugotiApsaugotiDokumentai („Example.doc“). Apsaugoti slaptažodį: = “password“NeapsaugotiDokumentai („Example.doc“). UnProtect Password: = “password“Puslapių skaičiusDim varNumberPages as VariantvarNumberPages = _
ActiveDocument.Content.Information (wdActiveEndAdjustedPageNumber)SpausdintiDokumentai („Example.doc“). Spausdinti
Grįžti į viršų
Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!Šriftas
apibūdinimasVBA kodasDydisPasirinkimas.Šriftas.Dydis = 12BoldSelection.Font.Bold = TiesaKursyvasSelection.Font.Italic = TiesaPabraukiteSelection.Font.Underline = wdUnderlineSingleVisi dangteliaiSelection.Font.AllCaps = TiesaSpalvaSelection.Font.TextColor = vbRedvardasSelection.Font.Name = „Abadi“Apatinis indeksasSelection.Font.Subscript = Tiesa„SuperScript“Selection.Font.Superscript = TiesaParyškinti spalvąSelection.Range.HighlightColorIndex = wdGeltonaStiliusSelection.Style = ActiveDocument.Styles („Normalus“)Grįžti į viršų
Įdėti
apibūdinimasVBA kodasĮdėkite automatinį tekstąSelection.TypeText Tekstas: = ”a3 ″Selection.Range.InsertAutoTextĮdėkite datos kodąĮterpti failąSelection.InsertFile („C: \ Docs \ Something.doc“)Įterpti puslapio pertraukąSelection.InsertBreak tipas: = wdPageBreakĮterpti pastraipos simbolįSelection.TypeText Tekstas: = Chr $ (182)Įterpti skirtukąSelection.TypeText Tekstas: = vbTabĮterpti tekstąSelection.TypeText Text: = „Bet koks tekstas“Įterpti tipo pastraipąPasirinkimas. TipasPunktasĮterpti pastraipąAtranka. Įterpti pastraipą
Grįžti į viršų
Kilpos
apibūdinimasVBA kodasDaryti iki dok. PabaigosDaryti iki ActiveDocument.Bookmarks („\ Sel“) = ActiveDocument.Bookmarks („\ EndOfDoc“)'Daryk ką nors
SubKiekvienam Dokumente esančiam dokumentuiDim doc kaip dokumentas
Kiekvienam dokumentui dokumentuose
'Daryk ką nors
Kitas docKartoti pastraipasSub per pastraipas
„Dim i As Long“, „iParCount As Long“
„iParCount“ = „ActiveDocument“. Pastraipos.CountFori = 1 „iParCount“
ActiveDocument.Paragrafai i). Alignment = wdAlignPa bekezdésLeft
Kitas I.
Grįžti į viršų
Pastraipa
apibūdinimasVBA kodas„KeepLinesTogether“Selection.Pa bekezdésFormat.KeepTogether = TiesaKeepWithNextSelection.Pa bekezdésFormat.KeepWithNext = TiesaErdvė poPasirinkimas.ParagrafasFormatas.SpaceAfter = 12Erdvė PriešPasirinkimas.ParagusFormatas.SpaceBefore = 0Lygiavimo centrasSelection.Pa bekezdésFormat.Alignment = wdAlignPa bekezdésCenterLygiuoti teisingaiSelection.Pa bekezdésFormat.Alignment = wdAlignPa bekezdésRightLygiuoti kairėnSelection.Pa bekezdésFormat.Alignment = wdAlignPa bekezdésLeftKairė įtraukaSelection.Pa bekezdésFormat.LeftIndent = InchesToPoints (3.75)Teisinga įtraukaSelection.Pa bekezdésFormat.RightIndent = InchesToPoints (1)Tarpai tarp eilučiųSu atranka.PunktėFormatas.LineSpacingRule = wdLineSpaceTiksliai
. Linijų tarpai = 12
Pabaiga suPeržiūrėkite visas pastraipasSub per pastraipas
„Dim i As Long“, „iParCount As Long“
„iParCount“ = „ActiveDocument“. Pastraipos. „CountFori“ = 1 „iParCount“
ActiveDocument.Paragrafai (i) .Alignment = wdAlignPa bekezdésLeft
Kitas I.
Grįžti į viršų
„Word VBA“ makrokomandos pamoka
Tai yra VBA naudojimo su „Microsoft Word“ pamoka. Ši pamoka išmokys jus, kaip parašyti paprastą makrokomandą ir sąveikauti su dokumentais, diapazonais, pasirinkimais ir pastraipomis.
Pastaba: jei esate visiškai naujas „Macros“ / „VBA“, jums taip pat gali būti naudingas šis straipsnis: Kaip parašyti „VBA“ makrokomandas iš „Scratch“.
VBA yra programavimo kalba, naudojama automatizuoti „Microsoft Office“ programas, įskaitant „Word“, „Excel“, „Outlook“, „PowerPoint“ ir „Access“.
Makrokomandos yra VBA kodo blokai, atliekantys konkrečias užduotis.
Kada tu Įrašykite makrokomandą, „Word“ įrašys VBA kodą į makrokomandą, kad galėtumėte pakartoti savo veiksmus. Galite peržiūrėti visų galimų makrokomandų sąrašą iš Rodinys> Makrokomandos.
Įrašę makrokomandą, galėsite redaguoti makrokomandą iš makrokomandų sąrašo:
Kai spustelite Redaguoti, atidarote VBA redaktorius. Naudodami VBA redaktorių galite redaguoti įrašytas makrokomandas arba parašyti „Word“ makrokomandą nuo nulio. Norėdami pasiekti VBA redaktorių, naudokite nuorodą ALT + F11 arba spustelėkite Visual Basic nuo Kūrėjo juostelė.
Paprastas „Word“ makrokomandos pavyzdys
Tai paprastas „Word VBA“ makrokomandos pavyzdys. Jis atlieka šias užduotis:
- Atidaro „Word“ dokumentą
- Rašo į dokumentą
- Uždaro ir išsaugo „Word“ dokumentą.
123456789101112131415 | Sub WordMacroExample ()„Atidaryti dokumentą ir priskirti kintamajamDim oDoc kaip dokumentasNustatykite oDoc = Documents.Open ("c: \ Users \ some \ NewDocument.docx")'Rašyk DokSelection.TypeText "www.automateexcel.com"Pasirinkimas. TipasPunktas„Išsaugoti ir uždaryti dokumentąoDoc.SaveoDoc.UždarytiPabaiga Sub |
„Word“ makrokomandos pagrindai
Visas VBA kodas turi būti saugomas atliekant tokias procedūras. Norėdami sukurti procedūrą VBA, įveskite „Sub WordMacroExample“ (kur „WordMacroExample“ yra jūsų norimas makrokomandos pavadinimas) ir paspauskite Įveskite. VBA automatiškai pridės skliaustus ir pabaigos sub.
„Word“ dokumento objektas
Bendraudami su „Microsoft Word“ VBA, dažnai nurodysite „Word“ objektus. Dažniausiai pasitaikantys objektai yra:
Taikymo objektas - „Microsoft Word“
Dokumento objektas - „Word“ dokumentas
Diapazono objektas - „Word“ dokumento dalis
Pasirinkimo objektas - Pasirinktas diapazonas arba žymeklio vieta.
Taikymas
Programa yra „aukščiausio lygio“ objektas. Per jį galima pasiekti visus kitus „Word“ objektus.
Be prieigos prie kitų „Word“ objektų, galima taikyti „programos lygio“ nustatymus:
1 | Application.Options.AllowDragAndDrop = Tiesa |
Tai yra pavyzdys, kaip programoje pasiekti „Windows“ (1) parinktį:
1 | Taikymas. „Windows“ (1). Pasirinkimas. Simboliai. Skaičius |
Tačiau dažniausiai pasitaikančius „Word“ objektus galima pasiekti tiesiogiai, neįvedant visos hierarchijos. Taigi vietoj to galite (ir turėtumėte) tiesiog įvesti:
1 | Atranka. Simboliai. Skaičius |
Dokumentai
„ActiveDocument“
Dažnai „Word“ turėsite atidaryti du ar daugiau dokumentų ir turėsite nurodyti, su kuriuo konkrečiu „Word“ dokumentu sąveikauti. Vienas iš būdų nurodyti, kurį dokumentą naudoti „ActiveDocument“. Pavyzdžiui:
1 | ActiveDocument.PrintOut |
… Atspausdintų „ActiveDocument“. „ActiveDocument“ yra „Word“ dokumentas, kuris yra „sutelktas“
Norėdami perjungti „ActiveDocument“, naudokite komandą „Aktyvinti“:
1 | Dokumentai („Example.docx“). Aktyvinti |
Šis dokumentas
Užuot naudoję „ActiveDocument“ norėdami nurodyti aktyvų dokumentą, galite naudoti „ThisDocument“ norėdami nurodyti dokumentą, kuriame saugoma makrokomanda. Šis dokumentas niekada nesikeis.
1 | ThisDocument.PrintOut |
Dokumento kintamieji
Tačiau sudėtingesnėms makrokomandoms gali būti sunku sekti aktyvų dokumentą. Taip pat gali būti apmaudu persijungti tarp dokumentų pirmyn ir atgal.
Vietoj to galite naudoti dokumento kintamuosius.
Ši makrokomanda priskirs ActiveDocument kintamajam ir išspausdins dokumentą naudodami kintamąjį:
12345 | SubvarExample ()Dim oDoc kaip dokumentasNustatykite „oDoc“ = „ActiveDocument“oDoc.PrintOutPabaiga Sub |
Dokumento metodai
Atidaryti dokumentą
Norėdami atidaryti „Word“ dokumentą:
1 | Dokumentai. Atidarykite „c: \ Users \ SomeOne \ Desktop \ Test PM.docx“ |
Rekomenduojame visada priskirti dokumentą kintamajam jį atidarius:
12 | Dim oDoc kaip dokumentasNustatykite oDoc = Documents.Open ("c: \ Users \ SomeOne \ Desktop \ Test PM.docx") |
Sukurti naują dokumentą
Norėdami sukurti naują „Word“ dokumentą:
1 | Dokumentai. Pridėti |
Mes galime nurodyti „Word“ sukurti naują dokumentą pagal tam tikrą šabloną:
1 | Documents.Add Template: = "C: \ Program Files \ Microsoft Office \ Templates \ MyTemplate.dotx" |
Kaip visada, naudinga ir didžiulė problemų taupymo priemonė sukuriant ar atidarant dokumentą priskirti kintamajam:
12 | Dim oDoc kaip dokumentasNustatykite „oDoc = Documents.Add“ (šablonas: = "C: \ Program Files \ Microsoft Office \ Templates \ MyTemplate.dotx") |
Išsaugoti dokumentą
Norėdami išsaugoti dokumentą:
1 | ActiveDocument.Save |
arba „SaveAs“:
1 | ActiveDocument.SaveAs FileName: = c: \ Users \ SomeOne \ Desktop \ test2.docx ", FileFormat: = wdFormatDocument |
Uždaryti dokumentą
Norėdami uždaryti dokumentą ir išsaugoti pakeitimus:
1 | ActiveDocument.Uždaryti wdSaveChanges |
arba neišsaugojus pakeitimų:
1 | ActiveDocument.Uždaryti wdDoNotSaveChanges |
Spausdinti dokumentą
Bus išspausdintas aktyvus dokumentas:
1 | ActiveDocument.PrintOut |
Diapazonas, pasirinkimas, pastraipos
diapazonas ir Pasirinkimas tikriausiai yra svarbiausi „Word VBA“ objektai, be abejo, dažniausiai naudojami.
diapazonas reiškia tam tikrą dokumento dalį, paprastai, bet nebūtinai, tekstą.
Pasirinkimas reiškia pasirinktą tekstą (ar kitą objektą, pvz., paveikslėlius) arba, jei nieko nepasirinkta, įterpimo tašką.
Pastraipos atstovauti dokumento pastraipoms. Tai mažiau svarbu, nei atrodo, nes negalite tiesiogiai pasiekti pastraipos teksto (norėdami atlikti pakeitimus, turite pasiekti tam tikrą pastraipų diapazoną).
diapazonas
Diapazonas gali būti bet kuri dokumento dalis, įskaitant visą dokumentą:
12 | Dim oRange As RangeNustatykite „oRange“ = „ActiveDocument.Content“ |
arba jis gali būti mažas kaip vienas simbolis.
Kitas pavyzdys, šis diapazonas būtų susijęs su pirmuoju žodžiu dokumente:
12 | Dim oRange As RangeNustatykite „oRange“ = „ActiveDocument.Range.Words“ (1) |
Paprastai norite gauti diapazoną, nurodantį konkrečią dokumento dalį, ir tada jį pakeisti.
Šiame pavyzdyje antrosios pastraipos pirmasis žodis bus paryškintas:
123 | Dim oRange As RangeNustatykite „oRange“ = „ActiveDocument“. 2 pastraipos. „Range.Words“ (1)oRange.Bold = tiesa |
Nustatykite diapazono tekstą
Norėdami nustatyti diapazono teksto vertę:
123 | Dim oRange As RangeNustatykite „oRange“ = „ActiveDocument“. 2 pastraipos. „Range.Words“ (1)oRange.Text = „Sveiki“ |
(Patarimas: atkreipkite dėmesį į tarpą po „Labas“. Kadangi žodžio objektas apima tarpą po žodžio, tiesiog „labas“ gautume „Hellonext word“)
Yra šimtai dalykų, kuriuos galite padaryti naudodami diapazonus. Tik keli pavyzdžiai (tai daro prielaidą, kad jau esate padarytas objekto kintamasis oRange atsižvelgiant į interesų spektrą):
Pakeisti šriftą
1 | oRange.Font.Name = "Arial" |
Pranešimų laukelyje rodomas simbolių skaičius tam tikrame diapazone
1 | „MsgBox oRange“. Simboliai. Skaičius |
Prieš jį įterpkite šiek tiek teksto
1 | oRange.InsertBefore "tai įterpiamas tekstas" |
Prie diapazono pridėkite išnašą
12 | ActiveDocument.Footnot.Add Diapazonas: = oRange, _Tekstas: = "Skaitykite daugiau adresu easyexcel.net." |
Nukopijuokite jį į iškarpinę
1234 | oRange.CopyDažnai turite pakeisti konkretų diapazoną. Taigi galite pradėti nuo pradžios ir pabaigosoRange.Pradėti = 5oRange.End = 50 |
Po aukščiau pateikto kodo „oRange“ nurodys tekstą, prasidedantį penktuoju ir baigiant 50 -uoju dokumento simboliu.
Pasirinkimas
Pasirinkimas yra dar plačiau naudojamas nei diapazonas, nes su juo lengviau dirbti Atrankos nei Diapazonai, JEI jūsų makrokomanda sąveikauja su „ActiveDocument“.
Pirmiausia pasirinkite norimą dokumento dalį. Pavyzdžiui, pasirinkite antrą pastraipą aktyviame dokumente:
1 | ActiveDocument. 2 pastraipos. Diapazonas. Pasirinkite |
Tada galite naudoti pasirinkimo objektą norėdami įvesti tekstą:
1 | Selection.TypeText "Kažkoks tekstas" |
Galime įvesti kai kurias pastraipas po „Kažko teksto“:
12 | Selection.TypeText "Kažkoks tekstas"Pasirinkimas. TipasPunktas |
Dažnai būtina žinoti, ar pasirinktas tam tikras tekstas, ar turime tik įterpimo tašką:
12345 | Jei pasirinkimas. Įveskite wdSelectionIP TadaSelection.Font.Bold = TiesaKitasMsgBox "Turite pasirinkti tam tikrą tekstą."Pabaiga Jei |
Dirbdami su pasirinkimo objektu, norime įterpimo tašką įdėti į tam tikrą vietą ir pradėti komandas nuo šio taško.
Dokumento pradžia:
1 | Pasirinkimas. Pagrindinis raktas: = wdStory, Extend: = wdMove |
Dabartinės eilutės pradžia:
1 | Pasirinkimas. Pagrindinis raktas: = wdLine, Extend: = wdMove |
Pailginimo parametras wdMove perkelia įterpimo tašką. Vietoj to galite naudoti „wdExtend“, kuris pasirinks visą tekstą tarp esamo įterpimo taško.
1 | „Selection.HomeKey Unit“: = „wdLine“, „Extend“: = „wdExtend“ |
Perkelti pasirinkimą
Naudingiausias būdas pakeisti įterpimo taško padėtį yra Perkelti. Norėdami perkelti pasirinkimą dviem simboliais į priekį:
1 | Pasirinkimas. Perkelti vienetą: = wd Charakteris, skaičius: = 2 |
Norėdami jį perkelti atgal, naudokite neigiamą skaičių skaičiavimo parametrui:
1 | Pasirinkimas. Perkelti vienetą: = wd Charakteris, skaičius: =-2 |
Vieneto parametras gali būti „wdCharacter“, „wdWord“, „wdLine“ ar daugiau (naudokite „Word VBA“ pagalbą, kad pamatytumėte kitus).
Norėdami perkelti žodžius:
1 | Pasirinkimas. Perkelti vienetą: = wdWord, Count: = 2 |
Su pasirinkimu lengviau dirbti (palyginti su diapazonais), nes jis yra tarsi robotas, naudojantis „Word“, imituojantis vartotoją. Kur yra įterpimo taškas - bus atliktas tam tikras veiksmas. Tačiau tai reiškia, kad turite būti atsargūs, kur yra įterpimo taškas! Tai nėra lengva po daugelio kodo žingsnių. Priešingu atveju „Word“ pakeis tekstą nepageidaujamoje vietoje.
Jei jums reikia kokios nors savybės ar metodo, kurio nėra pasirinkimo objekte, visada galite lengvai gauti su pasirinkimu susijusį diapazoną:
1 | Nustatyti oRange = Selection.Range |
PATARIMAS: Naudojimas Pasirinkimas dažnai yra lengviau nei naudoti diapazonus, bet taip pat daug lėčiau (svarbu tvarkant didelius dokumentus)
Pastraipos
Negalite tiesiogiai naudoti pastraipų objekto tekstui pakeisti:
1 | ActiveDocument.Paragrafai (1) .Text = "Ne, tai neveiks" |
Aukščiau neveiks (iš tikrųjų tai sukels klaidą). Pirmiausia turite gauti diapazoną, susietą su konkrečia pastraipa:
1 | ActiveDocument.Paragrafai (1) .Range.Text = "Dabar veikia :)" |
Bet jūs galite tiesiogiai pakeisti jo stilių:
1 | ActiveDocument.Paragrafai (1) .Style = "Normal" |
arba pakeiskite pastraipos formatavimą:
1 | ActiveDocument. 1 pastraipos. LeftIndent = 10 |
o gal norite išlaikyti šią pastraipą toje pačioje eilutėje su kita pastraipa:
1 | „ActiveDocument“. 1 pastraipos. „KeepWithNext“ = tiesa |
Padarykite pastraipą centre:
1 | ActiveDocument.Paragrafai (1) .Alignment = wdAlignPa bekezdésCenter |
Labai naudinga priskirti tam tikrą pastraipą objekto kintamajam. Jei kintamajam priskiriame tam tikrą pastraipą, neturime jaudintis, jei pirmoji pastraipa taps antra, nes prieš ją įterpėme vieną pastraipą:
12 | dim oPara kaip pastraipaNustatykite „oPara“ = atranka. 1 pastraipos „čia mes priskiriame pirmąją dabartinio pasirinkimo pastraipą kintamajam |
Štai pavyzdys, kai įterpiame pastraipą virš pirmosios pastraipos, tačiau vis tiek galime remtis senąja pirmąja pastraipa, nes ji buvo priskirta kintamajam:
1234567 | Antra pastraipa Pavyzdys ()Dim oPara kaip pastraipaNustatykite „oPara“ = „ActiveDocument“. 1 pastraipos„MsgBox oPara.Range.Text“oPara.Range.InsertPa bekezdésBefore „Įterpti pastraipą„MsgBox oPara.Range.Text“Pabaiga Sub |
Pastraipos objektas labai dažnai naudojamas kilpose:
123456789101112 | Sub LoopThroughParags ()Dim oPara kaip pastraipaUž kiekvieną „oPara“ „ActiveDocument“. Pastraipos'daryk ką nors su juo. Mes tik parodysime„pastraipos tekstas, jei jo stilius yra„ 4 antraštė “Jei oPara.Style = "4 antraštė" Tada„MsgBox oPara.Range.Text“Pabaiga JeiKitas oParaPabaiga Sub |
„Word VBA Tutorial“ išvada
Ši pamoka apėmė „Word VBA“ pagrindus. Jei dar nesate susipažinę su VBA, taip pat turėtumėte peržiūrėti mūsų bendrą VBA vadovėlį, kad sužinotumėte daugiau apie kintamuosius, ciklus, „MessageBoxes“, nustatymus, sąlyginę logiką ir daug daugiau.
„Word“ makrokomandų pavyzdžiai
„Word“ makrokomandų pavyzdžiai |
---|
Šablonai |
Pridėti naujų dokumentų |
Skaičiuokite pasirinktus žodžius |
„TextBoxes“ |
Išsaugoti kaip PDF |
Žymės |
Lentelės |
Rasti ir rasti ir pakeisti |
Atidaryti dokumentus |
„Word VBA“ DUK
Kas yra „Word“ makrokomanda?
Makrokomanda yra bendras terminas, nurodantis programavimo instrukcijų rinkinį, kuris automatizuoja užduotis. „Word“ makrokomandos automatizuoja „Word“ užduotis naudodami VBA programavimo kalbą.
Ar žodis turi VBA?
Taip, „Microsoft Word“ turi VBA redaktorių. Jį galite pasiekti paspausdami ALT + F11 arba eidami į Kūrėjas> Visual Basic.
Kaip naudoti VBA programoje „Word“?
1. Atidarykite VBA redaktorių (ALT + F11 arba kūrėjas> Visual Basic)
2. Norėdami sukurti kodo modulį, eikite į Įterpti> Modulis
3. Įveskite „Sub HelloWorld“ ir paspauskite „Enter“
4. Tarp eilučių „Sub HelloWorld“ ir „End Sub“ įveskite „MsgBox„ Hello World! “
5. Jūs sukūrėte makrokomandą!
6. Dabar paspauskite „F5“, kad paleistumėte makrokomandą