Quan escriviu a Word 2016, sobretot si esteu treballant en un treball acadèmic o fins i tot en un treball de ficció gran, és possible que vulgueu afegir grans blocs de text en lloc d'eliminar-los. Per augmentar el text, el seleccioneu i després el moveu cap avall fins al final del document. Quan hagis "acabat" d'escriure, revisa els teus pics per veure si val la pena guardar alguna cosa.
El següent és el codi per a una macro spike_text que automatitza el procés:
Sub spike_text()
'
' spike_text Macro
' Mou el text seleccionat al final del document
'
If Selection.Type = wdSelectionNormal Then
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.Paste
Application.GoBack
Application.GoBack
Else
MsgBox "Res a punt"
End If
End Sub
Aquesta macro conté una estructura if-else . La prova si determina si el text està seleccionat. Si és així, el text es retalla i s'enganxa al final del document. Quan el text no està seleccionat, l' altra part de l'equació mostra un quadre de missatge amb el text "Res a punt".
Aquesta macro es va gravar inicialment i va utilitzar aquestes pulsacions de tecles:
Ctrl+X
Ctrl+Final
Ctrl+V
Maj+F5, Maj+F5
La drecera de teclat Maj+F5 et retorna a la ubicació d'edició anterior del document.
Després d'enregistrar les pulsacions de tecles, es va afegir l'estructura if-else per assegurar-se que la macro no mostrés un missatge d'error lleig quan el text no està seleccionat. Aquest procés forma part de la programació defensiva, on anticipeu que no totes les macros s'inicien en condicions ideals. En aquest cas, una condició no ideal és quan el text no està seleccionat.