Hur man skriver Word 2016-makron för att byta textelement - dummies

När du arbetar med dokument i Word 2016, speciellt längre, vill du ha den extra lättheten och funktionaliteten hos makron som kan byta textord, fraser eller element runt. För att skapa makron behöver du förmodligen programmeringsspråket Visual Basic for Applications (VBA), vilket är stort, komplext och skrämmande. Det betyder att den har stor potential, men det är inte något du sitter och lär dig i en avslappnad eftermiddag.

Här är några "swapping" -makroner som hjälper dig att komma igång när du anpassar din Word-upplevelse.

Word byta i Word 2016

Här är ett praktiskt makro som du förmodligen kommer att använda hela tiden. Makroen word_swap byter två ord. Den klipper det första ordet och klistrar sedan efter det andra ordet:

Sub word_swap ()

'

' word_swap Makro

'Byt två ord, vänster-höger

'

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

Val. Klipp

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

Urval. Klistra in

End Sub

Dessa tangenttryckningar registrerades för att göra detta makro:

Ctrl + Shift + →Ordet till höger om markören är markerat.
Ctrl + X Ordet är skuren.
Ctrl + →

Markören flyttas efter det andra ordet.
Ctrl + V Det ursprungliga ordet klistras.

Word-makron kan inte spela in musklick. När du behöver välja text använder du markörknapparna plus Shift-tangenten eller använder tangenten F8 (extended selection).

För att detta makro ska fungera måste också införingspekaren placeras i början av det första ordet.

och / eller ordbyte i Word 2016

Ett annat ordbytesmakro som du förmodligen använder ofta och_or_word_swap makro. Till skillnad från ett vanligt ordbyte är målet med detta makro att byta ord på vardera sidan av en konjunktion. Till exempel ändrar detta eller det till det eller det här.

Som med word_swap makroen, registrerades detta makro från tangenttryckningsinmatning:

Sub and_or_word_swap ()

'

' och_or_word_swap Makro

'Byt två ord i en konjunktion

'

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

Val. Cut

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

Urval. Klistra in

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

Val. Cut

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

Val. Klistra in

End Sub

Här är tangenttryckningar som används för att spela in detta makro:

Ctrl + Shift + →
Ctrl + X Det första ordet är klippt.
Ctrl + →

Inläggspekaren hoppar över konjunktionen, och eller eller.
Ctrl + V Ordet klistras efter konjunktionen.
Ctrl + Shift + →
Ctrl + X Ordet efter konjunktionen (nu efter det första ordet du klistrade in i steg 4) väljs och klipps.
Ctrl + ← , Ctrl + ←Markören flyttas tillbaka till strax innan konjunktionen.
Ctrl + V Det andra ordet klistras in.

Nätverkan av dessa kortkommandon är att skära ett ord på ena sidan av en och eller eller och klistra sedan ordet på andra sidan. Sedan skärs och klistras det andra ordet före och eller eller.

För att detta makro ska vara effektivt måste insättningspekaren blinka vid början av det första ordet.

Byt meningar i Word 2016

Precis som du kan byta två ord i rad kan du också byta två meningar. Makro swap_sentences gör just det. Och, som i andra textmanipuleringsmakroner, använd tangentbordet - inte musen - för att välja text.

I följande kod väljer du. Extend kommandot representerar att du trycker på F8-tangenten på tangentbordet. När du trycker tangenten tre gånger väljs en mening.

Sub swap_sentences ()

'

' swap_sentences Makro

'Byt två meningar

'

Urval. Utöka

Val. Utöka

Val. Cut

Val. Utöka

Val. EscapeKey

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

Urval. Klistra in

Slutdel

Här är tangenttryckningar som spelats in för att skapa swap_sentences makro:

F8, F8, F8 Den aktuella meningen är vald.
Ctrl + X
F8, F8, F8 Nästa mening väljs.
Esc, →

Valet avbryts och inläggspekaren placeras i början av nästa mening.
Ctrl + V Den första meningen är klistrad efter andra meningen.

När du kör detta makro, se till att införingspekaren är inställd någonstans inom den första meningen.

Byt rubrik och sidfot i Word 2016

Makrot swap_header_footer byter dokumentets rubriktext och sidfot. Du kan slutföra processen manuellt, men problemet är att makroen inte korrekt registrerar alla åtgärder. Så, även om du kan spela in de grundläggande tangenttryckningarna måste du återgå till Visual Basic Editor för att slutföra makro:

Sub swap_header_footer ()

'

' swap_header_footer Macro

'Exchange-rubrik / sidfot < '

Om ActiveWindow. Se. SplitSpecial wdPaneNone Then

ActiveWindow. Rutor (2). Stäng

Avsluta om

Om ActiveWindow. ActivePane. Se. Typ = wdNormalView eller ActiveWindow. _

ActivePane. Se. Skriv = wdOutlineView Då

ActiveWindow. ActivePane. Se. Skriv = wdPrintView

Avsluta om

ActiveWindow. ActivePane. Se. SeekView = wdSeekCurrentPageHeader

Urval. WholeStory

Val. Cut

ActiveWindow. ActivePane. Se. SeekView = wdSeekCurrentPageFooter

Urval.HomeKey Unit: = wdLine

Urval. Klistra in

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

Urval. Cut

ActiveWindow. ActivePane. Se. SeekView = wdSeekCurrentPageHeader

Urval. Klistra in

ActiveWindow. ActivePane. Se. SeekView = wdSeekMainDocument

End Sub

Den övergripande effekten av detta makro är att redigera dokumentets rubrik, markera och skära all den texten och växla sedan till sidfoten. En gång i sidfoten klistras textens rubrik, och sedan är sidfotens text vald och klippt. Makroet växlar tillbaka till rubriken och klistrar in sidfotens text. Då stänger makrot huvudet.