Когато пишете в Word 2016, особено ако работите върху академична статия или дори голяма художествена творба, може да искате да добавяте големи парчета текст, вместо да ги изтривате. За да преместите текста, го избирате и след това го премествате надолу до края на документа. Когато приключите с писането, прегледайте своите пикове, за да видите дали нещо си струва да спестите.
Следва код за макрос spike_text, който автоматизира процеса:
Sub spike_text()
'
' spike_text Макрос
' Преместване на избрания текст в края на документа
'
Ако Selection.Type = wdSelectionNormal Тогава
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.Paste
Application.GoBack
Application.GoBack
Else
MsgBox "Няма нищо за добавяне"
End If
End Sub
Този макрос съдържа структура if-else . Тестът if определя дали текстът е избран. Ако е така, текстът се изрязва и поставя в края на документа. Когато текстът не е избран, другата част на уравнението показва поле за съобщение с текст „Няма нищо за добавяне“.
Този макрос е записан първоначално и използва следните натискания на клавиши:
Ctrl+X
Ctrl+End
Ctrl+V
Shift+F5, Shift+F5
Клавишната комбинация Shift+F5 ви връща към предишното място за редактиране в документа.
След записване на натисканията на клавиши беше добавена структурата if-else, за да се гарантира, че макросът не показва грозно съобщение за грешка, когато текстът не е избран. Този процес е част от защитното програмиране, при което очаквате, че не всеки макрос стартира при идеални условия. В този случай неидеално условие е, когато текстът не е избран.