Jak napsat makra aplikace Word 2016 pro výměnu textových prvků

Při práci s dokumenty ve Wordu 2016, zejména s delšími, budete chtít extra snadnost a FUNKČNOST maker, která dokážou zaměnit textová slova, fráze nebo prvky. K vytváření maker budete pravděpodobně potřebovat programovací jazyk Visual Basic for Applications (VBA), který je rozsáhlý, složitý a zastrašující. To znamená, že to má velký potenciál, ale není to něco, co budete sedět a učit se během neformálního odpoledne.

Zde je několik „přepínacích“ maker, které vám pomohou začít s přizpůsobením prostředí Wordu.

Word swap ve Wordu 2016

Zde je praktické makro, které pravděpodobně budete používat stále. Word_swap makro swapy dvě slova. Vyjme první slovo a vloží ho za druhé slovo:

Sub word_swap()

'

' word_swap Macro

' Prohodit dvě slova, vlevo-vpravo

'

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

Selection.Cut

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

Selection.Paste

End Sub

K vytvoření tohoto makra byly zaznamenány tyto úhozy:

Ctrl+Shift+ →
Je vybráno slovo napravo od kurzoru.

Ctrl+X
Slovo je vyříznuto.

Ctrl+ →
Kurzor se přesune za druhé slovo.

Ctrl+V
Vloží se původní slovo.

Word makra nemohou zaznamenávat kliknutí myší. Když potřebujete vybrat text, použijte kurzorové klávesy plus klávesu Shift nebo použijte klávesu F8 (rozšířený výběr).

Aby toto makro fungovalo, musí být ukazatel vložení umístěn na začátek prvního slova.

A/nebo záměna slov ve Wordu 2016

Další makro pro výměnu slov, které pravděpodobně budete často používat, je makro and_or_word_swap . Na rozdíl od běžné záměny slov je cílem tohoto makra přehodit slova na obou stranách spojky. Například změna toho či onoho na to či ono.

Stejně jako u makra word_swap bylo toto makro zaznamenáno ze vstupu po stisknutí klávesy:

Sub and_or_word_swap()

'

' and_or_word_swap Macro ' Prohoďte

dvě slova ve 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

Zde jsou klávesové zkratky používané k záznamu tohoto makra:

Ctrl+Shift+ →

Ctrl+X
První slovo se vyjme.

Ctrl+ →
Ukazatel vložení přeskakuje přes spojku a nebo nebo.

Ctrl+V
Slovo se vloží za spojku.

Ctrl+Shift+ →

Ctrl+X
Slovo za spojkou (nyní za prvním slovem, které jste vložili v kroku 4) se vybere a vyjme.

Ctrl+ ← , Ctrl+ ←
Kurzor se přesune zpět těsně před spojku.

Ctrl+V
Vloží se druhé slovo.

Výsledkem těchto klávesových zkratek je vyjmutí slova na jedné straně a nebo nebo a následné vložení slova na druhou stranu. Poté se druhé slovo vyjme a vloží před a nebo nebo.

Aby bylo toto makro účinné, musí ukazatel vložení blikat na začátku prvního slova.

Vyměňte věty ve Wordu 2016

Stejně jako můžete prohodit dvě slova za sebou, můžete prohodit i dvě věty. Swap_sentences makro dělá jen to. A stejně jako v jiných makrech pro manipulaci s textem použijte k výběru textu klávesnici, nikoli myš.

V následujícím kódu představuje příkaz Selection.Extend stisknutí klávesy F8 na klávesnici. Když toto tlačítko stisknete třikrát, vybere se věta.

Sub swap_sentences()

'

' makro swap_sentences

“ Prohoďte dvě věty

'

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

Zde jsou zaznamenané úhozy k vytvoření makra swap_sentences :

F8, F8, F8
Je vybrána aktuální věta.

Ctrl+X

F8, F8, F8
Je vybrána další věta.

Esc, →
Výběr se zruší a kurzor se umístí na začátek další věty.

Ctrl+V
První věta se vloží za druhou větu.

Při spuštění tohoto makra se ujistěte, že je ukazatel vložení nastaven někde v rámci první věty.

Vyměňte text záhlaví a zápatí ve Wordu 2016

Tyto swap_header_footer makro swapy záhlaví textu dokumentu a zápatí text. Tento proces můžete dokončit ručně, ale problém je v tom, že makro nezaznamenává přesně všechny akce. Takže i když můžete zaznamenat základní úhozy, musíte se vrátit do editoru jazyka Visual Basic, abyste dokončili makro:

Sub swap_header_footer()

'

' swap_header_footer Macro

' Výměna textu záhlaví/zápatí

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

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

ActivePane.View.Type = wdOutlineView Pak

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 tohoto makra je upravit záhlaví dokumentu, vybrat a vyjmout veškerý text a poté přepnout na zápatí. Jakmile je v zápatí, vloží se text záhlaví a poté se vybere a vyjme text zápatí. Makro se přepne zpět do záhlaví a vloží text zápatí. Poté makro zavře záhlaví.