Search the Community

I decided to enhance the functionality of the OOo COM UDF found >here and >here. Thanks to Leagnus and Andy G for providing the initial functions and framework. This UDF includes the following working functions: _OOoCalc_BookNew _OOoCalc_BookOpen _OOoCalc_BookAttach _OOoCalc_BookSave _OOoCalc_BookSaveAs _OOoCalc_BookClose _OOoCalc_WriteCell _OOoCalc_WriteFormula _OOoCalc_WriteFromArray _OOoCalc_HyperlinkInsert _OOoCalc_RangeMoveOrCopy _OOoCalc_RangeSort _OOoCalc_RangeClearContents _OOoCalc_CreateBorders _OOoCalc_NumberFormat _OOoCalc_ReadCell _OOoCalc_ReadSheetToArray _OOoCalc_RowDelete _OOoCalc_ColumnDelete _OOoCalc_RowInsert _OOoCalc_ColumnInsert _OOoCalc_SheetAddNew _OOoCalc_SheetDelete _OOoCalc_SheetNameGet _OOoCalc_SheetNameSet _OOoCalc_SheetList _OOoCalc_SheetActivate _OOoCalc_SheetSetVisibility _OOoCalc_SheetMove _OOoCalc_SheetPrint _OOoCalc_HorizontalAlignSet _OOoCalc_FontSetProperties _OOoCalc_CellSetColors _OOoCalc_RowSetColors _OOoCalc_ColumnSetColors _OOoCalc_RowSetProperties _OOoCalc_ColumnSetProperties _OOoCalc_FindInRange _OOoCalc_ReplaceInRange Please help me test this and let me know of any problems, questions, suggestions or comments you may have. Edit (August 5, 2016): Latest files have been uploaded. Script-breaking changes include renaming the functions to start with _OOoCalc_. Edit (November 14, 2016): New version, including fixed sort function! Edit (November 15, 2016): Lots of minor changes including tightening up the error checking. Edit (November 16, 2016): Added ByRef to object parameters. Edited demo. OOoCalcConstants.au3 OOoCalc.au3 OOoCalc_Demo.au3

