Når du skriver i Word 2016, spesielt hvis du jobber med en akademisk oppgave eller til og med et stort skjønnlitterært verk, kan det være lurt å spike store biter av tekst i stedet for å slette dem. For å sprike tekst, merker du den og flytter den ned til slutten av dokumentet. Når du er "ferdig" med å skrive, gå gjennom toppene dine for å se om noe er verdt å spare.
Følgende er kode for en spike_text- makro som automatiserer prosessen:
Sub spike_text()
'
' spike_text Macro
' Flytt markert tekst til slutten av 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 makroen inneholder en if-else- struktur. Det hvis Testen bestemmer hvorvidt teksten er valgt. I så fall klippes og limes teksten inn på slutten av dokumentet. Når tekst ikke er valgt, viser den andre delen av ligningen en meldingsboks med teksten "Nothing to spike."
Denne makroen ble tatt opp i utgangspunktet og brukte disse tastetrykkene:
Ctrl+X
Ctrl+End
Ctrl+V
Shift+F5, Shift+F5
Skift+F5-snarveien returnerer deg til forrige redigeringssted i dokumentet.
Etter å ha registrert tastetrykkene, ble if-else- strukturen lagt til for å sikre at makroen ikke viste en stygg feilmelding når tekst ikke er valgt. Denne prosessen er en del av defensiv programmering, der du forventer at ikke alle makroer starter under ideelle forhold. I dette tilfellet er en ikke-ideell betingelse når tekst ikke er valgt.