テキストファイルから自動的に共起ネットワークを作成・保存するには（VBAからの操作について）

[kenforken]

こんにちは。
VBAからの操作について。
具体的には、.text形式の文章を、VBAより操作し、最終的には共起ネットワーク図を作図したいと考えております。

■KH Coderのバージョン
KH codr3 3.Beta.07b - 2023 02/06

■お使いのOS
1台目Windows 11
２台目Windows 10

■KH Coderのインストール先フォルダ（解凍先フォルダ）
"C:\khcoder3\kh_coder.exe"

■どんなエラー・不具合・問題ですか？
以下は具体的なコードです。

Sub CreateCoOccurrenceNetwork()
    'KH Coderを起動する
    Dim khCoderPath As String
    khCoderPath = "C:\khcoder3\kh_coder.exe"
    Shell khCoderPath, vbNormalFocus
    Application.Wait (Now + TimeValue("0:00:05")) '5秒待機
    
    '入力データと出力データのパスを設定する
    Dim inputPath As String
    Dim outputPath As String
    inputPath = "C:\Users\A\Desktop\test1.txt"
    outputPath = "C:\Users\A\Desktop\test2.txt"
    
    '前処理を実行する
    SendKeys "%n" 'ファイルメニューを開く
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys "{DOWN}" '下に移動
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys "{DOWN}" '下に移動
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys "{ENTER}" '前処理を実行する
    Application.Wait (Now + TimeValue("0:00:30")) '30秒待機
    
    '共起ネットワーク図を作成する
    SendKeys "%n" 'ファイルメニューを開く
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys "{DOWN}" '下に移動
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys "{ENTER}" '共起ネットワーク図を作成する
    Application.Wait (Now + TimeValue("0:00:10")) '10秒待機
    
    'ファイルを保存する
    SendKeys "%f" 'ファイルメニューを開く
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys "s" '保存
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys outputPath '出力先のパスを入力する
    Application.Wait (Now + TimeValue("0:00:01")) '1秒待機
    SendKeys "{ENTER}" '保存する
End Sub

このようなコードですがうまくいきません・・・
VBAよりKHcoderを操作することは可能なのでしょうか？
ここで質問することが間違っておりましたら恐縮です。
ご教授願います。

[ko-ichi-h]

コマンドプロンプトから自動実行プラグイン「auto_run.pm」を使う

自動的にテキストファイルから共起ネットワークを作成して保存するということですね。コマンドプロンプト（ターミナル）であれば、次のコマンドで実行できます。

cd c:\khcoder3
.\kh_coder.exe -auto_run c:\khcoder3\tutorial_jp\bayes_data.txt

入力のテキストファイル名「c:\khcoder3\tutorial_jp\bayes_data.txt」は、任意のテキストファイルのフルパスに置き換えてください。出力は、「c:\khcoder3」フォルダに「net.png」というファイル名で共起ネットワークが保存されます。

上のコマンドでは自動実行プラグインを用いています。「pulugin_jp」フォルダの「auto_run.pm」です。「auto_run.pm」の20行目、

		my $file_save   = 'net.png';

を編集すれば、出力ファイル名を任意のものに変更できます。

この自動実行プラグインはPerlで書かれています。編集することで、出力ファイル名以外にも、共起ネットワークのオプションなどを変更できます。このプラグインについて詳しくはこちらの書籍をご覧下さい。
http://amzn.to/2AYS5dI

VBAからの実行

上のコマンドをVBAから実行するには次のようにすれば良いでしょう。

Shell ("cmd.exe /c ""cd c:\khcoder3 & .\kh_coder.exe -auto_run c:\khcoder3\tutorial_jp\bayes_data.txt""")

自動実行プラグインを使わずVBAから細かく操作する

自動実行プラグインを使わずに、VBAから「このメニューを選択してこのボタンを押して…」と細かく操作することも可能だと思います。

しかし書き込んでいただいたVBAのコードは、不正確な箇所が多くあります。間違いだったら申し訳ありませんが、もしかしてChatGPTかなにかに生成させたものでしょうか？ 以前のスレッド #598 の内容も活かされていません。

きちんとしたVBAのコードを書けば、KH Coderの細かな操作も可能でしょう。

RPAという方法も

別の方法として、以前RPA（Robotic Process Automation）ツールでKH Coderを自動操作しているという方もいらっしゃいました。その方はBizRobo!というツールをお使いだとうかがいました。現在はMicrosoftのPower Automate Desktopが無料で使えるようですし、候補の1つになるかもしれません。

[coconanalove08290301]

こんばんは。
私が行き詰まっているところが、この質問者さんと似ていましたので、こちらで質問させていただいてもよろしいでしょうか。

私はVBAを使用してワードクラウドを作成しようと考えております。
VBA超初心者なもので、こちらの回答のおかげでkhcoderの立ち上げ方はわかりましたが、ワードクラウドを作成するまでに至らず困っています。

おそらくワードクラウド作成にあたってデータのテキストファイルを作成することからだとは思うのですが、その作成方法もいまいち分からず…
何卒ご教授いただけませんでしょうか。

[ko-ichi-h]

こんにちは。テキストファイルの準備からとなると、恐れ入りますが、掲示板で説明できる範囲を超えているように思います。

コンサルティング・サービスをご利用になってはいかがでしょう。
https://www.screen.co.jp/as/solution/idea

[coconanalove08290301]

こんにちは。ご返答ありがとうございます。
少し質問の仕方が抜けておりまして申し訳ございません。
Excel→.text形式の文章を作製する事は完了しており、VBAからKhcoderを立ち上げることも可能です。
ですが、ワードクラウドを作製する際の操作方法について、何度か試しましたが上手くいかなかったのでご質問させていただきました。
度々すいませんが、ご教授いただけますと幸いです。

[ko-ichi-h]

こんにちは。

この掲示板をお使いくださるすべての方にお伝えできればと思い、以下を書かせていただきます。

第一に、新しい質問をしたいときには新しいスレッドを作成してください。新しいスレッドを作成するというのは、「New Discussion」ボタンからご投稿いただくということです。その際に、似通った質問がすでに存在する場合は「このスレッドを見たけれど…」というふうに、リンク（URL）を貼り付けてください。

第二に、「試しましたが上手くいかなかった」ではお答えのしかたに困ります。何を試したのかを、回答者側でも再現できるように詳しくお書きください。そして、どう上手くいかなかったのを、エラーメッセージや状況をあらわすスクリーンショットを添えて、具体的にお書きください。

今回のご質問に関して申しますと、VBA以前に、通常のマウス操作でワードクラウドを作成することはできるのでしょうか。できるのならば、それを自動化していくということですね。自動化のためには、（1）自動実行プラグインを編集するか、（2）VBAから細かく操作するかのどちらかが必要です。（1）ならばこちらの書籍でプラグインの編集法を調べる必要があるでしょう。（2）ならばVBAの資料に当たって、VBAの書き方を知る必要があるでしょう。VBAの解説書で良いものをお薦めできれば良いのでしょうが、VBAについてはすみませんがよく分かりません。（書籍・資料に当たりつつの試行錯誤がご面倒でしたら、コンサルティング・サービスが便利かと思います）

[kenforken]

いつもご丁寧なご返信ありがとうございます。
返信おそくなりまして申し訳ございません。
無事に思い通りの操作ができました。

PC関係まったくの初心者で、さっぱりわからず、♯598の内容も活かしきれず、ChatGPT等々を活用していたのですがうまく行かず困り果てていました・・・

ご丁寧に教えていただき感謝いたします。