Kaip rašyti „Word 2016“ makrokomandas, kad būtų pakeisti teksto elementai

Dirbdami su dokumentais programoje „Word 2016“, ypač ilgesniais, norėsite, kad makrokomandos, kurios gali keisti tekstinius žodžius, frazes ar elementus, būtų ypač lengvos ir funkcionalios. Norint sukurti makrokomandas, tikriausiai reikės „Visual Basic for Applications“ (VBA) programavimo kalbos, kuri yra didžiulė, sudėtinga ir bauginanti. Tai reiškia, kad jis turi didelį potencialą, bet tai nėra kažkas, ko jūs sėdėsite ir išmoksite atsitiktinę popietę.

Štai keletas „pakeitimo“ makrokomandų, kurios padės pradėti tinkinti „Word“ patirtį.

Žodžių keitimas programoje Word 2016

Čia yra patogi makrokomanda, kurią tikriausiai naudosite visą laiką. Word_swap makro apsikeitimo dviejų žodžių. Jis išpjauna pirmąjį žodį ir įklijuoja jį po antrojo žodžio:

Sub word_swap()

'

' word_swap Makrokomandas

' Sukeisti du žodžius, kairėn-dešinėn

'

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

Selection.Cut

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

Selection.Paste

End Sub

Norint sukurti šią makrokomandą, buvo įrašyti šie klavišų paspaudimai:

Ctrl+Shift+ →
Žodis žymeklio dešinėje pažymėtas.

Ctrl+X
Žodis iškirptas.

Ctrl+ →
Žymeklis juda po antrojo žodžio.

Ctrl+V
Originalus žodis įklijuojamas.

Word makrokomandos negali įrašyti pelės paspaudimų. Kai reikia pasirinkti tekstą, naudokite žymeklio klavišus ir klavišą Shift arba F8 (išplėstinis pasirinkimas).

Be to, kad ši makrokomanda veiktų, įterpimo žymeklis turi būti pirmojo žodžio pradžioje.

Ir (arba) žodžių keitimas „Word 2016“.

Kita žodžių keitimo makrokomanda, kurią tikriausiai dažnai naudosite makrokomandą and_or_word_swap . Skirtingai nuo įprasto žodžių apsikeitimo, šios makrokomandos tikslas yra apsikeisti žodžiais abiejose jungtuko pusėse. Pavyzdžiui, pakeisti tą ar tą į tą ar tą.

Kaip ir naudojant word_swap makrokomandą, ši makrokomanda buvo įrašyta paspaudus klavišą :

Sub and_or_word_swap()

'

' and_or_word_swap makrokomanda

' Pakeiskite du žodžius jungtuku

'

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

Štai klavišų paspaudimai, naudojami šiai makrokomandai įrašyti:

Ctrl + Shift + →

Ctrl+X
Pirmasis žodis iškirptas.

Ctrl+ →
Įterpimo žymeklis peršoka virš jungtuko ir arba arba.

Ctrl+V
Žodis įklijuojamas po jungtuko.

Ctrl + Shift + →

Ctrl+X
Žodis po jungtuko (dabar po pirmojo žodžio, kurį įklijavote 4 veiksme) pasirenkamas ir iškirptas.

Ctrl+ ← , Ctrl+ ←
Žymeklis grįžta į prieš pat jungtuką.

Ctrl+V
Antrasis žodis įklijuojamas.

Grynasis šių sparčiųjų klavišų poveikis yra iškirpti žodį vienoje ir arba arba pusėje, o tada įklijuoti žodį kitoje pusėje. Tada antrasis žodis iškirptas ir įklijuojamas prieš ir arba arba.

Kad ši makrokomanda būtų veiksminga, įterpimo žymeklis turi mirksėti pirmojo žodžio pradžioje.

Sukeisti sakinius programoje Word 2016

Kaip galite sukeisti du žodžius iš eilės, taip pat galite sukeisti du sakinius. Swap_sentences makro daro tik tai. Ir, kaip ir kitose teksto manipuliavimo makrokomandose, tekstą pasirinkti naudokite klaviatūrą, o ne pelę.

Šiame kode komanda Selection.Extend reiškia klaviatūros klavišo F8 paspaudimą. Paspaudus tą klavišą tris kartus, pasirenkamas sakinys.

Sub swap_sentences()

'

' swap_sentences Makrokomandas

“ Pakeiskite du sakinius

'

Atranka.Išplėsti

pasirinkimą.Išplėsti

pasirinkimą.Išplėsti

pasirinkimą.Iškirpti

pasirinkimą.Išplėsti

pasirinkimą.Išplėsti

pasirinkimą.Išplėsti

Selection.EscapeKey

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

Selection.Paste

Pabaigos sub

Štai klavišų paspaudimai, įrašyti kuriant swap_sentences makrokomandą:

F8, F8, F8
Pasirinktas dabartinis sakinys.

Ctrl + X

F8, F8, F8
Pasirinktas kitas sakinys.

Esc, →
Pasirinkimas atšaukiamas, o įterpimo žymeklis dedamas kito sakinio pradžioje.

Ctrl+V
Pirmasis sakinys įklijuojamas po antrojo sakinio.

Vykdydami šią makrokomandą įsitikinkite, kad įterpimo žymeklis yra kažkur pirmame sakinyje.

Sukeiskite antraštės ir poraštės tekstą programoje „Word 2016“.

Į swap_header_footer makro apsikeitimo dokumento antraštę teksto ir poraštės tekstą. Šį procesą galite atlikti rankiniu būdu, tačiau problema ta, kad makrokomandoje nėra tiksliai įrašomi visi veiksmai. Taigi, nors galite įrašyti pagrindinius klavišų paspaudimus, turite grįžti į Visual Basic redaktorių, kad užbaigtumėte makrokomandą:

Sub swap_header_footer()

'

' swap_header_footer Makrokomandas

' Mainų antraštės/poraštės tekstas

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone Tada

ActiveWindow.Panes(2).Uždarykite

pabaigą, jei

ActiveWindow.ActivePane.View.Type Or =WdNormalView _

ActivePane.View.Type = wdOutlineView Tada

ActiveWindow.ActivePane.View.Type = wdPrintView

pabaigos, jei

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

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

Bendras šios makrokomandos poveikis yra redaguoti dokumento antraštę, pasirinkti ir iškirpti visą tą tekstą, o tada pereiti prie poraštės. Patekus į poraštę, antraštės tekstas įklijuojamas, o tada poraštės tekstas pasirenkamas ir išpjaunamas. Makrokomandas vėl persijungia į antraštę ir įklijuoja poraštės tekstą. Tada makrokomandas uždaro antraštę.