概要 VBScriptによるInternetExplorerクローラー化サンプルに関連して、 Webサイトのテキストを分かち書き(単語ごとにスペースで区切る形)で出力できたら面白そう。 簡単なテキストマイニングができる。 指定の1文を分かち書きで表示するVBScriptコードを書いた。 Windows・MSOfficeの標準機能のみでの実装で、職場でも安心実行! 前提 ・MeCab? 知らない子ですね。 ・MSWordなら知っています。 コード Option Explicit Dim doc Set doc = CreateObject("Word.Application").Documents.Add() Dim rng Set rng = doc.Paragraphs(1).Range rng.Text = "サンプルの文章です。半角スペースで区切られます。" Dim wrd Dim
![VBScriptで分かち書きを実行(MS標準機能のみで実装) - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/9baf2749ab9344936d054443d14d9c44c6c51a7e/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9VkJTY3JpcHQlRTMlODElQTclRTUlODglODYlRTMlODElOEIlRTMlODElQTElRTYlOUIlQjglRTMlODElOEQlRTMlODIlOTIlRTUlQUUlOUYlRTglQTElOEMlRUYlQkMlODhNUyVFNiVBOCU5OSVFNiVCQSU5NiVFNiVBOSU5RiVFOCU4MyVCRCVFMyU4MSVBRSVFMyU4MSVCRiVFMyU4MSVBNyVFNSVBRSU5RiVFOCVBMyU4NSVFRiVCQyU4OSZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTU2JnR4dC1jbGlwPWVsbGlwc2lzJnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9MzU3YzkzYjdkYTk5Y2YzNDk3MzI4MWE5OGJjZmRhNDc%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwbmV6dXEmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT0zNiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZzPTUxOGM5ZDlkMjcwNjc0NmNhZmZhMzlkYjAwNTkwNzE5%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3Da5b1ab62c339b546e9438bc981176aff)