Når du arbejder med dokumenter i Word 2016, især længere, vil du have den ekstra lethed og FUNKtionalitet af makroer, der kan bytte tekstord, sætninger eller elementer rundt. For at oprette makroer har du sandsynligvis brug for programmeringssproget Visual Basic for Applications (VBA), som er stort, komplekst og skræmmende. Det betyder, at det har et stort potentiale, men det er ikke noget, du vil sidde og lære på en afslappet eftermiddag.
Her er et par "bytte"-makroer for at hjælpe dig i gang med at tilpasse din Word-oplevelse.
Ordbytning i Word 2016
Her er en praktisk makro, som du sandsynligvis vil bruge hele tiden. Den word_swap makro swaps to ord. Den klipper det første ord og indsætter det derefter efter det andet ord:
Sub word_swap()
'
' word_swap Makro
' Skift to ord, venstre-højre
'
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
End Sub
Disse tastetryk blev optaget for at lave denne makro:
Ctrl+Shift+ →
Ordet til højre for markøren er valgt.
Ctrl+X
Ordet er klippet.
Ctrl+ →
Markøren flytter sig efter det andet ord.
Ctrl+V
Det oprindelige ord indsættes.
Word-makroer kan ikke optage museklik. Når du skal markere tekst, skal du bruge markørtasterne plus Shift-tasten eller bruge F8-tasten (udvidet valg).
For at denne makro skal fungere, skal indsættelsesmarkøren være placeret i starten af det første ord.
Og/eller ordbytte i Word 2016
En anden ordbyttemakro, som du sandsynligvis vil bruge ofte, og_eller_ord_byttemakroen . I modsætning til en almindelig ordbytning er målet med denne makro at bytte ord på begge sider af en konjunktion. For eksempel at ændre dette eller hint til det eller det.
Som med word_swap- makroen blev denne makro optaget fra tastetryk:
Sub and_or_word_swap()
'
' and_or_word_swap Macro
' Skift to 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
Her er de tastetryk, der bruges til at optage denne makro:
Ctrl+Shift+ →
Ctrl+X
Det første ord klippes.
Ctrl+ →
Indsættelsesmarkøren hopper over konjunktionen og eller eller.
Ctrl+V
Ordet indsættes efter konjunktionen.
Ctrl+Shift+ →
Ctrl+X
Ordet efter konjunktionen (nu efter det første ord, du indsatte i trin 4) vælges og klippes.
Ctrl+ ← , Ctrl+ ←
Markøren flytter tilbage til lige før konjunktionen.
Ctrl+V
Det andet ord indsættes.
Nettoeffekten af disse tastaturgenveje er at klippe et ord på den ene side af et og eller eller og derefter indsætte ordet på den anden side. Derefter klippes og indsættes det andet ord før og eller eller.
For at denne makro skal være effektiv, skal indsættelsesmarkøren blinke i starten af det første ord.
Skift sætninger i Word 2016
Ligesom du kan bytte to ord i træk, kan du også bytte to sætninger. Den swap_sentences makro gør netop det. Og som i andre tekstmanipulationsmakroer skal du bruge tastaturet - ikke musen - til at vælge tekst.
I den følgende kode repræsenterer kommandoen Selection.Extend, at du trykker på F8-tasten på tastaturet. Når du trykker på den tast tre gange, vælges en sætning.
Sub swap_sentences()
'
' swap_sætninger Makro
' Skift to sætninger
'
Udvælgelse.Udvid
markering.Udvid
markering.Udvid
markering.Klip
markering.Udvid
markering.Udvid
markering.Udvid
Selection.EscapeKey
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Paste
Slut Sub
Her er tastetryk, der er registreret for at oprette makroen swap_sætninger :
F8, F8, F8
Den aktuelle sætning er valgt.
Ctrl+X
F8, F8, F8
Den næste sætning er valgt.
Esc, →
Valget annulleres, og indsættelsesmarkøren placeres i starten af næste sætning.
Ctrl+V
Den første sætning indsættes efter den anden sætning.
Når du kører denne makro, skal du sikre dig, at indsættelsesmarkøren er sat et sted inden for den første sætning.
Skift sidehoved og sidefodstekst i Word 2016
De swap_header_footer makro swaps dokumentets sidehoved tekst og sidefod tekst. Du kan fuldføre denne proces manuelt, men problemet er, at makroen ikke registrerer alle handlingerne nøjagtigt. Så selvom du kan optage de grundlæggende tastetryk, skal du vende tilbage til Visual Basic Editor for at fuldfø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 = wdNormalowView. _
ActivePane.View.Type = wdOutlineView Så
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Cut
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.HomeKey Enhed: = 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 overordnede effekt af denne makro er at redigere dokumentets sidehoved, markere og klippe al den tekst og derefter skifte til sidefoden. Når den først er i sidefoden, indsættes sidehovedets tekst, og derefter markeres og klippes sidefodens tekst. Makroen skifter tilbage til sidehovedet og indsætter sidefodens tekst. Så lukker makroen overskriften.