Word 2016 makrók írása a szövegelemek cseréjéhez

Amikor a Word 2016-ban dokumentumokkal dolgozik, különösen a hosszabbakkal, szüksége lesz a makrók extra egyszerűségére és funkcionalitására, amelyek képesek felcserélni a szöveges szavakat, kifejezéseket vagy elemeket. Makrók létrehozásához valószínűleg a Visual Basic for Applications (VBA) programozási nyelvre lesz szüksége, amely hatalmas, összetett és félelmetes. Ez azt jelenti, hogy nagy lehetőségek rejlenek benne, de nem olyasvalami, amit leülsz és tanulsz egy hétköznapi délutánon.

Íme néhány „csere” makró, amelyek segítenek elkezdeni a Word-élmény testreszabását.

Szócsere a Word 2016-ban

Íme egy praktikus makró, amelyet valószínűleg mindig használni fog. A word_swap makró két szót cserél fel . Kivágja az első szót, majd beilleszti a második szó mögé:

Sub word_swap()

'

' word_swap Makró

' Két szó felcserélése , bal-jobb

'

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

Selection.Cut

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

Selection.Paste

End Sub

A makró létrehozásához ezeket a billentyűleütéseket rögzítettük:

Ctrl+Shift+ →
A kurzortól jobbra lévő szó kijelölésre kerül.

Ctrl+X
A szó kivágásra kerül.

Ctrl+ →
A kurzor a második szó után mozog.

Ctrl+V
Az eredeti szó beillesztésre kerül.

A Word makrók nem rögzíthetik az egérkattintásokat. Ha szöveget kell kijelölnie, használja a kurzorbillentyűket és a Shift billentyűt, vagy használja az F8 (bővített kijelölés) billentyűt.

Ezenkívül a makró működéséhez a beszúrási mutatót az első szó elejére kell helyezni.

És/vagy szócsere a Word 2016-ban

Egy másik szócsere makró , amelyet valószínűleg gyakran fog használni az and_or_word_swap makró. A szokásos szócserével ellentétben ezzel a makróval az a cél, hogy a kötőszó mindkét oldalán felcseréljük a szavakat. Például, a változó ezt vagy azt , hogy ez, vagy ez.

A word_swap makróhoz hasonlóan ezt a makrót a billentyűleütési bevitellel rögzítették:

Al és_vagy_szócsere()

'

' and_or_word_swap Makró

' Két szó felcserélése egy kötőszóban

'

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

Íme a makró rögzítéséhez használt billentyűleütések:

Ctrl+Shift+ →

Ctrl+X
Az első szó kivágásra kerül.

Ctrl+ →
A beszúrási mutató a kötőszóra ugrik, és vagy vagy.

Ctrl+V
A szó a kötőszó után kerül beillesztésre.

Ctrl+Shift+ →

Ctrl+X
A kötőszó utáni szó (most a 4. lépésben beillesztett első szó után) kijelölésre kerül és kivágásra kerül.

Ctrl+ ← , Ctrl+ ←
A kurzor visszaugrik a kötőszó előtti helyre.

Ctrl+V
A második szó beillesztve.

Ezeknek a billentyűparancsoknak a nettó hatása az, hogy kivág egy szót a és vagy vagy az egyik oldalára, majd beilleszti a szót a másik oldalra. Ezután a második szót kivágja és beilleszti a és vagy vagy elé.

Ahhoz, hogy ez a makró hatékony legyen, a beszúrási mutatónak villognia kell az első szó elején.

Cserélje fel a mondatokat a Word 2016-ban

Ahogy egymás után két szót felcserélhetsz, úgy két mondatot is felcserélhetsz. A swap_sentences makró pontosan ezt teszi. Más szövegmanipulációs makrókhoz hasonlóan a szöveg kijelöléséhez használja a billentyűzetet, ne az egeret.

A következő kódban a Selection.Extend parancs a billentyűzet F8 billentyűjének megnyomását jelenti. Ha háromszor megnyomja ezt a gombot, a rendszer kijelöl egy mondatot.

Sub swap_sentences()

'

' swap_sentences Makró

Cserélj két mondatot

'

Kijelölés.Kijelölés

kiterjesztése.Kijelölés

kiterjesztése.Kijelölés

kiterjesztése.Kijelölés

kivágása

Kijelölés

kiterjesztése Kijelölés kiterjesztése.Kijelölés kiterjesztése

Selection.EscapeKey

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

Selection.Paste

Vége Sub

Íme a swap_sentences makró létrehozásához rögzített billentyűleütések :

F8, F8, F8
Az aktuális mondat ki van választva.

Ctrl+X

F8, F8, F8
A következő mondat van kiválasztva.

Esc, →
A kijelölés megszakad, és a beszúrási mutató a következő mondat elejére kerül.

Ctrl+V
Az első mondat a második mondat mögé kerül beillesztésre.

A makró futtatásakor győződjön meg arról, hogy a beszúrási mutató valahol az első mondaton belül van.

Cserélje fel a fejléc és a lábléc szövegét a Word 2016-ban

A swap_header_footer makró felcseréli a dokumentum fejlécének és láblécének szövegét. Ezt a folyamatot manuálisan is végrehajthatja, de a probléma az, hogy a makró nem rögzíti pontosan az összes műveletet. Tehát, bár az alapvető billentyűleütéseket rögzítheti, a makró befejezéséhez vissza kell térnie a Visual Basic Editorhoz:

Sub swap_header_footer()

'

' swap_header_footer Macro

' Exchange fejléc/lábléc szövege

'

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End

If ActiveWindow.ActivePane.View.Type Or = wd.NordowView _

ActivePane.View.Type = wdOutlineView Aztán

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey egység: = 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

A makró általános hatása a dokumentum fejlécének szerkesztése, a szöveg kijelölése és kivágása, majd a láblécre váltás. A láblécben a fejléc szövege beillesztésre kerül, majd a lábléc szövege kijelölésre és kivágásra kerül. A makró visszavált a fejlécre, és beilleszti a lábléc szövegét. Ezután a makró bezárja a fejlécet.