Þegar þú skrifa ert í Word 2016, sérstaklega ef þú ert að vinna á fræðilegum pappír eða jafnvel stórum skáldskapur vinnu, þú might vilja til að gaddur stór klumpur af texta frekar en að eyða þeim. Til að auka texta velurðu hann og færir hann svo niður í lok skjalsins. Þegar þú ert "búinn" að skrifa skaltu skoða toppana þína til að sjá hvort eitthvað sé þess virði að spara.
Eftirfarandi er kóði fyrir spike_text fjölvi sem gerir ferlið sjálfvirkt:
Sub spike_text()
'
' spike_text Macro
' Færðu valinn texta í lok skjalsins
'
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
Þessi fjölvi inniheldur ef-annað uppbyggingu. The ef prófið ákveður hvort texti er valinn. Ef svo er er textinn klipptur og límdur í lok skjalsins. Þegar texti er ekki valið, annars hluti af jöfnunni birtir skilaboð kassi með texta "ekkert að hækkun."
Þetta fjölvi var tekið upp í upphafi og notaði þessar takkaáslátt:
Ctrl+X
Ctrl+End
Ctrl+V
Shift+F5, Shift+F5
Shift+F5 lyklaborðsflýtivísan skilar þér á fyrri klippingarstað í skjalinu.
Eftir að áslátturinn var tekinn upp var ef-annar uppbyggingunni bætt við til að tryggja að fjölvi sýndi ekki ljót villuboð þegar texti er ekki valinn. Þetta ferli er hluti af varnarforritun, þar sem þú gerir ráð fyrir að ekki sérhver fjölvi byrjar við kjöraðstæður. Í þessu tilviki er ekki kjörað skilyrði þegar texti er ekki valinn.