리브레오피스

1 개요[ | ]

리브레오피스
LibreOffice

다양한 플랫폼에서 사용할 수 있는 오피스 제품군
MS 오피스 호환
작성언어: C++, 자바, 파이썬
크로스플랫폼 ( 윈도우, 리눅스, OS X )
라이선스: LGPL

2 구성[ | ]

	설명	기본 확장자
Writer	워드프로세서	odt
Calc	스프레드시트	ods
Impress	프레젠테이션	odp
Base	데이터베이스 관리 프로그램	odb
Draw	벡터 그래픽 에디터	odg
Math	수학 공식 프로그램	odf

3 리브레오피스 베이직 및 매크로 사용예[ | ]

Sub Main
REM Sub Writer_Find_and_Replace_Formula( strFind As String, strReplace As String )
REM	This finds all occurrences of <strFind> within all Formula objects embedded within the current Writer document,
REM and replaces the found occurrences by <strReplace>.
REM NB. This action can not be Undone via the menu "Edit : Undo".
Dim oDoc As Object
oDoc = ThisComponent
Dim strFind As String
Dim  strReplace  As String
strFind = "ital"
strReplace = ""
Dim oEmbeddedObjects As Object, oObj As Object
oEmbeddedObjects = oDoc.getEmbeddedObjects()
Dim i As Integer
For i = 0 To oEmbeddedObjects.getCount() - 1
oObj = oEmbeddedObjects.getByIndex( i ).getEmbeddedObject()
If oObj.ImplementationName = "com.sun.star.comp.Math.FormulaDocument" Then	REM Found a Formula.
oObj.Formula = Join( Split( oObj.Formula,strFind ), strReplace )		REM Perform Find & Replace.
End If
Next i
End Sub

(예시) 리브레오피스에 내장된 베이직(VBA)를 사용한 매크로(macro) 모듈(module) : 라이터(writer)에 삽입되어있는 매쓰(Math) 오브젝트들의

특정 텍스트(text)를 찾아내고 바꾸기를 일괄실행하는 소스코드이다.
'ital' 이라는 단어를 삭제하는 기능으로 이탈릭체를 디폴팅(defaulting)한다.

4 같이 보기[ | ]

5 참고[ | ]