✅ „Word“ makrokomandų pavyzdžiai ir VBA pamoka

Turinys

VBA PDF (nemokami atsisiuntimai)
„Word VBA“ pavyzdžiai „CheatSheet“
„Word VBA“ makrokomandos pamoka
Paprastas „Word“ makrokomandos pavyzdys
„Word“ dokumento objektas
Dokumentai
Diapazonas, pasirinkimas, pastraipos
„Word“ makrokomandų pavyzdžiai

Sveiki atvykę į mūsų „Word VBA / Macros Mega“ vadovą!

Šiame puslapyje yra:

1. „Word VBA“ vadovėlis PDF (nemokamai atsisiųsti)
2. „Word VBA“ „Cheat Sheet“, kuriame yra dažniausiai naudojamų „Word VBA“ kodo fragmentų sąrašas
3. Pilna „Word“ VBA / makrokomandos pamoka.
4. 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: = wdStory
Pasirinkimas. 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 dokumentas
Nustatykite 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 Variant
varNumberPages = _
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.