Када пишете у програму Ворд 2016, посебно ако радите на академском раду или чак на великом белетристичком делу, можда ћете желети да додате велике комаде текста уместо да их бришете. Да бисте додали текст, изаберите га, а затим га померите надоле на крај документа. Када "завршите" са писањем, прегледајте своје шиљке да видите да ли је нешто вредно уштеде.
Следи код за макро спике_тект који аутоматизује процес:
Суб спике_тект()
'
' спике_тект Макро
' Помери изабрани текст на крај документа
'
Ако је Селецтион.Типе = вдСелецтионНормал Онда
Селецтион.Цут
Селецтион.ЕндКеи Унит:=вдСтори
Селецтион.ТипеПараграпх
Селецтион.Пасте
Апплицатион.ГоБацк
Апплицатион.ГоБацк
Елсе
МсгБок "Ништа за спике"
Енд Иф
Енд Суб
Овај макро садржи структуру иф-елсе . Ако тест утврђује да ли је изабрани текст. Ако је тако, текст се исече и налепи на крај документа. Када текст није изабран, други део једначине приказује оквир са поруком са текстом „Ништа за повећање“.
Овај макро је првобитно снимљен и користио је ове притиске на тастере:
Цтрл+Кс
Цтрл+Енд
Цтрл+В
Схифт+Ф5, Схифт+Ф5
Тастерска пречица Схифт+Ф5 враћа вас на претходну локацију за уређивање у документу.
Након снимања притисака на тастере, додата је структура иф-елсе како би се осигурало да макро не приказује ружну поруку о грешци када текст није изабран. Овај процес је део одбрамбеног програмирања, где предвиђате да не почиње сваки макро под идеалним условима. У овом случају, неидеалан услов је када текст није изабран.