Word 2016 -makrojen kirjoittaminen tekstielementtien vaihtamiseksi

Kun käsittelet asiakirjoja Word 2016:ssa, varsinkin pidempiä, tarvitset makrojen, jotka voivat vaihtaa tekstisanoja, lauseita tai elementtejä, erityisen helppokäyttöisyyttä ja toiminnallisuutta. Makron luomiseen tarvitset todennäköisesti Visual Basic for Applications (VBA) -ohjelmointikielen, joka on laaja, monimutkainen ja pelottava. Tämä tarkoittaa, että siinä on paljon potentiaalia, mutta sitä ei voi istua ja oppia rennon iltapäivällä.

Tässä on muutamia "vaihto"makroja, jotka auttavat sinua pääsemään alkuun Word-kokemuksesi mukauttamisessa.

Sananvaihto Word 2016:ssa

Tässä on kätevä makro, jota tulet todennäköisesti käyttämään koko ajan. Word_swap makro swap kaksi sanaa. Se leikkaa ensimmäisen sanan ja liittää sen sitten toisen sanan jälkeen:

Sub word_swap()

'

' word_swap Makro

' Vaihda kaksi sanaa, vasen-oikea

'

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

Selection.Cut

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

Selection.Paste

End Sub

Nämä näppäinpainallukset tallennettiin tämän makron luomiseksi:

Ctrl+Shift+ →
Kohdistimen oikealla puolella oleva sana valitaan.

Ctrl+X
Sana leikataan.

Ctrl+ →
Kohdistin siirtyy toisen sanan jälkeen.

Ctrl+V
Alkuperäinen sana liitetään.

Word-makrot eivät voi tallentaa hiiren napsautuksia. Kun haluat valita tekstiä, käytä kohdistinnäppäimiä ja Shift-näppäintä tai F8-näppäintä (laajennettu valinta).

Lisäksi, jotta tämä makro toimisi, lisäysosoitin on sijoitettava ensimmäisen sanan alkuun.

Ja/tai sananvaihto Word 2016:ssa

Toinen sananvaihtomakro , jota todennäköisesti käytät usein and_or_word_swap- makroa. Toisin kuin tavallisessa sananvaihdossa, tämän makron tavoitteena on vaihtaa sanoja konjunktion kummallakin puolella. Esimerkiksi muuttamalla sitä tai tätä ja että tai tätä.

Kuten word_swap- makrossa, tämä makro tallennettiin näppäinpainalluksella:

Sub and_tai_word_swap()

'

' and_or_word_swap Makro

' Vaihda kaksi sanaa konjunktiossa

'

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

Tässä ovat tämän makron tallentamiseen käytetyt näppäinpainallukset:

Ctrl+Shift+ →

Ctrl+X
Ensimmäinen sana leikataan.

Ctrl+ →
Lisäysosoitin hyppää konjunktion ja tai tai.

Ctrl+V
Sana liitetään konjunktion jälkeen.

Ctrl+Shift+ →

Ctrl+X
Konjunktion jälkeinen sana (nyt ensimmäisen vaiheessa 4 liittämäsi sanan jälkeen) valitaan ja leikataan.

Ctrl+ ← , Ctrl+ ←
Kohdistin siirtyy takaisin juuri ennen konjunktiota.

Ctrl+V
Toinen sana liitetään.

Näiden pikanäppäinten nettovaikutus on, että sana leikataan ja tai tai -merkin yhdeltä puolelta ja sitten liitetään sana toiselle puolelle. Sitten toinen sana leikataan ja liitetään ennen ja tai tai.

Jotta tämä makro olisi tehokas, lisäysosoittimen on vilkuttava ensimmäisen sanan alussa.

Vaihda lauseita Word 2016:ssa

Aivan kuten voit vaihtaa kaksi sanaa peräkkäin, voit myös vaihtaa kaksi lausetta. Swap_sentences makro juuri sellainen. Ja kuten muissakin tekstinkäsittelymakroissa, käytä tekstin valitsemiseen näppäimistöä – ei hiirtä.

Seuraavassa koodissa Selection.Extend- komento edustaa näppäimistön F8-näppäimen painamista. Kun painat tätä näppäintä kolme kertaa, lause valitaan.

Sub swap_sentences()

'

' swap_sentences Makro

'Vaihda kaksi lausetta

'

Valinta.

Laajenna

valinta.

Laajenna

valinta.

Laajenna

valinta. Leikkaa valinta. Laajenna valinta. Laajenna valinta. Laajenna

Selection.EscapeKey

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

Selection.Paste

Lopeta ala

Tässä ovat swap_sentences- makron luomiseen tallennetut näppäinpainallukset :

F8, F8, F8
Nykyinen lause valitaan.

Ctrl+X

F8, F8, F8
Seuraava lause valitaan.

Esc, →
Valinta peruutetaan ja lisäysosoitin sijoitetaan seuraavan lauseen alkuun.

Ctrl+V
Ensimmäinen virke liitetään toisen virkkeen jälkeen.

Kun suoritat tämän makron, varmista, että lisäysosoitin on asetettu jonnekin ensimmäiseen lauseeseen.

Vaihda ylä- ja alatunnisteen tekstiä Word 2016:ssa

Swap_header_footer makro swap dokumentin otsikkotekstin ja alatunnisteen tekstiä. Voit suorittaa tämän prosessin manuaalisesti, mutta ongelmana on, että makro ei tallenna kaikkia toimintoja tarkasti. Joten vaikka voit tallentaa perusnäppäinpainallukset, sinun on palattava Visual Basic Editoriin makron viimeistelemiseksi:

Sub swap_header_footer()

'

' swap_header_footer Macro

' Exchange header/footer text

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Sulje

End

If ActiveWindow.ActivePane.View.Type Or = wdNormalView Or = wdNormalView _

ActivePane.View.Type = wdOutlineView Sitten

ActiveWindow.ActivePane.View.Type = wdPrintView

End Jos

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Unit: = 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

Tämän makron kokonaisvaikutus on muokata asiakirjan otsikkoa, valita ja leikata koko teksti ja vaihtaa sitten alatunnisteeseen. Kun alatunnisteessa on ylätunnisteen teksti, se liitetään ja alatunnisteen teksti valitaan ja leikataan. Makro vaihtaa takaisin ylätunnisteeseen ja liittää alatunnisteen tekstin. Sitten makro sulkee otsikon.