Як написати макроси Word 2016 для заміни текстових елементів

Під час роботи з документами в Word 2016, особливо довшими, вам знадобиться додаткова легкість і функціональність макросів, які можуть змінювати текстові слова, фрази або елементи. Для створення макросів вам, ймовірно, знадобиться мова програмування Visual Basic для додатків (VBA), яка є величезною, складною та страшною. Це означає, що він має великий потенціал, але це не те, що ви будете сидіти і вивчати протягом дня.

Нижче наведено кілька макросів для «переміни», які допоможуть вам розпочати налаштування роботи Word.

Заміна слів у Word 2016

Ось зручний макрос, який ви, ймовірно, будете використовувати весь час. Word_swap макро свопи два слова. Він вирізає перше слово, а потім вставляє його після другого слова:

Sub word_swap()

'

' word_swap Макрос

' Поміняти місцями два слова, вліво-вправо

'

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

End Sub

Ці натискання клавіш були записані для створення цього макросу:

Ctrl+Shift+ →
Виділено слово праворуч від курсору.

Ctrl+X
Слово вирізається.

Ctrl+ →
Курсор переміщується після другого слова.

Ctrl+V
Вихідне слово вставлено.

Макроси Word не можуть записувати клацання миші. Коли вам потрібно виділити текст, використовуйте клавіші курсору плюс клавішу Shift або клавішу F8 (розширене виділення).

Крім того, щоб цей макрос працював, покажчик вставки має бути розташований на початку першого слова.

І/або заміна слів у Word 2016

Ще один макрос заміни слів, який ви, ймовірно, будете часто використовувати, макрос and_or_word_swap . На відміну від звичайної заміни слів, мета цього макросу — поміняти слова по обидва боки від сполучника. Наприклад, змінити те чи інше на те чи це.

Як і макрос word_swap , цей макрос був записаний після натискання клавіші:

Sub and_or_word_swap()

'

and_or_word_swap Macro ' Поміняйте місцями

два слова в сполученні

'

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

End Sub

Ось натискання клавіш, які використовуються для запису цього макросу:

Ctrl+Shift+ →

Ctrl+X
Перше слово вирізається.

Ctrl+ →
Вказівник вставки стрибає над сполучником та або або.

Ctrl+V
Слово вставляється після сполучника.

Ctrl+Shift+ →

Ctrl+X
Слово після сполучника (зараз після першого слова, яке ви вставили на кроці 4) виділено та вирізано.

Ctrl+ ← , Ctrl+ ←
Курсор повертається до місця безпосередньо перед сполучником.

Ctrl+V
Друге слово вставлено.

Чистий ефект цих поєднань клавіш, щоб вирізати слова на одній стороні і чи або , а потім вставити слово на іншій стороні. Потім друге слово вирізається і вставляється перед і або або.

Щоб цей макрос був ефективним, покажчик вставки повинен блимати на початку першого слова.

Поміняйте місцями речення в Word 2016

Так само, як ви можете поміняти місцями два слова поспіль, ви також можете поміняти місцями два речення. Swap_sentences макрос робить тільки що. І, як і в інших макросах для маніпуляції з текстом, використовуйте клавіатуру, а не мишу, щоб вибрати текст.

У наступному коді команда Selection.Extend представляє натискання клавіші F8 на клавіатурі. Якщо натиснути цю клавішу три рази, буде виділено речення.

Sub swap_sentences()

'

' swap_sentences Макрос

' Поміняйте місцями два речення

'

Виділення.Розширити

виділення.Розширити

виділення.Розширити

виділення.Вирізати

виділення.Розширити

виділення.Розширити

виділення.Розширити

Selection.EscapeKey

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Paste

Кінець суб

Ось натискання клавіш, записані для створення макросу swap_sentences :

F8, F8, F8
Вибрано поточне речення.

Ctrl+X

F8, F8, F8
Вибрано наступне речення.

Esc, →
Виділення скасовується, а покажчик вставки розміщується на початку наступного речення.

Ctrl+V
Перше речення вставляється після другого речення.

Коли ви запускаєте цей макрос, переконайтеся, що покажчик вставки встановлено десь у першому реченні.

Поміняти місцями верхній і нижній колонтитул у Word 2016

У swap_header_footer макро свопи текст заголовка документа і текст нижнього колонтитула. Ви можете завершити цей процес вручну, але проблема в тому, що макрос не точно записує всі дії. Отже, хоча ви можете записати основні натискання клавіш, ви повинні повернутися до редактора Visual Basic, щоб завершити макрос:

Sub swap_header_footer()

'

' swap_header_footer Макрос

' Обмін текстом верхнього/нижнього колонтитула

'

Якщо ActiveWindow.View.SplitSpecial <> wdPaneNone Тоді

ActiveWindow.Panes(2). Закрити

кінець,

якщо ActiveWindow.ActivePane.View.Type.Type = wdNin _

ActivePane.View.Type = wdOutlineView Тоді

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Unit: = wdLine

Selection.Paste

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Paste

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Загальний ефект цього макросу полягає в тому, щоб відредагувати заголовок документа, вибрати та вирізати весь цей текст, а потім перейти до нижнього колонтитула. Потрапивши в нижній колонтитул, текст верхнього колонтитула вставляється, а потім текст нижнього колонтитула виділяється та вирізається. Макрос повертається до верхнього колонтитула та вставляє текст нижнього колонтитула. Потім макрос закриває заголовок.