Làm thế nào để Spike Text trong Word 2016 - núm vú

Khi bạn viết trong Word 2016, đặc biệt nếu bạn đang viết một bài báo hay một tác phẩm văn học lớn, bạn có thể muốn tăng đột biến khối văn bản lớn hơn là xóa chúng. Để tăng đột biến văn bản, bạn chọn nó và sau đó di chuyển nó xuống đến cuối của tài liệu. Khi bạn viết xong, hãy xem xét các điểm đột biến của bạn để xem liệu có điều gì đáng để tiết kiệm hay không.

Sau đây là mã cho một macro spike_text tự động tiến trình:

'spike_text Macro

' Di chuyển văn bản được chọn vào cuối tài liệu

'

Nếu lựa chọn. Type = wdSelectionNormal Sau đó chọn

. Cắt

Lựa chọn. Đơn vị EndKey: = wdStory

Lựa chọn. TypeParagraph

Lựa chọn. Dán

Ứng dụng. Ứng dụng GoBack

. GoBack

Khác

MsgBox "Nothing to spike"

End If

End Sub

Macro này chứa cấu trúc

if-else

. Thử nghiệm nếu xác định xem văn bản được chọn hay không. Nếu có, văn bản được cắt và dán vào cuối tài liệu. Khi văn bản không được chọn, phần khác một phần của phương trình sẽ hiển thị một hộp thông điệp với dòng chữ "Không có gì để tăng đột biến. " Macro này được ghi lại ban đầu và sử dụng các tổ hợp phím này: Ctrl + X

Ctrl + End

1. Ctrl + V
2. Shift + F5, Shift + F5
3. Bàn phím Shift + F5 phím tắt sẽ trả về vị trí chỉnh sửa trước đó trong tài liệu.
4. if-else

được thêm vào để đảm bảo rằng macro không hiển thị thông báo lỗi xấu khi không chọn văn bản. Quá trình này là một phần của chương trình phòng thủ, nơi bạn dự đoán rằng không phải mọi macro bắt đầu trong điều kiện lý tưởng. Trong trường hợp này, một điều kiện không lý tưởng là khi văn bản không được chọn.