Làm thế nào để Viết các macro Word 2016 để hoán đổi các phần tử văn bản - những núm vú

Khi làm việc với các tài liệu trong Word 2016, đặc biệt là các tài liệu dài hơn, bạn sẽ muốn dễ dàng hơn và FUNctionality của macro có thể trao đổi từ, cụm từ, các yếu tố xung quanh. Để tạo các macro, có lẽ bạn cần ngôn ngữ lập trình Visual Basic for Applications (VBA), đó là rộng lớn, phức tạp và đáng sợ. Điều đó có nghĩa là nó có tiềm năng rất lớn, nhưng không phải là điều bạn sẽ ngồi và học trong một buổi trưa bình thường.

Dưới đây là một vài macro "trao đổi" để giúp bạn bắt đầu sử dụng trải nghiệm Word của mình.

Word swap in Word 2016

Đây là một macro hữu ích mà có thể bạn sẽ sử dụng tất cả thời gian. Các word_swap macro hoán đổi hai từ. Nó cắt từ đầu tiên và sau đó dán nó vào sau từ thứ hai:

Sub word_swap ()

'

' word_swap Macro

'Trao đổi hai từ, trái-phải

'

Lựa chọn. Đơn vị MoveRight: = wdWord, Count: = 1, Mở rộng: = wdExtend

Lựa chọn. Cắt

Lựa chọn. Đơn vị MoveRight: = wdWord, Count: = 1

Lựa chọn. Dán

End Sub

Các tổ hợp phím này đã được ghi lại để thực hiện macro này:

Ctrl + Shift + →Từ bên phải của con trỏ được chọn.
Ctrl + X Từ bị cắt.
Ctrl + →

Con trỏ di chuyển sau từ thứ hai.
Ctrl + V Từ gốc được dán.

Macro Word không thể ghi lại cú click chuột. Khi bạn cần chọn văn bản, sử dụng các phím con trỏ cộng với phím Shift, hoặc sử dụng phím F8 (lựa chọn mở rộng).

Ngoài ra, đối với vĩ mô này để làm việc, con trỏ chèn phải được đặt ở đầu của từ đầu tiên.

Và / hoặc trao đổi từ trong Word 2016

Một macro trao đổi từ khác có thể bạn sẽ thường xuyên sử dụng macro and_or_word_swap. Không giống như trao đổi từ thông thường, mục tiêu với macro này là trao đổi từ ở hai bên của một liên kết. Ví dụ, thay đổi này hoặc đến đó hoặc điều này.

Cũng như macro word_swap, vĩ mô này được ghi lại từ đầu vào phím tắt:

'and_or_word_swap ()

'

'and_or_word_swap Macro

' Trao đổi hai từ trong một liên kết

'

Lựa chọn. Đơn vị MoveRight: = wdWord, Count: = 1, Mở rộng: = wdExtend

Lựa chọn. Cắt

Lựa chọn. Đơn vị MoveRight: = wdWord, Count: = 1

Lựa chọn. Dán

Lựa chọn. Đơn vị MoveRight: = wdWord, Count: = 1, Mở rộng: = wdExtend

Lựa chọn. Cắt

Lựa chọn. MoveLeft Unit: = wdWord, Count: = 2

Lựa chọn. Dán

End Sub

Đây là các phím bấm được sử dụng để ghi macro này:

Ctrl + Shift + →
Ctrl + X Từ đầu tiên được cắt.
Ctrl + →

Con trỏ chèn trên kết nối, và hoặc hoặc.
Ctrl + V Từ này được dán sau khi kết hợp.
Ctrl + Shift + →
Ctrl + X Từ sau khi liên kết (bây giờ là sau khi từ đầu bạn dán vào Bước 4) được chọn và cắt.
Ctrl + ← , Ctrl + ←Con trỏ di chuyển trở lại ngay trước khi kết hợp.
Ctrl + V Từ thứ hai được dán.

