Kuidas kirjutada Word 2016 makrosid tekstielementide vahetamiseks

Kui töötate Word 2016 dokumentidega, eriti pikemate dokumentidega, vajate makrode ekstra lihtsust ja funktsionaalsust, mis võivad tekstisõnu, fraase või elemente ümber vahetada. Makrode loomiseks vajate tõenäoliselt programmeerimiskeelt Visual Basic for Applications (VBA), mis on tohutu, keeruline ja hirmutav. See tähendab, et sellel on suur potentsiaal, kuid see ei ole midagi, mida te istute ja õpite juhuslikul pärastlõunal.

Siin on mõned vahetusmakrod, mis aitavad teil Wordi kasutuskogemuse kohandamist alustada.

Sõnavahetus Word 2016-s

Siin on mugav makro, mida kasutate tõenäoliselt kogu aeg. Word_swap makro vahetustehingud kaks sõna. See lõikab esimese sõna ja kleebib selle teise sõna järele:

Sub word_swap()

'

' word_swap Makro

' Kahe sõna vahetamine, vasak- pare

'

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

End Sub

Selle makro tegemiseks salvestati järgmised klahvivajutused:

Ctrl+Shift+ →
Valitakse kursorist paremal olev sõna.

Ctrl+X
Sõna lõigatakse.

Ctrl+ →
Kursor liigub pärast teist sõna.

Ctrl+V
Algne sõna kleebitakse.

Wordi makrod ei saa salvestada hiireklõpse. Kui teil on vaja teksti valida, kasutage kursori klahve ja tõstuklahvi või klahvi F8 (laiendatud valik).

Samuti peab selle makro toimimiseks sisestuskursor asuma esimese sõna alguses.

Ja/või sõnavahetus Word 2016-s

Teine sõnavahetusmakro, mida kasutate tõenäoliselt sageli ja_või_sõnavahetusmakro . Erinevalt tavalisest sõnavahetusest on selle makro eesmärk sidesõna mõlemal küljel sõnu vahetada. Näiteks selle või selle muutmine selle või selle vastu.

Nagu ka word_swap makro puhul, salvestati see makro klahvivajutusega:

Alam- ja_või_sõnavahetus()

'

' and_or_word_swap Makro

' Vahetage kaks sõna sidesõnas

'

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

End Sub

Siin on selle makro salvestamiseks kasutatud klahvivajutused:

Ctrl+Shift+ →

Ctrl+X
Esimene sõna lõigatakse.

Ctrl+ →
Sisestuskursor hüppab üle sidesõna ja või või.

Ctrl+V
Sõna kleebitakse sidesõna järele.

Ctrl+Shift+ →

Ctrl+X
Sidesõna järel olev sõna (nüüd pärast esimest sammus 4 kleebitud sõna) valitakse ja lõigatakse.

Ctrl+ ← , Ctrl+ ←
Kursor liigub tagasi vahetult enne sidesõna.

Ctrl+V
Teine sõna kleebitakse.

Nende kiirklahvide netomõju seisneb selles, et sõna ja või või ühele küljele lõigatakse sõna ja seejärel kleebitakse sõna teisele poole. Seejärel lõigatakse teine ​​sõna välja ja kleebitakse ja või või ette.

Selle makro toimimiseks peab sisestuskursor esimese sõna alguses vilkuma.

Vahetage lauseid Word 2016-s

Nii nagu saate vahetada kaks sõna järjest, saate ka kahte lauset vahetada. Swap_sentences makro teeb just seda. Ja nagu ka teiste tekstitöötlusmakrode puhul, kasutage teksti valimiseks klaviatuuri, mitte hiirt.

Järgmises koodis tähistab käsk Selection.Extend klaviatuuril klahvi F8 vajutamist. Kui vajutate seda klahvi kolm korda, valitakse lause.

Alam-swap_sentences()

'

' swap_sentences Makro

' Vahetage kaks lauset

'

Valik.

Laienda

valikut.

Laienda

valikut.

Laienda

valikut. Lõika valikut. Laienda valikut. Laienda valikut. Laienda

Selection.EscapeKey

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Paste

Lõpeta alam

Siin on makro swap_sentences loomiseks salvestatud klahvivajutused :

F8, F8, F8
Valitakse praegune lause.

Ctrl+X

F8, F8, F8
Valitakse järgmine lause.

Esc, →
Valik tühistatakse ja sisestuskursor asetatakse järgmise lause algusesse.

Ctrl+V
Esimene lause kleebitakse teise lause järele.

Selle makro käivitamisel veenduge, et sisestuskursor oleks seatud kuskil esimese lause sees.

Vahetage Word 2016 päise ja jaluse tekst

Swap_header_footer makro vahetustehingud dokumendi päise teksti ja jalus teksti. Saate selle protsessi käsitsi lõpule viia, kuid probleem on selles, et makro ei salvesta kõiki toiminguid täpselt. Ehkki saate salvestada põhilised klahvivajutused, peate makro lõpuleviimiseks naasma Visual Basicu redaktorisse.

Sub swap_header_footer()

'

' swap_header_footer Macro

' Exchange header/footer text

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone then ActiveWindow.Panes

(2).Close

End If

ActiveWindow.ActivePane.View.Type Või = wdNordowView _

ActivePane.View.Type = wdOutlineView Siis

ActiveWindow.ActivePane.View.Type = wdPrintView

End Kui

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Ühik: = wdLine

Selection.Paste

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Paste

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Selle makro üldmõju on muuta dokumendi päist, valida ja lõigata kogu see tekst ning seejärel lülituda jalusele. Kui olete jaluses, kleebitakse päise tekst ning seejärel valitakse ja lõigatakse jaluse tekst. Makro lülitub tagasi päisele ja kleebib jaluse teksti. Seejärel sulgeb makro päise.