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

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

Här är några "bytande" makron som hjälper dig att komma igång med att anpassa din Word-upplevelse.

Ordbyte i Word 2016

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

Sub word_swap()

'

' word_swap Makro

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

'

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

Selection.Cut

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

Selection.Paste

End Sub

Dessa tangenttryckningar spelades in för att göra detta makro:

Ctrl+Skift+ →
Ordet till höger om markören är markerat.

Ctrl+X
Ordet klipps ut.

Ctrl+ →
Markören flyttas efter det andra ordet.

Ctrl+V
Det ursprungliga ordet klistras in.

Word-makron kan inte spela in musklick. När du behöver markera text, använd markörtangenterna plus Shift-tangenten eller använd F8-tangenten (utökad markering).

För att detta makro ska fungera måste infogningspekaren vara placerad i början av det första ordet.

Och/eller ordbyte i Word 2016

Ett annat makro för ordbyte som du förmodligen kommer att använda ofta, makrot and_or_word_swap . Till skillnad från ett vanligt ordbyte är målet med detta makro att byta ord på vardera sidan av en konjunktion. Till exempel att ändra det eller det till det eller det här.

Liksom med word_swap-makrot , spelades detta makro in från tangentinmatning:

Sub and_or_word_swap()

'

' and_or_word_swap Makro

' Byt två ord i en konjunktion

'

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

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

Ctrl+Skift+ →

Ctrl+X
Det första ordet klipps ut.

Ctrl+ →
Insättningspekaren hoppar över konjunktionen och eller eller.

Ctrl+V
Ordet klistras in efter konjunktionen.

Ctrl+Skift+ →

Ctrl+X
Ordet efter konjunktionen (nu efter det första ordet du klistrade in i steg 4) markeras och klipps ut.

Ctrl+ ← , Ctrl+ ←
Markören flyttas tillbaka till strax före konjunktionen.

Ctrl+V
Det andra ordet klistras in.

Nettoeffekten av dessa kortkommandon är att klippa ut ett ord på ena sidan av ett och eller eller och sedan klistra in ordet på den andra sidan. Sedan klipps och klistras det andra ordet före och eller eller.

För att detta makro ska vara effektivt måste infogningspekaren blinka i 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. Den swap_sentences makrot gör just det. Och, som i andra makron för textmanipulering, använd tangentbordet - inte musen - för att markera text.

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

Sub swap_sentences()

'

' swap_sentences Makro

' Byt två meningar

'

Urval.

Utöka

urval.

Utöka

urval.

Utöka

urval. Klipp ut urval. Utöka urval. Utöka urval. Utöka

Selection.EscapeKey

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

Selection.Paste

Avsluta Sub

Här är tangenttryckningarna som registrerats för att skapa makrot swap_sentences :

F8, F8, F8
Den aktuella meningen är vald.

Ctrl+X

F8, F8, F8
Nästa mening väljs.

Esc, →
Valet avbryts och infogningspekaren placeras i början av nästa mening.

Ctrl+V
Den första meningen klistras in efter den andra meningen.

När du kör det här makrot, se till att infogningspekaren är inställd någonstans inom den första meningen.

Byt sidhuvud och sidfotstext i Word 2016

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

Sub swap_header_footer()

'

' swap_header_footer Makro

' Exchange header/footer text

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Stäng

End If

If ActiveWindow.ActivePane.View.Type Eller = wdNormalowView. _

ActivePane.View.Type = wdOutlineView Då

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Enhet: = 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

Den övergripande effekten av detta makro är att redigera dokumentets sidhuvud, markera och klippa ut all text och sedan byta till sidfoten. Väl i sidfoten klistras sidhuvudets text in, och sedan markeras sidfotens text och klipps ut. Makrot växlar tillbaka till sidhuvudet och klistrar in sidfotens text. Sedan stänger makrot rubriken.