OpenOfficeを使ã£ã¦doc/xls/pptを全文テã‚スト抽出次ã«ã€OpenOffice.orgã®BASICマクãƒã‚’登録ã—ã¾ã™ã€‚ 以下ã®å›³ã‹ã‚‰OpenOffice.org BASIC(基本。。。ã¦ã™ã”ã„訳ã§ã™ãï½—)ã®ã‚¨ãƒ‡ã‚£ã‚¿ã‚’é¸ã‚“ã§ã€é©å½“ãªãƒ•ã‚¡ã‚¤ãƒ«(今回ã¯Standard/Macro1)ã«ä»¥ä¸‹ã®ã‚ˆã†ãªã‚³ãƒ¼ãƒ‰ã‚’登録ã—ã¾ã™ã€‚ Sub ConvertDocToTxt( cFile ) cURL = ConvertToURL( cFile ) oDoc = StarDesktop.loadComponentFromURL(cURL, "_blank", 0, Array(_ MakePropertyValue( "Hidden", True ),_ ) ) cFile = cFile + ".txt" cURL = ConvertToURL( cFile ) oDoc.storeToURL( cURL, Array(_ MakePropertyValue(Â
{{#tags}}- {{label}}
{{/tags}}