Kako napisati Word 2016 makronaredbe za zamjenu elemenata teksta

Kada radite s dokumentima u Wordu 2016, posebno s dužim, poželjet ćete dodatnu jednostavnost i FUNKCIONALNOST makronaredbi koje mogu mijenjati tekstualne riječi, fraze ili elemente. Za izradu makronaredbi vjerojatno će vam trebati programski jezik Visual Basic za aplikacije (VBA), koji je ogroman, složen i zastrašujući. To znači da ima veliki potencijal, ali nije nešto što ćete sjediti i naučiti u ležernom poslijepodnevu.

Evo nekoliko makronaredbi za "zamjenu" koje će vam pomoći da započnete s prilagodbom svog iskustva u Wordu.

Zamjena riječi u Wordu 2016

Evo zgodne makronaredbe koju ćete vjerojatno koristiti cijelo vrijeme. Word_swap makro swap dvije riječi. Reže prvu riječ, a zatim je lijepi iza druge riječi:

Sub word_swap()

'

' word_swap Macro

' Zamijenite dvije riječi, lijevo-desno

'

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

Selection.Cut

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

Selection.Paste

End Sub

Za izradu ove makronaredbe snimljeni su ovi pritiskom na tipke:

Ctrl+Shift+ →
Riječ desno od kursora je odabrana.

Ctrl+X
Riječ je izrezana.

Ctrl+ →
Kursor se pomiče iza druge riječi.

Ctrl+V
Izvorna riječ je zalijepljena.

Word makronaredbe ne mogu snimati klikove mišem. Kada trebate odabrati tekst, koristite tipke sa pokazivačem plus tipku Shift ili tipku F8 (prošireni odabir).

Također, da bi ovaj makro funkcionirao, pokazivač umetanja mora biti postavljen na početak prve riječi.

I/ili zamjena riječi u Wordu 2016

Još jedna makronaredba za zamjenu riječi koju ćete vjerojatno često koristiti, makronaredba and_or_word_swap . Za razliku od uobičajene zamjene riječi, cilj ove makronaredbe je zamijeniti riječi s obje strane veznika. Na primjer, mijenjanje ovoga ili onoga u ono ili ovo.

Kao i kod makronaredbe word_swap , ova makronaredba je snimljena pritiskom na tipku:

Sub and_or_word_swap()

'

' and_or_word_swap Macro

' Zamijenite dvije riječi u spoju

'

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

Evo tipki koje se koriste za snimanje ove makronaredbe:

Ctrl+Shift+ →

Ctrl+X
Prva riječ je izrezana.

Ctrl+ →
Pokazivač umetanja skače preko veznika i ili ili.

Ctrl+V
Riječ se lijepi iza veznika.

Ctrl+Shift+ →

Ctrl+X
Riječ nakon veznika (sada nakon prve riječi koju ste zalijepili u koraku 4) je odabrana i izrezana.

Ctrl+ ← , Ctrl+ ←
Pokazivač se pomiče na neposredno prije veznika.

Ctrl+V
Druga riječ je zalijepljena.

Neto učinak ovih tipkovničkih prečaca je izrezati riječ s jedne strane i ili ili, a zatim zalijepiti riječ s druge strane. Zatim se druga riječ izrezuje i lijepi ispred i ili ili.

Da bi ovaj makro bio učinkovit, pokazivač umetanja mora treptati na početku prve riječi.

Zamijenite rečenice u Wordu 2016

Kao što možete zamijeniti dvije riječi zaredom, možete zamijeniti i dvije rečenice. Swap_sentences makro ne samo to. I, kao iu drugim makronaredbama za manipulaciju tekstom, koristite tipkovnicu - ne miš - za odabir teksta.

U sljedećem kodu, naredba Selection.Extend predstavlja pritiskanje tipke F8 na tipkovnici. Kada tri puta pritisnete tu tipku, odabrana je rečenica.

Sub swap_sentences()

'

' swap_sentences Makro

' Zamijenite dvije rečenice

'

Odabir.Proširi

odabir.Proširi

odabir.Proširi

odabir.Izrezivanje

odabira.Proširi

odabir.Proširi

odabir.Proširi

Selection.EscapeKey

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

Selection.Paste

Kraj Sub

Evo pritisaka tipki snimljenih za stvaranje makronaredbe swap_sentences :

F8, F8, F8
Odabrana je trenutna rečenica.

Ctrl+X

F8, F8, F8 Odabire se
sljedeća rečenica.

Esc, →
Odabir se poništava, a pokazivač umetanja stavlja se na početak sljedeće rečenice.

Ctrl+V
Prva rečenica se lijepi iza druge rečenice.

Kada pokrenete ovu makronaredbu, provjerite je li pokazivač umetanja postavljen negdje unutar prve rečenice.

Zamijenite tekst zaglavlja i podnožja u Wordu 2016

U swap_header_footer makro zamjene dokumenta zaglavlju i podnožja teksta. Ovaj postupak možete dovršiti ručno, ali problem je što makronaredba ne bilježi točno sve radnje. Dakle, iako možete snimiti osnovne tipke, morate se vratiti u Visual Basic Editor da biste dovršili makronaredbu:

Sub swap_header_footer()

'

' swap_header_footer Macro

' Tekst zaglavlja/podnožja razmjene

'

Ako je ActiveWindow.View.SplitSpecial <> wdPaneNone Onda

ActiveWindow.Panes(2).Zatvori

kraj

Ako je ActiveWindow.ActivePane.View.Type. Ili ActiveWin _

ActivePane.View.Type = wdOutlineView Zatim

ActiveWindow.ActivePane.View.Type = wdPrintView

End Ako

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Jedinica: = wdLine

Selection.Zalijepi

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

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Paste

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Ukupni učinak ove makronaredbe je uređivanje zaglavlja dokumenta, odabir i izrezivanje cijelog tog teksta, a zatim prebacivanje na podnožje. Jednom u podnožju, tekst zaglavlja se zalijepi, a zatim se odabire i izrezuje tekst podnožja. Makro se vraća natrag na zaglavlje i lijepi tekst podnožja. Zatim makronaredba zatvara zaglavlje.