LibreOffice Calc의 Google 번역

설명

LibreOffice Calc 프로그램의 표준 기능에는 텍스트를 다른 언어로 번역하는 기능이 포함되어 있지 않습니다. 그러나 모든 사용자는 이러한 기능을 독립적으로 만들 수 있습니다.

이 문서에서는 워크시트의 셀에 있는 텍스트를 직접 번역할 수 있는 GoogleTranslate_YouLibreCalc() 맞춤 함수를 살펴보겠습니다.

이 기능은 사이트를 사용하여 텍스트를 번역합니다. "구글 번역" 독립적으로 또는 다른 표준 함수와 함께 모든 수식에 사용할 수 있습니다.

StarBASIC 함수 Google Translate에 대한 코드

추가하려면 함수 Google 번역 , 메뉴를 엽니다 Tools - Macros - Edit Macros... , 선택하다 모듈1 다음 텍스트를 모듈에 복사합니다.

Option VBASupport 1

Function GoogleTranslate_YouLibreCalc(TextToTranslate As String, SrcLang As String, TrgLang As String)
  ' moonexcel.com.ua 
  Dim FCalc      As Object
  Dim WebsiteURL As String  
  Dim XMLHTTP    As Object
  Dim oHTML      As Object
  Dim HTMLDoc    As HTMLDocument
  Dim ObjClass   As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess") 
  TextToTranslate =  FCalc.callFunction("ENCODEURL", Array(TextToTranslate))
  
  SrcLang = LCase(SrcLang)
  TrgLang = LCase(TrgLang)
  
  IF SrcLang = "zh-cn" Then SrcLang = "zh-CN"
  IF SrcLang = "zh-tw" Then SrcLang = "zh-TW"
  
  IF TrgLang = "zh-cn" Then TrgLang = "zh-CN"
  IF TrgLang = "zh-tw" Then TrgLang = "zh-TW" 
    
  WebsiteURL = "https://translate.google.com/m?sl=" + SrcLang + "&tl=" + TrgLang + "&hl=en&q=" + TextToTranslate
    
  ' AJAX 요청을 사용하여 웹 서버에 대한 API 호출을 실행합니다. 
  Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
 
  XMLHTTP.Open "GET", WebsiteURL, False  
  XMLHTTP.Send
 
  ' AJAX 요청의 응답 텍스트를 사용하여 HTML 문서를 생성합니다. 
  Set oHTML = CreateObject("HTMLFile")
  With oHTML
        .Open
        .Write XMLHTTP.responseText
        .Close
  End With
  
  ' 웹 요소 라이브러리 Microsoft HTML Object 라이브러리를 사용하여 HTML 텍스트를 개체 모델로 변환합니다. 
  Set HTMLDoc = oHTML  
  
  Set ObjClass = HTMLDoc.getElementsByClassName("result-container").Item(0)
  If Not ObjClass Is Nothing Then
    GoogleTranslate_YouLibreCalc = ObjClass.innerText    
  End If 
 
  ' 우리는 메모리를 해제합니다 
  Set ObjClass = Nothing
  Set oHTML    = Nothing
  Set XMLHTTP  = Nothing  
End Function

다음으로 닫으세요. Macro Editor 그리고 워크시트로 돌아가서 LibreOffice Calc , 아무 셀이나 선택하고 새로운 기능을 사용하세요 GoogleTranslate_YouLibreCalc() .

확장 프로그램 사용

무료 확장 프로그램을 설치하여 GOOGLETRANSLATE() 함수를 사용할 수도 있습니다. YouLibreCalc.oxt 또는 모든 기능을 갖춘 버전 YLC_Utilities.oxt .

그 후에는 LibreOffice Calc에서 열리는 모든 파일에서 이 기능을 사용할 수 있습니다.