Keď píšete vo Worde 2016, najmä ak pracujete na akademickej papiera alebo dokonca veľké práce beletrie, možno budete chcieť špice veľké kusy texte, skôr než ich odstránenie. Ak chcete zvýrazniť text, vyberte ho a potom ho presuňte nadol na koniec dokumentu. Keď „dokončíte“ písanie, skontrolujte svoje hroty, aby ste zistili, či sa oplatí niečo zachrániť.
Nasleduje kód pre makro spike_text, ktoré automatizuje proces:
Sub spike_text()
'
' spike_text Macro
' Presunúť vybratý text na koniec dokumentu
'
If Selection.Type = wdSelectionNormal Then
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.Paste
Application.GoBack
Application.GoBack
Else
MsgBox "Nothing to spike"
End If
End Sub
Toto makro obsahuje štruktúru if-else . Test if určuje, či je vybratý text. Ak áno, text sa vystrihne a prilepí na koniec dokumentu. Keď nie je vybratý text, v inej časti rovnice sa zobrazí okno so správou s textom „Nič, čo by sa malo zvýrazniť“.
Toto makro bolo pôvodne zaznamenané a používalo tieto klávesové skratky:
Ctrl+X
Ctrl+End
Ctrl+V
Shift+F5, Shift+F5
Klávesová skratka Shift+F5 vás vráti na predchádzajúce miesto úprav v dokumente.
Po zaznamenaní stlačení kláves bola pridaná štruktúra if-else, aby sa zabezpečilo, že makro nezobrazuje škaredé chybové hlásenie, keď nie je vybratý text. Tento proces je súčasťou defenzívneho programovania, kde počítate s tým, že nie každé makro sa spustí za ideálnych podmienok. V tomto prípade nie je ideálny stav, keď nie je vybratý text.