Kā rakstīt Word 2016 makro, lai apmainītu teksta elementus

Strādājot ar dokumentiem programmā Word 2016, jo īpaši ar garākiem, vēlēsities papildu vieglumu un funkcionalitāti makro, kas var apmainīt teksta vārdus, frāzes vai elementus. Lai izveidotu makro, iespējams, būs nepieciešama programmēšanas valoda Visual Basic for Applications (VBA), kas ir plaša, sarežģīta un biedējoša. Tas nozīmē, ka tai ir liels potenciāls, taču tas nav nekas tāds, ko jūs sēdēsit un mācīsities ikdienišķā pēcpusdienā.

Šeit ir daži “maiņas” makro, kas palīdzēs jums sākt pielāgot Word pieredzi.

Vārdu mijmaiņas programmā Word 2016

Šeit ir ērts makro, kuru, iespējams, izmantosit visu laiku. Word_swap makro mijmaiņas darījumi divus vārdus. Tas izgriež pirmo vārdu un pēc tam ielīmē to pēc otrā vārda:

Sub word_swap()

'

' word_swap Makro

' Apmainīt divus vārdus, kreisais-labais

'

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

Selection.Cut

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

Selection.Paste

End Sub

Šie taustiņsitieni tika reģistrēti, lai izveidotu šo makro:

Ctrl+Shift+ →
Tiek atlasīts vārds pa labi no kursora.

Ctrl+X
Vārds tiek izgriezts.

Ctrl+ →
Kursors pārvietojas aiz otrā vārda.

Ctrl+V
Sākotnējais vārds ir ielīmēts.

Word makro nevar ierakstīt peles klikšķus. Ja nepieciešams atlasīt tekstu, izmantojiet kursora taustiņus un taustiņu Shift vai taustiņu F8 (paplašinātā atlase).

Turklāt, lai šis makro darbotos, ievietošanas rādītājs ir jānovieto pirmā vārda sākumā.

Un/vai vārdu mijmaiņas programmā Word 2016

Vēl viens vārdu mijmaiņas makro, kuru, iespējams, izmantosit bieži un_or_word_swap makro. Atšķirībā no parastās vārdu apmaiņas, šī makro mērķis ir apmainīt vārdus abās savienojuma pusēs. Piemēram, mainot to vai to uz to vai to.

Tāpat kā ar word_swap makro, šis makro tika ierakstīts no taustiņsitiena ievades:

Apakš un_vai_vārdu_maiņa()

'

' and_or_word_swap Makro' Apmainiet

divus vārdus savienojumā

'

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

Tālāk ir norādīti taustiņsitieni, kas izmantoti šī makro ierakstīšanai.

Ctrl+Shift+ →

Ctrl+X
Pirmais vārds tiek izgriezts.

Ctrl+ →
ievietošanas rādītājs pāriet pāri savienojumam un vai vai.

Ctrl+V
Vārds tiek ielīmēts aiz savienojuma.

Ctrl+Shift+ →

Ctrl+X
Vārds pēc savienojuma (tagad pēc pirmā vārda, ko ielīmējāt 4. darbībā) tiek atlasīts un izgriezts.

Ctrl+ ← , Ctrl+ ←
Kursors pāriet atpakaļ uz tieši pirms savienojuma.

Ctrl+V
Otrais vārds ir ielīmēts.

Šo īsinājumtaustiņu tīrais efekts ir izgriezt vārdu vienā un vai vai pusē un pēc tam ielīmēt vārdu otrā pusē. Pēc tam otrais vārds tiek izgriezts un ielīmēts pirms un vai vai.

Lai šis makro būtu efektīvs, ievietošanas rādītājam ir jāmirgo pirmā vārda sākumā.

Apmainiet teikumus programmā Word 2016

Tāpat kā jūs varat apmainīt divus vārdus pēc kārtas, jūs varat arī apmainīt divus teikumus. Swap_sentences makro dara tikai to. Un, tāpat kā citos teksta manipulācijas makro, izmantojiet tastatūru, nevis peli, lai atlasītu tekstu.

Nākamajā kodā komanda Selection.Extend apzīmē tastatūras taustiņa F8 nospiešanu. Nospiežot šo taustiņu trīs reizes, tiek atlasīts teikums.

Sub swap_sentences()

'

' swap_sentences Makro

' Apmaini divus teikumus

'

Atlase.

Pagarināt

atlasi.

Pagarināt

atlasi.

Pagarināt

atlasi. Izgriezt atlasi. Pagarināt atlasi. Pagarināt atlasi. Pagarināt

Selection.EscapeKey

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

Selection.Paste

Beigt apakš

Tālāk ir norādīti taustiņsitieni, kas reģistrēti, lai izveidotu makro swap_sentences :

F8, F8, F8
Pašreizējais teikums ir atlasīts.

Ctrl+X

F8, F8, F8
Tiek atlasīts nākamais teikums.

Esc, →
Atlase tiek atcelta, un ievietošanas rādītājs tiek novietots nākamā teikuma sākumā.

Ctrl+V
Pirmais teikums tiek ielīmēts aiz otrā teikuma.

Palaižot šo makro, pārliecinieties, vai ievietošanas rādītājs ir iestatīts kaut kur pirmajā teikumā.

Apmainiet galvenes un kājenes tekstu programmā Word 2016

Par swap_header_footer makro mijmaiņas dokumenta galvenes tekstu un kājenes teksta. Šo procesu var pabeigt manuāli, taču problēma ir tā, ka makro nereģistrē visas darbības precīzi. Tātad, lai gan jūs varat ierakstīt pamata taustiņu nospiešanu, jums ir jāatgriežas Visual Basic redaktorā, lai pabeigtu makro:

Sub swap_header_footer()

'

' swap_header_footer Makro

' Apmaiņas galvenes/kājenes teksts

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone Tad

ActiveWindow.Panes(2).Aizvērt

beigas

If ActiveWindow.ActivePane.View.Type Vai =WdNordowmalView _

ActivePane.View.Type = wdOutlineView Tad

ActiveWindow.ActivePane.View.Type = wdPrintView

End Ja

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey vienība: = 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

Šī makro kopējā ietekme ir rediģēt dokumenta galveni, atlasīt un izgriezt visu tekstu un pēc tam pāriet uz kājeni. Atrodoties kājenē, galvenes teksts tiek ielīmēts, un pēc tam tiek atlasīts un izgriezts kājenes teksts. Makro pārslēdzas atpakaļ uz galveni un ielīmē kājenes tekstu. Pēc tam makro aizver galveni.