Hvordan skrive Word 2016 makroer for å bytte tekstelementer - dummies

Når du arbeider med dokumenter i Word 2016, spesielt lengre, vil du ha den ekstra lettheten og funksjonaliteten til makroer som kan bytte tekstord, setninger eller elementer rundt. For å lage makroer trenger du sannsynligvis Visual Basic for Applications (VBA) programmeringsspråk, som er stort, komplekst og skremmende. Det betyr at det har stort potensial, men det er ikke noe du vil sitte og lære i en uformell ettermiddag.

Her er noen "bytte" makroer for å hjelpe deg med å komme i gang med å tilpasse din Word-opplevelse.

Word bytte i Word 2016

Her er en praktisk makro som du sikkert bruker hele tiden. Makroen word_swap bytter to ord. Den kutter det første ordet og klistrer det etter det andre ordet:

Sub word_swap ()

'

' word_swap Makro

'Bytt to ord, venstre-høyre

'

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

Valg. Skjær

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

Valg. Lim inn

End Sub

Disse tastetrykkene ble registrert for å gjøre denne makroen:

Ctrl + Shift + →Ordet til høyre for markøren er valgt.
Ctrl + X Ordet er kuttet.
Ctrl + →

Markøren beveger seg etter det andre ordet.
Ctrl + V Det originale ordet er limt inn.

Word-makroer kan ikke registrere museklikk. Når du må velge tekst, bruk markørtastene pluss Shift-tasten eller bruk F8 (utvidet utvalg) -tasten.

Også for denne makroen å fungere, må innsettingspekeren plasseres ved starten av det første ordet.

Og / eller ordbytte i Word 2016

En annen ordbyttemakro som du sikkert bruker ofte og_or_word_swap makroen. I motsetning til en vanlig ordbytt, er målet med denne makroen å bytte ord på hver side av en sammenheng. For eksempel, endrer dette eller det til det eller dette.

Som med word_swap makroen, ble denne makroen registrert fra tastetrykksinngang:

Sub and_or_word_swap ()

'

' og_or_word_swap Makro

'Bytt to ord i en sammenheng

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

Valg. Cut

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

Valg. Lim

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

Valg. Cut

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

Valg. Lim inn

End Sub

Her er tastetrykkene som brukes til å registrere denne makroen:

Ctrl + Shift + →
Ctrl + X Det første ordet er kuttet.
Ctrl + →

Innføringspekeren hopper over sammenhengen, og eller eller.
Ctrl + V Ordet er limt inn etter sammenhengen.
Ctrl + Shift + →
Ctrl + X Ordet etter sammenhengen (nå etter det første ordet du limte inn i trinn 4) er valgt og klippet.
Ctrl + ← , Ctrl + ←Markøren beveger seg tilbake til like før sammenhengen.
Ctrl + V Det andre ordet er limt inn.

Nettverkseffekten av disse hurtigtastene er å kutte et ord på den ene siden av en og eller eller og deretter lim inn ordet på den andre siden. Deretter klippes og limes det andre ordet før og eller eller.

For at denne makroen skal være effektiv, må innsatspekeren blinke ved starten av det første ordet.

Bytt setninger i Word 2016

På samme måte som du kan bytte to ord på rad, kan du også bytte to setninger. Makroen swap_sentences gjør akkurat det. Og, som i andre tekstmanipuleringsmakroer, bruk tastaturet - ikke musen - for å velge tekst.

I følgende kode velger du. Utvid kommandoen representerer å trykke på F8-tasten på tastaturet. Når du trykker på den tasten tre ganger, velges en setning.

Sub swap_sentences ()

'

' swap_sentences Makro

'Bytt to setninger

'

Valg. Forlenge

markering. Forlenge

markering. Cut

markering. Forlenge

markering. EscapeKey

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

Valg. Lim inn

End Sub

Her er tastetrykkene registrert for å lage swap_sentences makro:

F8, F8, F8 Den aktuelle setningen er valgt.
Ctrl + X
F8, F8, F8 Neste setning er valgt.
Esc, →

Valget er avbrutt, og innsettingspekeren er plassert i begynnelsen av neste setning.
Ctrl + V Første setning er latt etter andre setning.

Når du kjører denne makroen, må du kontrollere at innsettingspekeren er satt et sted i første setning.

Bytt header- og bunnteksttekst i Word 2016

Makroen swap_header_footer bytter dokumentets headertekst og bunnteksttekst. Du kan fullføre denne prosessen manuelt, men problemet er at makroen ikke nøyaktig registrerer alle handlingene. Så, selv om du kan ta opp de grunnleggende tastetrykkene, må du gå tilbake til Visual Basic Editor for å fullføre makroen:

Sub swap_header_footer ()

'

' swap_header_footer Makro

'Exchange header / footer text < '

Hvis ActiveWindow. Utsikt. SplitSpecial wdPaneNone Then

ActiveWindow. Rutene (2). Lukk

Slutt hvis

Hvis ActiveWindow. ActivePane. Utsikt. Type = wdNormalView eller ActiveWindow. _

ActivePane. Utsikt. Type = wdOutlineView Then

ActiveWindow. ActivePane. Utsikt. Skriv = wdPrintView

Slutt hvis

ActiveWindow. ActivePane. Utsikt. SeekView = wdSeekCurrentPageHeader

Valg. WholeStory

markering. Cut

ActiveWindow. ActivePane. Utsikt. SeekView = wdSeekCurrentPageFooter

Valg.HomeKey Unit: = wdLine

Valg. Lim

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

Valg. Cut

ActiveWindow. ActivePane. Utsikt. SeekView = wdSeekCurrentPageHeader

Valg. Lim

ActiveWindow. ActivePane. Utsikt. SeekView = wdSeekMainDocument

End Sub

Den samlede effekten av denne makroen er å redigere dokumentets overskrift, velg og klipp all teksten, og skift deretter til bunnteksten. En gang i bunnteksten limes topptekstens tekst, og deretter er bunntekstens tekst valgt og kuttet. Makroen skifter tilbake til toppteksten og limer bunntekstens tekst. Så lukker makroen toppteksten.