Kako napisati makre Word 2016 za zamenjavo besedilnih elementov

Pri delu z dokumenti v Wordu 2016, zlasti z daljšimi, boste želeli dodatno enostavnost in FUNKcionalnost makrov, ki lahko zamenjajo besedilne besede, besedne zveze ali elemente. Če želite ustvariti makre, boste verjetno potrebovali programski jezik Visual Basic za aplikacije (VBA), ki je obsežen, zapleten in zastrašujoč. To pomeni, da ima velik potencial, vendar ni nekaj, kar bi se lahko učili v ležernem popoldnevu.

Tukaj je nekaj "zamenjalnih" makrov, ki vam bodo pomagali začeti prilagajati izkušnjo Worda.

Zamenjava besed v Wordu 2016

Tukaj je priročen makro, ki ga boste verjetno uporabljali ves čas. Word_swap makro zamenjave dveh besed. Izreže prvo besedo in jo nato prilepi za drugo besedo:

Sub word_swap()

'

' word_swap Macro

' Zamenjaj dve besedi, levo-desno

'

Izbira.Premik desno Enota:=wdWord, Število:=1, Razširi:=wdExtend

Selection.Cut

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

Selection.Paste

End Sub

Za izdelavo tega makra so bili posneti ti pritiski tipk:

Ctrl+Shift+ →
Izbrana je beseda na desni strani kazalca.

Ctrl+X
Beseda je izrezana.

Ctrl+ →
Kazalec se premakne za drugo besedo.

Ctrl+V
Izvirna beseda je prilepljena.

Wordovi makri ne morejo snemati klikov miške. Ko morate izbrati besedilo, uporabite smerne tipke in tipko Shift ali uporabite tipko F8 (razširjeno izbiranje).

Da bi ta makro deloval, mora biti kazalec za vstavljanje postavljen na začetek prve besede.

In/ali zamenjava besed v Wordu 2016

Še en makro za zamenjavo besed, ki ga boste verjetno pogosto uporabljali in_or_word_swap makro. Za razliko od običajne zamenjave besed je cilj tega makra zamenjati besede na obeh straneh veznika. Na primer, spreminjanje tega ali onega v ono ali to.

Tako kot pri makru word_swap je bil ta makro posnet iz vnosa s tipko:

Sub and_or_word_swap()

'

in_or_word_swap Macro

' Zamenjaj dve besedi v vezniku

'

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

Izbira.

Prilepi Končno pod

Tukaj so pritiski tipk, ki se uporabljajo za snemanje tega makra:

Ctrl+Shift+ →

Ctrl+X
Prva beseda je izrezana.

Ctrl+ →
Kazalec za vstavljanje skoči čez veznik in ali ali.

Ctrl+V
Beseda je prilepljena za veznikom.

Ctrl+Shift+ →

Ctrl+X
Beseda za veznikom (zdaj po prvi besedi, ki ste jo prilepili v 4. koraku) je izbrana in izrezana.

Ctrl+ ← , Ctrl+ ←
Kazalec se premakne nazaj na tik pred veznikom.

Ctrl+V
Druga beseda je prilepljena.

Neto učinek teh bližnjic na tipkovnici je, da izrežete besedo na eni strani in ali ali in nato besedo prilepite na drugo stran. Nato se druga beseda izreže in prilepi pred in ali ali.

Da je ta makro učinkovit, mora kazalec za vstavljanje utripati na začetku prve besede.

Zamenjajte stavke v Wordu 2016

Tako kot lahko zamenjate dve besedi zapored, lahko zamenjate tudi dva stavka. Swap_sentences makro počne prav to. In tako kot pri drugih makrih za manipulacijo besedila, za izbiro besedila uporabite tipkovnico - ne miške.

V naslednji kodi ukaz Selection.Extend predstavlja pritiskanje tipke F8 na tipkovnici. Ko trikrat pritisnete to tipko, je izbran stavek.

Sub swap_sentences()

'

' swap_sentences Makro

« Zamenjaj dva stavka

'

Izbor.Razširi

izbor.Razširi

izbor.Razširi

izbor.Izreži

izbor.Razširi

izbor.Razširi

izbor.Razširi

Selection.EscapeKey

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

Selection.Paste

Končni sub

Tukaj so posnetki pritiski tipk za ustvarjanje makra swap_sentences :

F8, F8, F8
Izbran je trenutni stavek.

Ctrl+X

F8, F8, F8
Izbran je naslednji stavek.

Esc, →
Izbira se prekliče in kazalec za vstavljanje se postavi na začetek naslednjega stavka.

Ctrl+V
Prvi stavek se prilepi za drugim stavkom.

Ko zaženete ta makro, zagotovite, da je kazalec za vstavljanje nastavljen nekje v prvem stavku.

Zamenjajte besedilo glave in noge v Wordu 2016

V swap_header_footer makro zamenjave strani dokumenta Glava besedila in noge besedila. Ta postopek lahko dokončate ročno, vendar je težava v tem, da makro ne beleži natančno vseh dejanj. Torej, čeprav lahko posnamete osnovne pritiske tipk, se morate vrniti v urejevalnik Visual Basic, da dokončate makro:

Sub swap_header_footer()

'

' swap_header_footer Macro

' Izmenjava besedila glave/noge

'

Če ActiveWindow.View.SplitSpecial <> wdPaneNone Potem

ActiveWindow.Panes(2).Close

End Če

Če ActiveWindow.ActivePane.View.Type.Type = wdWin _

ActivePane.View.Type = wdOutlineView Potem

ActiveWindow.ActivePane.View.Type = wdPrintView

End Če

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Enota: = wdLine

Selection.Prilepi

Selection.EndKey Enota:=wdLine, Extend:=wdExtend

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Paste

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Splošni učinek tega makra je urediti glavo dokumenta, izbrati in izrezati vse to besedilo in nato preklopiti na nogo. Ko je v nogi, je besedilo glave prilepljeno, nato pa je besedilo noge izbrano in izrezano. Makro preklopi nazaj na glavo in prilepi besedilo noge. Nato makro zapre glavo.