Simple Translator(外国語翻訳ツール)

GitHubの日本語ページはこちら

概要

WEBの記事などに記載された外国語(英語、中国語、ドイツ語、フランス語など)をコピーしてExcelシートの決められた場所に貼り付けてから「整形ボタン」を押して空白などを取り除いた後、「翻訳ボタン」を押すと、プログレスバーが表示されDeepLでの翻訳を開始し、翻訳が終了するとHTML文書を作成し、ブラウザで表示します。作成されたHTML文書はそのまま印刷するのも、PDFに変換するのも自由です。
「翻訳ボタン(シート)」を押したときはシートを追加し、追加したシートに翻訳結果を表示します。これはデバッグ用です。Excelシートはセルの文字数が多いと印刷時に文字が見切れるのでお勧めしませんが、簡易的な表示として残しています。

※翻訳が止まってしまった時やおかしくなった場合、黒いプロンプト画面を落としてからやり直してください。
※古いExcel(Excel 2010など)に対応しました。
※Word抜きでも翻訳できるようになりました。
※中国語などを翻訳するとき、翻訳結果が取得できず空欄になる場合があります。空欄部分を翻訳後に手動で修正できるようにするかどうか考え中です。手動修正できた方が良いならコメントください。ただし、プログラミングが本業ではないので時間がかかるかもしれません。

技術的に工夫した点

課題

Selenium BasicとExcelを利用して、以下の外国語翻訳を行うツールを作成しましたが、2つの課題がありました。

第1の課題はSelenium Basicを動かすための.Net Framework3のインストールのハードルが高いということです。Selenium Basicの稼働には.Net Framework3のインストールを必要としますが新しいPCではレジストリを変更しないと.Net Framework3をインストールできないこともあり、.Net Framework3のインストールだけでも手間が掛かります。

第2の課題は数ヶ月に1度Google Chromeが更新され、Web Driverを更新せずに使うとエラーが出ることです。Google Chromeの更新があると、Google Chromeのバージョンに合わせたWeb Driverの実行ファイルを取得して所定の位置にコピーアンドペーストする作業が煩わしいです。

従来からの変更点

(1)Selenium Basicのインストールを不要にした

上記第1の課題の通り、以前はSelenium Basicを使用してWeb Driverを動かし一括(連続)でDeepL翻訳していました。しかし、Selenium Basicはインストールする必要があり、ソフトウエアのインストールに制限のある職場ではSelenium Basicが使えません。どうにかしてSelenium BasicをインストールしないでWeb Driverが使えないか困っていたところ、以下の記事を見つけました。こちらの「TinySeleniumVBA」を使用したところ、Selenium BasicをインストールせずにWeb Driverを動作させることができました。ありがとうございます。

(2)Web Driverの更新を不要にした

上記第2の課題の通り、Web Driverが更新されると、更新されたWeb Driverをダウンロードして以前のWeb Driverを上書きしなければいけませんでした。Web Driverが更新されたときにユーザがWeb Driverを更新する作業は煩わしく面倒なので困っていたところ、以下の記事を見つけました。こちらの「WebDriverManager-for-VBA」を使用したところ、毎回Web Driverを更新するため、ユーザがWeb Driverを上書き更新する必要がなくなりました。ありがとうございます。

必要なもの

OS

Microsoft Windows 10 または Microsoft Windows 11

ソフトウェア

Google Chrome
Microsoft Excel 2010、Microsoft Excel 2016、Microsoft Excel 2019（Excel 2013、Excel 2021 は未確認）
Chrome Driver

使い方

SimpleTranslator の zip ファイル← クリックしてダウンロードします。
上記 1.でダウンロードした zip ファイルを解凍し、SimpleTranslator フォルダ内の SimpleTranslator.xlsm を開きます。
言語選択コンボボックスを選択します。
翻訳先の言語を選択します。
表示順を「翻訳文 → 原文」「原文 → 翻訳文」のどちらにするかのラジオボタンを選択します。
サンプルページに表示された英文をマウスでなぞってコピーします。
Excel のシート A2 で右クリックし、「貼り付けのオプション」で左から 2 番目のアイコンを選びます。
空白行を詰めるための「整形ボタン」を押します。
「翻訳(HTML)ボタン」を押します。
「名前を付けて保存」ダイアログが表示されます。
名前を入力し保存します。ここでは「sample」と入力し「保存ボタン」を押します。
翻訳が開始され、プログレスバーが表示されるのでしばらく待ちます。
翻訳が完成するとブラウザが立ち上がり翻訳結果が出力されます。
翻訳結果は HTML の形式でアプリケーションと同じ場所のディレクトリに作成されます。