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