Naudotojas:Kvitas/Makr01

Straipsnis iš Vikipedijos, laisvosios enciklopedijos.

Attribute VB_Name = "TekstoApdorojimas"
'-----------------------------------------------------------------------
'Pasirinkto teksto pradzioje ir pabaigoje ikelia po du          
'lauztinius sklaustus. Jei sklaustai jau ikelti, viska apskliaudzia     
'paprastais sklaustais.
'-----------------------------------------------------------------------
Public Sub Viki_LauztiniaiSklaustaiFrazesGaluose()
On Error GoTo Pabaiga
   If Selection.Characters(Selection.Characters.Count - 1) = "]" And _
       Selection.Characters(Selection.Characters.Count) = "]" And _
       Selection.Characters(2) = "[" And _
       Selection.Characters(1) = "[" Then
           Selection.InsertBefore "("
           Selection.InsertAfter ")"
           Exit Sub
   End If
   
   If Selection.Characters(Selection.Characters.Count) = " " Then
       Selection.MoveRight Unit:=wdCharacter, Count:=-1, Extend:=wdExtend
   End If
   Selection.InsertBefore ("[[")
   Selection.InsertAfter ("]]")
Pabaiga:
End Sub
'-----------------------------------------------------------------------
'Pasirinkto teksto pradzioje ir pabaigoje ikelia po tris kabutes.
'-----------------------------------------------------------------------
Public Sub Viki_KabutesFrazesGaluose()
On Error GoTo Pabaiga
   If Selection.Characters(Selection.Characters.Count) = " " Then
       Selection.MoveRight Unit:=wdCharacter, Count:=-1, Extend:=wdExtend
   End If
   Selection.InsertAfter ("")
   Selection.InsertBefore ("")
   'Selection.Style = "Fundatorius"
Pabaiga:
End Sub
'-----------------------------------------------------------------------
'Pasirinkto teksto pradzioje ir pabaigoje ikelia po dvi lygybes.
'-----------------------------------------------------------------------
Public Sub Viki_DviLygybesFrazesGaluose()
On Error GoTo Pabaiga
   If Selection.Characters(Selection.Characters.Count) = " " Then
       Selection.MoveRight Unit:=wdCharacter, Count:=-1, Extend:=wdExtend
   End If
   Selection.InsertAfter ("==")
   Selection.InsertBefore ("==")
Pabaiga:
End Sub
'-----------------------------------------------------------------------
'Pasirinkto teksto pradzioje ir pabaigoje ikelia po tris lygybes.
'-----------------------------------------------------------------------
Public Sub Viki_TrysLygybesFrazesGaluose()
On Error GoTo Pabaiga
   If Selection.Characters(Selection.Characters.Count) = " " Then
       Selection.MoveRight Unit:=wdCharacter, Count:=-1, Extend:=wdExtend
   End If
   Selection.InsertAfter ("===")
   Selection.InsertBefore ("===")
Pabaiga:
End Sub