Schrijven van Word 2016-macro's om tekstelementen te wisselen - dummies

Bij het werken met documenten in Word 2016, vooral langere, wil je het extra gemak en de FUN-functionaliteit van macro's die tekstwoorden, zinsdelen of elementen rond. Om macro's te maken, hebt u waarschijnlijk de programmeertaal Visual Basic for Applications (VBA) nodig, die enorm, complex en intimiderend is. Dat betekent dat het een groot potentieel heeft, maar dat het niet iets is dat je zult leren en leren in een informele middag.

Hier zijn enkele "ruil" -macro's om u te helpen aan de slag te gaan met het aanpassen van uw Word-ervaring.

Word-uitwisseling in Word 2016

Hier is een handige macro die u waarschijnlijk altijd zult gebruiken. De macro word_swap wisselt twee woorden uit. Het snijdt het eerste woord en plakt het na het tweede woord:

Sub word_swap ()

'

' word_swap Macro

'Wissel twee woorden, links-rechts

'

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

Selection. Snijd

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

Selectie. Plakken

Einde sub

Deze toetsaanslagen zijn opgenomen om deze macro te maken:

Ctrl + Shift + →Het woord rechts van de cursor is geselecteerd.
Ctrl + X Het woord is afgekapt.
Ctrl + →

De cursor verplaatst zich achter het tweede woord.
Ctrl + V Het originele woord is geplakt.

Word-macro's kunnen geen muisklikken opnemen. Wanneer u tekst moet selecteren, gebruikt u de cursortoetsen plus de Shift-toets of gebruikt u de F8-toets (uitgebreide selectie).

Om deze macro te laten werken, moet de invoegwijzer ook aan het begin van het eerste woord staan.

En / of woordruil in Word 2016

Nog een verwisselbare woordmacro die u waarschijnlijk vaak zult gebruiken in de en_of_word_swap macro. In tegenstelling tot een gewone woordruil, is het doel van deze macro om woorden aan weerszijden van een conjunctie uit te wisselen. Wijzig bijvoorbeeld dit of dat in dat of deze.

Net als bij de word_swap macro, werd deze macro opgenomen vanuit toetsaanslaginvoer:

Sub and_or_word_swap ()

'

' and_or_word_swap Macro

'Twee woorden in een conjunctie verwisselen

'

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

Selection. Cut

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

Selectie. Plakken

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

Selection. Cut

Selectie. MoveLeft-eenheid: = wdWord, Count: = 2

Selectie. Plakken

Einde sub

Dit zijn de toetsaanslagen die worden gebruikt om deze macro op te nemen:

Ctrl + Shift + →
Ctrl + X Het eerste woord wordt afgekapt.
Ctrl + →

De invoegwijzer springt over de combinatie, en of of.
Ctrl + V Het woord is geplakt na de conjunctie.
Ctrl + Shift + →
Ctrl + X Het woord na de conjunctie (nu na het eerste woord dat u in stap 4 hebt geplakt) wordt geselecteerd en afgekapt.
Ctrl + ← , Ctrl + ←De cursor gaat terug naar vlak voor de conjunctie.
Ctrl + V Het tweede woord is geplakt.

Het netto-effect van deze sneltoetsen is om een woord aan één kant van een en of of te knippen en vervolgens het woord aan de andere kant te plakken. Vervolgens wordt het tweede woord geknipt en geplakt vóór de en of of.

Om deze macro effectief te laten zijn, moet de invoegwijzer aan het begin van het eerste woord knipperen.

Ruil zinnen in Word 2016

Net zoals u twee woorden achter elkaar kunt wisselen, kunt u ook twee zinnen omwisselen. De swap_sentences macro doet precies dat. En, net als in andere macro's voor tekstmanipulatie, gebruikt u het toetsenbord - niet de muis - om tekst te selecteren.

In de volgende code, de selectie. Extend -opdracht staat voor het drukken op de F8-toets op het toetsenbord. Wanneer u driemaal op die toets drukt, wordt een zin geselecteerd.

Sub swap_sentences ()

'

' swap_sentences Macro

'Twee zinnen verwisselen

'

Selectie. Verleng

Selectie. Cut

Selectie. Verleng

Selectie. EscapeKey

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

Selectie. Plak

End Sub

Hier volgen de toetsaanslagen die zijn vastgelegd om de swap_sentences macro te maken:

F8, F8, F8 De huidige zin is geselecteerd.
Ctrl + X
F8, F8, F8 De volgende zin is geselecteerd.
Esc, →

De selectie is geannuleerd en de invoegwijzer staat aan het begin van de volgende zin.
Ctrl + V De eerste zin is geplakt na de tweede zin.

Zorg er bij het uitvoeren van deze macro voor dat de invoegcursor ergens in de eerste zin is geplaatst.

Wissel koptekst en voettekst in Word 2016

De swap_header_footer macro verwisselt de koptekst en voettekst van het document. U kunt dit proces handmatig voltooien, maar het probleem is dat de macro niet alle acties nauwkeurig registreert. Dus, hoewel u de eenvoudige toetsaanslagen kunt opnemen, moet u terugkeren naar de Visual Basic-editor om de macro te voltooien:

Sub swap_header_footer ()

'

' swap_header_footer Macro

'Exchange header / footer text < '

Als ActiveWindow. Uitzicht. SplitSpecial wdPaneNone Then

ActiveWindow. Ruiten (2). Sluiten

Einde als

Als ActiveWindow. ActivePane. Uitzicht. Type = wdNormalView of ActiveWindow. _

ActivePane. Uitzicht. Type = wdOutlineView Then

ActiveWindow. ActivePane. Uitzicht. Type = wdPrintView

End If

ActiveWindow. ActivePane. Uitzicht. SeekView = wdSeekCurrentPageHeader

Selectie. WholeStory

Selectie. Cut

ActiveWindow. ActivePane. Uitzicht. SeekView = wdSeekCurrentPageFooter

Selectie.HomeKey-eenheid: = wdLine

selectie. Plakken

Selectie. EndKey-eenheid: = wdLine, Extend: = wdExtend

Selectie. Cut

ActiveWindow. ActivePane. Uitzicht. SeekView = wdSeekCurrentPageHeader

Selectie. Plakken

ActiveWindow. ActivePane. Uitzicht. SeekView = wdSeekMainDocument

End Sub

Het algehele effect van deze macro is het bewerken van de kop van het document, het selecteren en knippen van al die tekst en vervolgens overschakelen naar de voettekst. Eenmaal in de voettekst is de koptekst geplakt en wordt de voettekst geselecteerd en gesneden. De macro schakelt terug naar de koptekst en plakt de tekst van de voettekst. Dan sluit de macro de koptekst.