Как да напишете макроси на Word 2016 за размяна на текстови елементи

Когато работите с документи в Word 2016, особено с по-дълги, ще искате допълнителната лекота и ФУНКЦИОНАЛНОСТ на макросите, които могат да разменят текстови думи, фрази или елементи. За да създадете макроси, вероятно ще ви трябва езикът за програмиране Visual Basic за приложения (VBA), който е огромен, сложен и плашещ. Това означава, че има голям потенциал, но не е нещо, което ще седнете и ще научите в небрежен следобед.

Ето няколко макроса за „размяна“, които да ви помогнат да започнете да персонализирате изживяването си с Word.

Размяна на думи в Word 2016

Ето един удобен макрос, който вероятно ще използвате през цялото време. В word_swap макро суапове две думи. Той изрязва първата дума и след това я поставя след втората дума:

Sub word_swap()

'

' word_swap Macro

' Разменете две думи, ляво-дясно

'

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 Macro

' Обменяйте текст на горен/долен колонтитул

'

Ако ActiveWindow.View.SplitSpecial <> wdPaneNone Тогава

ActiveWindow.Panes(2).Затворете

края, ако

Ако ActiveWindow.ActivePane.View.Type.Type = wdWin _

ActivePane.View.Type = wdOutlineView След това

ActiveWindow.ActivePane.View.Type = wdPrintView

Край Ако

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.ViewdSeekCeekSelect =Window

. 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

Общият ефект от този макрос е да редактирате заглавката на документа, да изберете и изрежете целия този текст и след това да преминете към долния колонтитул. Веднъж в долния колонтитул, текстът на горния колонтитул се поставя и след това текстът на долния колонтитул се избира и изрязва. Макросът превключва обратно към заглавката и поставя текста на долния колонтитул. След това макросът затваря заглавката.