Ako napísať makrá programu Word 2016 na výmenu prvkov textu

Pri práci s dokumentmi vo Worde 2016, najmä s dlhšími, budete chcieť extra jednoduchosť a FUNKČNOSŤ makier, ktoré dokážu zamieňať textové slová, frázy alebo prvky. Na vytváranie makier budete pravdepodobne potrebovať programovací jazyk Visual Basic for Applications (VBA), ktorý je rozsiahly, zložitý a zastrašujúci. To znamená, že to má veľký potenciál, ale nie je to niečo, čo by ste si sadli a naučili sa počas neformálneho popoludnia.

Tu je niekoľko makier na výmenu, ktoré vám pomôžu začať pri prispôsobovaní prostredia Wordu.

Výmena slov vo Worde 2016

Tu je praktické makro, ktoré budete pravdepodobne používať stále. Word_swap makro swapy dve slová. Vystrihne prvé slovo a potom ho vloží za druhé slovo:

Sub word_swap()

'

' Makro word_swap

' Vymeňte dve slová, vľavo-vpravo

'

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

Selection.Cut

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

Selection.Paste

End Sub

Na vytvorenie tohto makra boli zaznamenané tieto stlačenia klávesov:

Ctrl+Shift+ →
Vyberie sa slovo napravo od kurzora.

Ctrl+X
Slovo sa vystrihne.

Ctrl+ →
Kurzor sa presunie po druhom slove.

Ctrl+V
Vloží sa pôvodné slovo.

Makrá programu Word nedokážu zaznamenávať kliknutia myšou. Keď potrebujete vybrať text, použite kurzorové klávesy plus kláves Shift alebo použite kláves F8 (rozšírený výber).

Aby toto makro fungovalo, musí byť ukazovateľ vloženia umiestnený na začiatku prvého slova.

A/alebo zámena slov vo Worde 2016

Ďalšie makro na zámenu slov, ktoré pravdepodobne budete často používať, je makro and_or_word_swap . Na rozdiel od bežnej zámeny slov je cieľom tohto makra zámena slov na oboch stranách spojky. Napríklad zmeniť to alebo to na to alebo toto.

Rovnako ako v prípade makra word_swap , aj toto makro bolo zaznamenané zo vstupu po stlačení klávesu:

Sub and_or_word_swap()

'

' and_or_word_swap Macro

' Vymeňte dve slová v spojení

'

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

Tu sú klávesové skratky používané na zaznamenanie tohto makra:

Ctrl+Shift+ →

Ctrl+X
Prvé slovo sa vystrihne.

Ctrl+ →
Ukazovateľ vloženia preskočí na spojku a alebo alebo.

Ctrl+V
Slovo sa vloží za spojku.

Ctrl+Shift+ →

Ctrl+X
Slovo za spojkou (teraz za prvým slovom, ktoré ste vložili v kroku 4) sa vyberie a vystrihne.

Ctrl+ ← , Ctrl+ ←
Kurzor sa presunie späť tesne pred spojku.

Ctrl+V
Druhé slovo sa vloží.

Čistým efektom týchto klávesových skratiek je vystrihnutie slova na jednej strane a alebo alebo a následné prilepenie slova na druhú stranu. Potom sa vystrihne druhé slovo a prilepí sa pred a alebo alebo.

Aby bolo toto makro účinné, musí ukazovateľ vloženia blikať na začiatku prvého slova.

Vymeňte vety v programe Word 2016

Tak ako môžete prehodiť dve slová za sebou, môžete prehodiť aj dve vety. Swap_sentences makro robí len to. A ako v iných makrách na manipuláciu s textom, na výber textu použite klávesnicu – nie myš.

V nasledujúcom kóde príkaz Selection.Extend predstavuje stlačenie klávesu F8 na klávesnici. Keď toto tlačidlo stlačíte trikrát, vyberie sa veta.

Sub swap_sentences()

'

' makro swap_sentences

“ Prehoďte dve vety

'

Selection.Extend

Selection.Extend

Selection.Extend

Selection.Cut

Selection.Extend

Selection.Extend

Selection.Extend

Selection.EscapeKey

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

Selection.Paste

End Sub

Tu sú zaznamenané stlačenia klávesov na vytvorenie makra swap_sentences :

F8, F8, F8 Vyberie sa
aktuálna veta.

Ctrl+X

F8, F8, F8 Vyberie sa
ďalšia veta.

Esc, →
Výber sa zruší a kurzor na vloženie sa umiestni na začiatok ďalšej vety.

Ctrl+V
Prvá veta sa vloží za druhú vetu.

Keď spustíte toto makro, uistite sa, že ukazovateľ vloženia je nastavený niekde v rámci prvej vety.

Vymeňte text hlavičky a päty vo Worde 2016

Tieto swap_header_footer makro swapy záhlavie textu dokumentu a päty text. Tento proces môžete dokončiť manuálne, ale problém je v tom, že makro nezaznamenáva presne všetky akcie. Takže aj keď môžete zaznamenať základné stlačenia klávesov, musíte sa vrátiť do editora jazyka Visual Basic, aby ste dokončili makro:

Sub swap_header_footer()

'

' swap_header_footer Macro

' Vymeniť text hlavičky/päty

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormowalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Potom

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Unit: = 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

Celkový efekt tohto makra je upraviť hlavičku dokumentu, vybrať a vystrihnúť celý text a potom prepnúť na pätu. Keď sa nachádzate v päte, text hlavičky sa vloží a potom sa text päty vyberie a vystrihne. Makro sa prepne späť na hlavičku a vloží text päty. Potom makro zatvorí hlavičku.