Kai rašote Word 2016, ypač jei dirbate akademinės popieriaus arba net dideliu fantastikos darbą, galbūt norėsite smaigalys didelius gabaliukus tekstą, o ne juos ištrinti. Norėdami padidinti tekstą, pažymėkite jį ir perkelkite žemyn į dokumento pabaigą. Kai baigsite rašyti, peržiūrėkite savo šuolius ir sužinokite, ar verta ką nors išsaugoti.
Toliau pateikiamas spike_text makrokomandos, kuri automatizuoja procesą, kodas:
Sub spike_text()
'
' spike_text makrokomandos
' Perkelti pasirinktą tekstą į dokumento pabaigą
'
If Selection.Type = wdSelectionNormal Tada
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.Paste
Application.GoBack
Application.GoBack
Else
MsgBox "Nėra ko spike"
End If
End Sub
Šioje makrokomandoje yra „ jei-kitaip“ struktūra. Jei testas nustato, ar tekstas yra pasirinktas. Jei taip, tekstas iškirptas ir įklijuojamas dokumento pabaigoje. Kai tekstas nepasirinktas, kitoje lygties dalyje rodomas pranešimo langas su tekstu „Nieko nepadidinti“.
Ši makrokomanda buvo įrašyta iš pradžių ir naudojo šiuos klavišų paspaudimus:
Ctrl + X
Ctrl+End
Ctrl + V
Shift + F5, Shift + F5
Spartusis klavišas Shift + F5 grąžina jus į ankstesnę redagavimo vietą dokumente.
Įrašius klavišų paspaudimus, buvo pridėta struktūra if-else siekiant užtikrinti, kad makrokomandoje nebūtų rodomas bjaurus klaidos pranešimas, kai tekstas nepasirinktas. Šis procesas yra gynybinio programavimo dalis, kai tikitės, kad ne kiekviena makrokomanda paleidžiama idealiomis sąlygomis. Šiuo atveju ne ideali sąlyga yra tada, kai tekstas nepasirinktas.