@mLipok asked me to come up with an AutoIt example for this. So here's what I came up with, including an added bonus. #include <Array.au3> Global $oMyError = ObjEvent('AutoIt.Error', '_ErrFunc') Global $sLocale = 'en' Global $sCountry = 'US' Global $sWord = InputBox("Spell Checker", "File to check (empty for end)?") While $sWord <> "" Global $vSpell = _OOo_SpellChecker($sWord, $sLocale, $sCountry) If $vSpell Then MsgBox(0, "Spell Checker", $sWord & " is valid") Else If MsgBox(4, "Spell Checker", $sWord & " is NOT valid. Would you like to see alternatives?") = 6 Then Global $aAlternatives = _OOo_SpellChecker($sWord, $sLocale, $sCountry, True) _ArrayDisplay($aAlternatives, "Spell Checker") EndIf EndIf $sWord = InputBox("Spell Checker", "File to check (empty for end)?") WEnd ; #FUNCTION# ==================================================================================================================== ; Name ..........: _OOo_SpellChecker ; Description ...: Checks a single word with the OpenOffice/LibreOffice spell checker to see if it is spelled correctly in a ; given locale. ; Syntax ........: _OOo_SpellChecker($sWord[, $sLocale = 'en'[, $sCountry = 'US'[, $bShowAlternatives = False]]]) ; Parameters ....: $sWord - a string value. ; $sLocale - [optional] a string value. Default is 'en'. ; $sCountry - [optional] a string value. Default is 'US'. ; $bShowAlternatives - [optional] a boolean value. Default is False. ; Return values .: On Success - Returns True if the word is spelled correctly using the specified language, False ; otherwise. If word is not spelled correctly and $bShowAlternatives is set to True, ; an array of suggestions is returned. ; On Failure - Returns 0 and sets @error and @extended: ; | @error = 0 - Success (No error) ; | 1 - General error ; | 2 - Invalid type ; | 3 - Invalid value ; | 4 - No match found ; | @extended = number of offending parameter ; Author ........: GMK ; Modified ......: ; Remarks .......: ; Related .......: ; Link ..........: https://www.openoffice.org/api/docs/common/ref/com/sun/star/linguistic2/XSpellChecker.html ; https://www.openoffice.org/api/docs/common/ref/com/sun/star/linguistic2/XSpellAlternatives.html ; http://www.loc.gov/standards/iso639-2/php/code_list.php ; https://www.iso.org/obp/ui/#search ; Example .......: Yes ; =============================================================================================================================== Func _OOo_SpellChecker($sWord, $sLocale = 'en', $sCountry = 'US', $bShowAlternatives = False) Local Enum $eErr_Success, _ $eErr_GeneralError, _ $eErr_InvalidType, _ $eErr_InvalidValue, _ $eErr_NoMatch If Not IsString($sWord) Then Return SetError($eErr_InvalidType, 1, 0) If StringRegExp($sWord, '\d|\s') Then Return SetError($eErr_InvalidValue, 1, 0) If Not IsString($sLocale) Then Return SetError($eErr_InvalidType, 2, 0) If StringLen($sLocale) <> 2 Then Return SetError($eErr_InvalidValue, 2, 0) If Not IsString($sCountry) Then Return SetError($eErr_InvalidType, 3, 0) If StringLen($sCountry) <> 2 Then Return SetError($eErr_InvalidValue, 3, 0) Local $oSM = ObjCreate('com.sun.star.ServiceManager') If Not IsObj($oSM) Then Return SetError($eErr_GeneralError, 10, 0) Local $oLocale = $oSM.Bridge_GetStruct('com.sun.star.lang.Locale') If Not IsObj($oLocale) Then Return SetError($eErr_GeneralError, 11, 0) $oLocale.Language = $sLocale $oLocale.Country = $sCountry Local $oLinguService = $oSM.createInstance('com.sun.star.linguistic2.LinguServiceManager') If Not IsObj($oLinguService) Then Return SetError($eErr_GeneralError, 12, 0) Local $oSpellChecker = $oLinguService.getSpellChecker If Not IsObj($oSpellChecker) Then Return SetError($eErr_GeneralError, 13, 0) If Not $oSpellChecker.hasLocale($oLocale) Then Return SetError($eErr_NoMatch, 2, 0) Local $oPropertyValue = $oSM.Bridge_GetStruct('com.sun.star.beans.PropertyValue') If Not IsObj($oPropertyValue) Then Return SetError($eErr_GeneralError, 14, 0) Local $aPropertyValue[1] = [$oPropertyValue] Local $nRandom = Random(0, 0.5) Local $bReturn = $oSpellChecker.isValid($sWord, $nRandom, $aPropertyValue) If @error Then Return SetError($eErr_GeneralError, 15, 0) If Not $bReturn And $bShowAlternatives Then Local $oSpell = $oSpellChecker.spell($sWord, $nRandom, $aPropertyValue) If Not IsObj($oSpell) Then Return SetError($eErr_GeneralError, 16, 0) Local $aReturn = $oSpell.getAlternatives() Local $iAlternatives = UBound($aReturn) ReDim $aReturn[$iAlternatives + 1] $iAlternatives += 1 For $i = $iAlternatives - 1 To 1 Step -1 $aReturn[$i] = $aReturn[$i - 1] Next $aReturn[0] = $oSpell.getAlternativesCount() If @error Then Return SetError($eErr_GeneralError, 17, 0) Return SetError($eErr_Success, 0, $aReturn) EndIf Return SetError($eErr_Success, 0, $bReturn) EndFunc Func _ErrFunc($oError) ConsoleWrite(@ScriptName & ' (' & $oError.scriptline & ') : ==> COM Error intercepted !' & @CRLF & _ @TAB & 'err.number is: ' & @TAB & @TAB & '0x' & Hex($oError.number) & @CRLF & _ @TAB & 'err.windescription:' & @TAB & $oError.windescription & @CRLF & _ @TAB & 'err.description is: ' & @TAB & $oError.description & @CRLF & _ @TAB & 'err.source is: ' & @TAB & @TAB & $oError.source & @CRLF & _ @TAB & 'err.helpfile is: ' & @TAB & $oError.helpfile & @CRLF & _ @TAB & 'err.helpcontext is: ' & @TAB & $oError.helpcontext & @CRLF & _ @TAB & 'err.lastdllerror is: ' & @TAB & $oError.lastdllerror & @CRLF & _ @TAB & 'err.scriptline is: ' & @TAB & $oError.scriptline & @CRLF & _ @TAB & 'err.retcode is: ' & @TAB & '0x' & Hex($oError.retcode) & @CRLF & @CRLF) EndFunc ;==>_ErrFunc