Hiệu ứng ròng của các phím tắt này là cắt một từ ở một bên của và hoặc hoặc và sau đó dán từ ở phía bên kia. Sau đó từ thứ hai được cắt và dán trước và hoặc hoặc.

Để macro này có hiệu quả, con trỏ chèn phải nhấp nháy khi bắt đầu từ đầu tiên.

Hoán đổi các câu trong Word 2016

Cũng như bạn có thể trao đổi hai từ liên tiếp, bạn cũng có thể hoán đổi hai câu. Macro swap_sentences thực hiện điều đó. Và, như trong các macro thao tác văn bản khác, sử dụng bàn phím chứ không phải chuột để chọn văn bản.

Trong đoạn mã sau đây, Lựa chọn. Mở rộng lệnh đại diện cho việc nhấn phím F8 trên bàn phím. Khi bạn bấm phím đó ba lần, một câu được chọn.

Sub swap_sentences ()

'

' swap_sentences Macro

'Trao đổi hai câu

'

Lựa chọn. Mở rộng

Lựa chọn. Cắt

Lựa chọn. Mở rộng

Lựa chọn. EscapeKey

Lựa chọn. Đơn vị MoveRight: = wdCharacter, Count: = 1

Lựa chọn. Dán

End Sub

Đây là các phím bấm được ghi lại để tạo ra swap_sentences macro:

F8, F8, F8 Câu hiện tại được chọn.
Ctrl + X
F8, F8, F8 Câu tiếp theo được chọn.
Esc, →

Lựa chọn bị hủy, và con trỏ chèn được đặt ở đầu câu tiếp theo.
Ctrl + V Câu đầu tiên được dán sau câu thứ hai.

Khi bạn chạy macro này, đảm bảo rằng con trỏ chèn được đặt ở đâu đó trong câu đầu tiên.

Văn bản tiêu đề và chân trang hoán đổi trong Word 2016

Macro swap_header_footer hoán đổi văn bản tiêu đề và văn bản chân trang của tài liệu. Bạn có thể hoàn tất quá trình này theo cách thủ công, nhưng vấn đề là macro không ghi lại chính xác tất cả các hành động. Vì vậy, mặc dù bạn có thể ghi lại các phím cơ bản, bạn phải quay trở lại Visual Basic Editor để hoàn thành macro:

Sub swap_header_footer ()

'

' swap_header_footer Macro

'Trao đổi đầu trang / footer text < '

Nếu ActiveWindow. Lượt xem. SplitSpecial wdPaneNone Sau đó,

ActiveWindow. Panes (2). Đóng

Kết thúc Nếu

Nếu ActiveWindow. ActivePane. Lượt xem. Loại = wdNormalView Hoặc ActiveWindow. _

ActivePane. Lượt xem. Loại = wdOutlineView Sau đó,

ActiveWindow. ActivePane. Lượt xem. Loại = wdPrintView

Kết thúc Nếu

ActiveWindow. ActivePane. Lượt xem. SeekView = wdSeekCurrentPageHeader

Lựa chọn. WholeStory

Lựa chọn. Cắt

ActiveWindow. ActivePane. Lượt xem. SeekView = wdSeekCurrentPageFooter

Lựa chọn.HomeKey Đơn vị: = wdLine

Lựa chọn. Dán

Lựa chọn. Thiết bị EndKey: = wdLine, Extend: = wdExtend

Lựa chọn. Cắt

ActiveWindow. ActivePane. Lượt xem. SeekView = wdSeekCurrentPageHeader

Lựa chọn. Dán

ActiveWindow. ActivePane. Lượt xem. SeekView = wdSeekMainDocument

End Sub

Tác động tổng thể của macro này là chỉnh sửa tiêu đề của tài liệu, chọn và cắt tất cả văn bản đó và sau đó chuyển sang chân trang. Khi ở cuối trang, văn bản của tiêu đề được dán, và sau đó văn bản của chân được chọn và cắt. Macro sẽ chuyển trở lại tiêu đề và dán văn bản của chân trang. Sau đó macro đóng tiêu đề.