När du skriver i Word 2016, särskilt om du arbetar med en akademisk uppsats eller till och med ett stort skönlitterärt verk, kanske du vill spetsa stora bitar av text istället för att ta bort dem. För att spetsa text markerar du den och flyttar den sedan ner till slutet av dokumentet. När du är "klar" med att skriva, granska dina spikar för att se om något är värt att spara.
Följande är kod för ett spike_text- makro som automatiserar processen:
Sub spike_text()
'
' spike_text Macro
' Flytta markerad text till slutet 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
Detta makro innehåller en om-annas- struktur. Den om testet avgör om text är markerad. Om så är fallet klipps och klistras texten i slutet av dokumentet. När text inte är markerad visar den andra delen av ekvationen en meddelanderuta med texten "Inget att spika."
Detta makro spelades in från början och använde dessa tangenttryckningar:
Ctrl+X
Ctrl+End
Ctrl+V
Skift+F5, Skift+F5 Kortkommandot
Skift+F5 tar dig tillbaka till föregående redigeringsplats i dokumentet.
Efter att ha spelat in tangenttryckningarna lades om-else- strukturen till för att säkerställa att makrot inte visade ett fult felmeddelande när text inte är markerad. Denna process är en del av defensiv programmering, där du förutser att inte alla makron startar under idealiska förhållanden. I det här fallet är ett icke-idealiskt villkor när text inte är markerad.