Si të shkruani makro Word 2016 për të ndërruar elementet e tekstit

Kur punoni me dokumente në Word 2016, veçanërisht me ato më të gjata, do të dëshironi lehtësinë dhe funksionalitetin shtesë të makrove që mund të shkëmbejnë fjalë teksti, fraza ose elementë përreth. Për të krijuar makro, ndoshta do t'ju duhet gjuha e programimit Visual Basic for Applications (VBA), e cila është e gjerë, komplekse dhe frikësuese. Kjo do të thotë se ka potencial të madh, por nuk është diçka që do të uleni dhe do ta mësoni në një pasdite të rastësishme.

Këtu janë disa makro "ndërrime" për t'ju ndihmuar të filloni të personalizoni përvojën tuaj të Word-it.

Shkëmbimi i fjalëve në Word 2016

Këtu është një makro e dobishme që ndoshta do ta përdorni gjatë gjithë kohës. Word_swap këmbime makro dy fjalë. Pret fjalën e parë dhe më pas e ngjit pas fjalës së dytë:

Nën word_swap()

'

' word_swap Macro ' Ndrysho

dy fjalë, majtas-djathtas

'

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

Selection.Cut

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

Selection.Paste

Fund Sub

Këto goditje të tasteve u regjistruan për të krijuar këtë makro:

Ctrl+Shift+ →
Është zgjedhur fjala në të djathtë të kursorit.

Ctrl+X
Fjala është prerë.

Ctrl+ →
Kursori lëviz pas fjalës së dytë.

Ctrl+V
Fjala origjinale është ngjitur.

Makrot e Word nuk mund të regjistrojnë klikimet e miut. Kur duhet të zgjidhni tekst, përdorni tastet e kursorit plus tastin Shift ose përdorni tastin F8 (zgjedhja e zgjeruar).

Gjithashtu, që kjo makro të funksionojë, treguesi i futjes duhet të pozicionohet në fillim të fjalës së parë.

Dhe/ose shkëmbim fjalësh në Word 2016

Një makro tjetër e shkëmbimit të fjalëve që ndoshta do ta përdorni shpesh makronë and_or_word_swap . Ndryshe nga një shkëmbim i rregullt i fjalëve, qëllimi me këtë makro është të ndërroni fjalët në të dyja anët e një lidhëze. Për shembull, duke ndryshuar këtë apo atë në atë apo këtë.

Ashtu si me makro word_swap , kjo makro u regjistrua nga futja e tastierës:

Sub and_or_word_swap()

'

' and_or_word_swap Macro' Ndërroni

dy fjalë në një lidhje

'

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

Përzgjedhja.Paste

End Sub

Këtu janë goditjet e tasteve të përdorura për të regjistruar këtë makro:

Ctrl+Shift+ →

Ctrl+X
Fjala e parë pritet.

Ctrl+ →
Treguesi i futjes hidhet mbi lidhëzën dhe ose ose.

Ctrl+V
Fjala ngjitet pas lidhëzës.

Ctrl+Shift+ →

Ctrl+X
Fjala pas lidhëzës (tani pas fjalës së parë që ngjitët në hapin 4) zgjidhet dhe pritet.

Ctrl+ ← , Ctrl+ ←
Kursori kthehet pak përpara lidhëzës.

Ctrl+V
Fjala e dytë është ngjitur.

Efekti neto i këtyre shkurtoreve të tastierës është prerja e një fjale në njërën anë të një dhe ose ose dhe pastaj ngjitja e fjalës në anën tjetër. Pastaj fjala e dytë pritet dhe ngjitet përpara dhe ose ose.

Që kjo makro të jetë efektive, treguesi i futjes duhet të pulsojë në fillim të fjalës së parë.

Ndërroni fjali në Word 2016

Ashtu siç mund të ndërroni dy fjalë me radhë, gjithashtu mund të ndërroni dy fjali. Swap_sentences makro bën vetëm se. Dhe, si në makro të tjera të manipulimit të tekstit, përdorni tastierën - jo miun - për të zgjedhur tekstin.

Në kodin e mëposhtëm, komanda Selection.Extend paraqet shtypjen e tastit F8 në tastierë. Kur shtypni atë tast tre herë, zgjidhet një fjali.

Nën swap_sentences()

'

' swap_sentences Macro

’ Ndryshoni dy fjali

'

Zgjedhja.

Zgjero

përzgjedhjen.

Zgjero

përzgjedhjen.

Zgjero

përzgjedhjen . Zgjedhjen e prerë. Zgjero përzgjedhjen. Zgjero përzgjedhjen. Zgjero

Selection.EscapeKey

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

Selection.Paste

Fundi Nën

Këtu janë goditjet e tasteve të regjistruara për të krijuar makro swap_sentences :

F8, F8, F8 Përzgjidhet
fjalia aktuale.

Ctrl+X

F8, F8, F8 Përzgjidhet
fjalia tjetër.

Esc, →
Zgjedhja anulohet dhe treguesi i futjes vendoset në fillim të fjalisë tjetër.

Ctrl+V
Fjalia e parë ngjitet pas fjalisë së dytë.

Kur përdorni këtë makro, sigurohuni që treguesi i futjes të jetë vendosur diku brenda fjalisë së parë.

Ndryshoni tekstin e kokës dhe të fundit në Word 2016

Të swap_header_footer Swap-et makro tekst header e dokumentit dhe tekst futboll. Ju mund ta përfundoni këtë proces me dorë, por problemi është se makro nuk i regjistron me saktësi të gjitha veprimet. Pra, megjithëse mund të regjistroni goditjet bazë të tasteve, duhet të ktheheni te Redaktori Visual Basic për të përfunduar makro:

Nën swap_header_footer()

'

' swap_header_footer Makro

' Shkëmbe tekstin e kokës/ footerit

'

Nëse ActiveWindow.View.SplitSpecial <> wdPaneNone Pastaj

ActiveWindow.Panes(2). Mbylle

fundin Nëse

If ActiveWindow.ActivePane.ViewdNormalView. _

ActivePane.View.Type = wdOutlineView Pastaj

ActiveWindow.ActivePane.View.Type = wdPrintView

Fundi Nëse

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Unit: = wdLine

Selection.Ngjit

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

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Paste

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Fund End

Efekti i përgjithshëm i kësaj makro është të modifikojë kokën e dokumentit, të zgjedhë dhe prerë të gjithë atë tekst dhe më pas të kalojë në fund. Pasi të jetë futur në fund, ngjitet teksti i kokës, dhe më pas zgjidhet dhe pritet teksti i fundit. Makroja kthehet në kokë dhe ngjit tekstin e fundit të faqes. Pastaj makro mbyll kokën.