Når du arbeider med dokumenter i Word 2016, spesielt lengre, vil du ha ekstra enkelhet og funksjonalitet til makroer som kan bytte tekstord, setninger eller elementer rundt. For å lage makroer trenger du sannsynligvis programmeringsspråket Visual Basic for Applications (VBA), som er stort, komplekst og skremmende. Det betyr at det har et stort potensial, men det er ikke noe du vil sitte og lære på en uformell ettermiddag.
Her er noen "bytte"-makroer for å hjelpe deg i gang med å tilpasse Word-opplevelsen.
Ordbytte i Word 2016
Her er en hendig makro som du sannsynligvis vil bruke hele tiden. Den word_swap makro swapper to ord. Den kutter det første ordet og limer det deretter inn etter det andre ordet:
Sub word_swap()
'
' word_swap Makro
' Bytt to ord, venstre-høyre
'
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
End Sub
Disse tastetrykkene ble registrert for å lage denne makroen:
Ctrl+Shift+ →
Ordet til høyre for markøren er valgt.
Ctrl+X
Ordet er kuttet.
Ctrl+ →
Markøren flyttes etter det andre ordet.
Ctrl+V
Det opprinnelige ordet limes inn.
Word-makroer kan ikke registrere museklikk. Når du trenger å velge tekst, bruk piltastene pluss Shift-tasten, eller bruk F8-tasten (utvidet utvalg).
For at denne makroen skal fungere, må innsettingspekeren være plassert ved starten av det første ordet.
Og/eller ordbytte i Word 2016
En annen ordbyttemakro som du sannsynligvis vil bruke ofte, og_eller_ordbyttemakroen . I motsetning til en vanlig ordbytte, er målet med denne makroen å bytte ord på hver side av en konjunksjon. For eksempel å endre dette eller det til det eller dette.
Som med ordbytte- makroen, ble denne makroen registrert fra tastetrykk:
Sub and_or_word_swap()
'
' and_or_word_swap Makro
' Bytt to ord i en konjunksjon
'
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
Her er tastetrykkene som brukes til å ta opp denne makroen:
Ctrl+Shift+ →
Ctrl+X
Det første ordet kuttes.
Ctrl+ →
Innsettingspekeren hopper over konjunksjonen, og eller eller.
Ctrl+V
Ordet limes inn etter konjunksjonen.
Ctrl+Shift+ →
Ctrl+X
Ordet etter konjunksjonen (nå etter det første ordet du limte inn i trinn 4) velges og kuttes.
Ctrl+ ← , Ctrl+ ←
Markøren flyttes tilbake til like før konjunksjonen.
Ctrl+V
Det andre ordet limes inn.
Nettoeffekten av disse tastatursnarveiene er å kutte et ord på den ene siden av et og eller eller og deretter lime 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å innsettingspekeren 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. Den swap_sentences makro gjør nettopp det. Og, som i andre tekstmanipuleringsmakroer, bruk tastaturet – ikke musen – for å velge tekst.
I den følgende koden representerer Selection.Extend- kommandoen å 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 om to setninger
'
Utvalg.Utvid
utvalget.Utvid
utvalget.Utvid
utvalget.Kutt
utvalget.Utvid
utvalget.Utvid
utvalget.Utvid
Selection.EscapeKey
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Paste
End Sub
Her er tastetrykkene som er registrert for å lage swap_sentences- makroen:
F8, F8, F8
Gjeldende setning er valgt.
Ctrl+X
F8, F8, F8
Neste setning er valgt.
Esc, →
Valget avbrytes, og innsettingspekeren plasseres i begynnelsen av neste setning.
Ctrl+V
Den første setningen limes inn etter den andre setningen.
Når du kjører denne makroen, sørg for at innsettingspekeren er satt et sted innenfor den første setningen.
Bytt topptekst og bunntekst i Word 2016
De swap_header_footer makro swaps dokumentets topptekst og bunntekst. Du kan fullføre denne prosessen manuelt, men problemet er at makroen ikke registrerer alle handlingene nøyaktig. Så selv om du kan registrere 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
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type Eller = ActiveWindow.Panes. _
ActivePane.View.Type = wdOutlineView Deretter
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 generelle effekten av denne makroen er å redigere dokumentets topptekst, velge og kutte ut all teksten, og deretter bytte til bunnteksten. En gang i bunnteksten limes overskriftsteksten inn, og deretter merkes og klippes bunnteksten. Makroen bytter tilbake til toppteksten og limer inn bunnteksten. Deretter lukker makroen overskriften.