Forum społeczności użytkowników OpenOffice i LibreOffice

Kod: Zaznacz cały

REM  *****  BASIC  *****
REM autor: Jermor, Polskie Forum OpenOffice (2020)
'Makro konwertuje na wzór układ trzech wyrazów poprzedzających kursor tekstowy
'w momencie jego wywołania. Działa tylko w Writerze
Option explicit
Sub izotop
Const temat="Konwersja na wzór"
Const c=""""
Dim oSels as Object, oDoc as Object
Dim sZaznaczenie as String, sformula as String, gora as string, dol as string
Dim smbl as string
Dim ipozycja as integer
dim document   as object
dim dispatcher as object

oDoc=ThisComponent
if oDoc.Identifier <> "com.sun.star.text.TextDocument" then
    msgbox "Makro można wywołać tylko w programie Writer",,Temat
	stop
end if
oSels = ThisComponent.getCurrentSelection()
If oSels.getCount>1 Or oSels.getByIndex(0).getString()<>"" Then
	MsgBox "Makro można wykonać gdy nie zaznaczono żadnego obszaru",,Temat : stop
End If
GoSub zaznacz
oSels = ThisComponent.getCurrentSelection()
sZaznaczenie=Trim(oSels.getByIndex(0).getString())
ipozycja=inStr(sZaznaczenie," ")-1
if ipozycja<0 then
msgBox "Nie udało się zaznaczyć trzech wyrazów",,temat : stop
End if
gora=left(sZaznaczenie,ipozycja)
sZaznaczenie=trim(right(sZaznaczenie,len(sZaznaczenie)-ipozycja))
ipozycja=instr(sZaznaczenie," ")-1
if ipozycja<0 then
msgBox "Nie udało się zaznaczyć trzech wyrazów",,temat : stop
End if
dol=left(sZaznaczenie,ipozycja)
smbl=trim(right(sZaznaczenie,len(sZaznaczenie)-ipozycja)
If  asc(gora)=13 or asc(dol)=13 then
	MsgBox "Nie udało się zaznaczyć trzech wyrazów",,temat
	stop
End If
GoSub kasuj
sformula= c & smbl & c & "lsub {""" & dol & """} lsup {""" & gora & """}"
GoSub wzor
Stop
zaznacz:
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:WordLeftSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:WordLeftSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:WordLeftSel", "", 0, Array())
Return
Kasuj:
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())
Return
Wzor:
  Dim oVC
  Dim oObj
  Dim TempSize
  oVC = oDoc.CurrentController.getViewCursor()
  oVC.gotoRange(oVC.getEnd(), False)
  oObj = oDoc.CreateInstance("com.sun.star.text.TextEmbeddedObject")
  oObj.CLSID = "078B7ABA-54FC-457F-8551-6147e776a997"
  oObj.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
  oVC.Text.insertTextContent(oVC, oObj, False)
   TempSize = oObj.Size
   TempSize.Width = 500
   TempSize.Height = 500
   oObj.Size = TempSize
   oObj.LeftMargin=0
   oObj.RightMargin=0
   oObj.Model.BaseFontHeight = oObj.Anchor.CharHeight
  oObj.Model.formula = sFormula
Return
End Sub