Når du skriver i Word 2016, især hvis du arbejder på et akademisk papir eller endda et stort skønlitterært værk, vil du måske spike store bidder af tekst i stedet for at slette dem. For at spike tekst skal du markere den og derefter flytte den ned til slutningen af dokumentet. Når du er "færdig" med at skrive, skal du gennemgå dine spidser for at se, om noget er værd at spare.
Følgende er kode til en spike_text makro, der automatiserer processen:
Sub spike_text()
'
' spike_text Macro
' Flyt markeret tekst til slutningen af dokumentet
'
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
Denne makro indeholder en if-else- struktur. Den hvis test afgør, om teksten er markeret. Hvis det er tilfældet, klippes og indsættes teksten i slutningen af dokumentet. Når tekst ikke er valgt, viser den anden del af ligningen en beskedboks med teksten "Intet at spike".
Denne makro blev oprindeligt optaget og brugte disse tastetryk:
Ctrl+X
Ctrl+End
Ctrl+V
Shift+F5, Shift+F5
Skift+F5-tastaturgenvejen returnerer dig til den tidligere redigeringsplacering i dokumentet.
Efter optagelse af tastetryk blev if-else- strukturen tilføjet for at sikre, at makroen ikke viste en grim fejlmeddelelse, når tekst ikke er valgt. Denne proces er en del af defensiv programmering, hvor du forventer, at ikke alle makroer starter under ideelle forhold. I dette tilfælde er en ikke-ideel betingelse, når tekst ikke er valgt.