Když píšete ve Wordu 2016, zvláště pokud pracujete na akademické papíru nebo dokonce velké práce beletrie, možná budete chtít špice velké kusy textu, spíše než jejich odstranění. Chcete-li text zvýraznit, vyberte jej a poté jej přesuňte dolů na konec dokumentu. Když „dokončíte“ psaní, zkontrolujte své hroty a zjistěte, zda má cenu něco šetřit.
Následuje kód pro makro spike_text, které automatizuje proces:
Sub spike_text()
'
' spike_text Macro
' Přesunout vybraný text na konec 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 strukturu if-else . Test if určuje, zda je vybraný text. Pokud ano, text se vyjme a vloží na konec dokumentu. Není-li vybraný text je ještě část rovnice zobrazí okno s textem „Nic na hrotu.“
Toto makro bylo původně zaznamenáno a používalo tyto klávesové zkratky:
Ctrl+X
Ctrl+End
Ctrl+V
Shift+F5, Shift+F5
Klávesová zkratka Shift+F5 vás vrátí na předchozí místo úprav v dokumentu.
Po zaznamenání stisků kláves byla přidána struktura if-else, aby bylo zajištěno, že makro nezobrazuje ošklivou chybovou zprávu, když není vybrán text. Tento proces je součástí defenzivního programování, kde počítáte s tím, že ne každé makro se spustí za ideálních podmínek. V tomto případě není ideální stav, když není vybrán text.