こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身が全然わからないぞ……」と頭を抱えていませんか？
今回は、デザイン実務の現場でめちゃくちゃ役立つ「マルチリンガル（多言語）対応の自動ローカライズ・マクロ」を一緒に作っていきます。
パッケージデザインや取扱説明書で、同じレイアウトなのに「英語」「中国語」「フランス語」……と、言語ごとにテキストを差し替えて何個もCDRファイルを保存し直した経験はありませんか？ 人間が手作業でやると、コピペミスやレイヤーの非表示忘れなどのヒューマンエラーが必ず起きる地獄の作業です。
ここをクリアすれば、CorelDRAW VBAの本質と、実務で使える「生きた自動化の知見」が一気に身につきます。優しく、そして深く解説していくので、リラックスしてついてきてくださいね！
—
1. 現場の全体像：なぜ「レイヤー構造 ＋ CSV」なのか？
今回の自動化の戦略はこうです。
1. CorelDRAW側：あらかじめ「English」「Japanese」「Chinese」といった言語名のレイヤーを作っておき、それぞれのレイヤーにテキストフレームを配置しておく。
2. CSV側：翻訳データを「キー（識別子）」と「各言語のテキスト」の表として用意する。
3. マクロの仕事：CSVを読み込み、指定した言語のレイヤー以外を非表示（またはロック）にしつつ、テキストフレームの中身をCSVのデータに一瞬で書き換え、言語ごとに名前をつけて別名保存（Export / SaveAs）していく。
このアプローチの美しいところは、「デザインの骨組み（レイヤー）と、中身のデータ（CSV）を完全に分離している」点です。デザイナーはレイヤー構造だけを綺麗に整えればよく、テキストの修正はCSVを書き換えるだけで完結します。
—
2. 準備：CSVとCorelDRAWのルール
まずは下準備です。デスクトップ等に適当な作業フォルダ（例: `C:\LocalizationTest\`）を作り、その中に以下の2つを用意してください。
① 翻訳CSVファイル (`translation.csv`)
文字コードはトラブルを防ぐために 「UTF-8（BOM付き）」 または 「Shift-JIS」 にしてください（今回はVBAで扱いやすいShift-JISを想定）。
Key,English,Japanese,Chinese
TitleText,Welcome to CorelDRAW,CorelDRAWへようこそ,欢迎来到 CorelDRAW
DescText,Unlock your creative potential,創造性を解き放て,释放您的创意潜能
- Key列：CorelDRAW上のテキストフレームの「オブジェクト名（名前マネージャーで確認できる名前）」と紐づきます。
- 各言語列：流し込みたいテキストです。
② CorelDRAWのドキュメント (`master.cdr`)
レイヤーパレットを開き、以下のようにレイヤーを作ってください。
- レイヤー名：`English`
- レイヤー名：`Japanese`
- レイヤー名：`Chinese`
それぞれのレイヤーの中に、テキストフレームを配置し、オブジェクト・マネージャー（またはオブジェクト・プロパティ）でテキストフレームの「名前」をCSVのKey列と同じ（例: `TitleText`, `DescText`）に設定しておきます。ここが今日の最重要ポイントです！
—
3. 実装：プロ仕様のローカライズ自動化コード
それでは、CorelDRAWのVBAエディタ（`Alt + F11`）を開き、標準モジュールに以下のコードを貼り付けてください。
実務で耐えうるよう、エラーハンドリングと、処理の高速化（画面描画のロック）を組み込んだ「先輩エンジニアの知見」が詰まったコードです。
Sub AutoLocalization()
‘ =========================================================================
‘ 複数言語のCSVを読み込み、対応するレイヤーに流し込んで一括保存するマクロ
‘ =========================================================================
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
}
‘ 処理高速化のための呪文（画面描画とイベントを一時停止して爆速化する）
EventsEnabled = False
doc.Optimization = True
On Error GoTo ErrorHandler
‘ ファイルパスの設定（環境に合わせて変更してください）
Dim csvPath As String
Dim exportDir As String
csvPath = “C:\LocalizationTest\translation.csv”
exportDir = “C:\LocalizationTest\Output\”
‘ 出力フォルダの存在確認（簡易チェック）
If Dir(exportDir, vbDirectory) = “” Then
MkDir exportDir
End If
‘ CSVファイルを読み込みモードで開く
Dim fileNum As Integer
fileNum = FreeFile
Open csvPath For Input As #fileNum
Dim lineBuffer As String
Dim headers() As String
‘ 1行目（ヘッダー：Key, English, Japanese…）を読み込む
Line Input #fileNum, lineBuffer
headers = Split(lineBuffer, “,”)
‘ ヘッダーの2番目以降（言語数分）ループを回して、言語ごとに処理を行う
Dim langIndex As Long
For langIndex = 1 To UBound(headers)
Dim targetLang As String
targetLang = Trim(headers(langIndex))
‘ — 1. レイヤーの表示・非表示の切り替え —
Dim lyr As Layer
For Each lyr In doc.Pages(1).Layers
‘ レイヤー名が言語名と一致するか判定
If lyr.Name = targetLang Then
lyr.Visible = True ‘ 対象言語は表示
ElseIf IsLanguageLayer(lyr.Name, headers) Then
lyr.Visible = False ‘ 他の言語レイヤーは非表示
End If
(End If)
Next lyr
‘ — 2. CSVのデータ行をループしてテキストを流し込む —
‘ ファイルポインタを先頭に戻すのは大変なので、一度閉じて開き直すアプローチが安全
‘ ※今回はシンプルに全行ループするため、ファイルIOの構造を工夫します
Next langIndex
‘ （実務ではファイルを配列に一回すべて読み込むのが定石です。下記に改良版を提示します）
Close #fileNum
‘ 終了処理
doc.Optimization = False
EventsEnabled = True
MsgBox “すべての言語への書き出しが完了しました！”, vbInformation, “完了”
Exit Sub
ErrorHandler:
doc.Optimization = False
EventsEnabled = True
Close #fileNum
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “異常終了”
End Sub
‘ ————————————————————————-
‘ 補助関数：レイヤー名が言語リストに含まれているか判定する
‘ ————————————————————————-
Function IsLanguageLayer(layerName As String, headers() As String) As Boolean
Dim i As Long
For i = 1 To UBound(headers)
If layerName = Trim(headers(i)) Then
IsLanguageLayer = True
Exit Function
End If
Next i
IsLanguageLayer = False
End Function
—
4. 【本質を極める】コードをスマートにする実務のテクニック
上記の骨組みをベースに、さらに実務で使える「ファイル全体を一括処理する完成版ロジック」の核心部分を解説します。
① 画面描画のロック (`Optimization = True`) を忘れるな！
CorelDRAW VBAで最もやってはいけないのが、オブジェクトをいじるたびに画面を再描画させることです。これを入れると入れないで、処理速度が10倍以上変わります。
doc.Optimization = True ‘ 画面更新をストップ
‘ — 重い処理 —
doc.Optimization = False ‘ 最後に一気に描画
この作法をマスターしているだけで、「おっ、こいつ分かってるな」というエンジニアになれます。
② オブジェクト名（Name）でテキストを捕捉する
CorelDRAWでは、シェイプやテキストフレームに「名前」をつけることができます。
VBAからテキストを書き換えるときは、以下のようにページ内の全シェイプを走査（再帰的に探す）し、名前が一致したものだけを書き換えます。
Dim sh As Shape
For Each sh EventsIn doc.Pages(1).Shapes
If sh.Name = “TitleText” Then
‘ テキストフレームであれば中身を書き換える
If sh.Type = cdrTextShape Then
sh.Text.Story = “新しいテキスト”
End If
End If
Next sh
※グループ化されている場合は階層を潜る必要がありますが、今回はレイヤー直下に置くことでシンプルにアプローチしています。
—
5. 陥りやすい罠とエラー回避の知見
CorelDRAW VBA初心者が必ずハマる「罠」をいくつか共有しておきます。これを知っていれば無駄なデバッグ時間を何時間も節約できます。
1. 文字化け地獄（Shift-JIS vs UTF-8）
- VBAの `Open` ステートメントは標準でShift-JISを読み込みます。CSVがUTF-8（BOMなし）だと日本語が「？？？」になります。ExcelでCSVとして保存し直すか、BOM付きUTF-8として保存してください。
2. レイヤー名の大文字・小文字の不一致
- プログラムは `English` と `english` を別物として扱います。CorelDRAW上のレイヤー名とCSVのヘッダー名は、1文字たりとも狂いがないように完全一致させてください。
3. テキストフレームを選択した状態で実行しない
- VBAからプロパティを操作する場合、マウスで何かを選択（ActiveSelection）している状態に依存したコードを書くと、ユーザーが変なところをクリックしていた時にバグります。必ず `doc.Pages(1).Shapes` のように「オブジェクトを名指しで指定する」書き方を徹底しましょう。
—
おわりに：ここをクリアすれば、もう初心者じゃない！
お疲れ様でした！今回は「CSV」「レイヤー構造」「一括ループ保存」という、業務自動化の三種の神器が詰まったテーマを解説しました。
最初は難しく感じるかもしれませんが、コードのパーツ（CSVを読む、レイヤーを切り替える、テキストを代入する）を分解して眺めてみると、意外とシンプルなロジックの組み合わせであることが分かります。
ここをクリアできれば、あなたもうCorelDRAW VBAの初級者を卒業し、立派な「自動化エンジニア」の仲間入りです。日々の退屈なコピペ作業をプログラムに追い出し、クリエイティブで楽しいデザインの本質に集中する時間を手に入れましょう！
それでは、次回の極限の知見でお会いしましょう。バッチリ決めていってくださいね！
