こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードをそのまま動かすだけのステージから、「自分の手で自由自在にドキュメントを自動制御したい！」と願う中級者へのステップアップ、本当におめでとうございます。
今回は、実務で猛烈に役立つ「多言語展開（マルチリンガル）対応：CSVの翻訳テキストを対応するレイヤーに流し込んで一括保存するマクロ」を一緒に作っていきます。
海外向けのパッケージデザインや多言語マニュアルを作るとき、「日本語を消して英語を置き換え、別名保存…中国語に変えて別名保存…」と手作業で繰り返していませんか？ 人間がやると、コピペミスやレイヤーの非表示し忘れといったポカミスが必ず起きる領域です。
ここをクリアすれば、CorelDRAW VBAの本質である「ドキュメント構造の掌握」と「ファイルI/Oの自動化」が一気に身につきます。優しく、しかし妥協のないプロの視点で解説していきますね。付いてきてください！
—
1. なぜ「レイヤー制御 × 外部CSV」なのか？
実務で多言語展開をする際、テキストフレームをその都度プログラムで新しく作るのは悪手です。なぜなら、フォントサイズ、行間、文字揃え、ボックスの位置などが言語ごとに微妙に崩れてしまうからです。
プロの設計思想はこうです：
> 「あらかじめ各言語用のレイヤーを用意しておき、VBAからテキストの中身だけを安全に差し替え、不要な言語レイヤーを非表示（または削除）にして保存する」
このアプローチであれば、デザインの美しさを完全に保ったまま、データだけを安全にバッチ処理できます。
全体の処理フロー
1. CSVの読み込み: 翻訳データ（言語コードとテキストの対応表）をメモリ上に保持する。
2. ループ処理: 言語ごとに以下の処理を回す。
- すべての言語レイヤーの表示/非表示を切り替える。
- 対象言語のレイヤー内にあるテキストを、CSVのデータで書き換える。
- 指定フォーマット（CDRやPDFなど）で別名保存する。
—
2. 準備：CorelDRAW側のレイヤー設計
まずはCorelDRAWのドキュメント側で、テキストを配置するルール（命名規則）を決めます。
オブジェクトの管理をVBAで行うとき、名前（Nameプロパティ）の統一は命綱です。
- レイヤー名: 「Lang_JA」（日本語）、「Lang_EN」（英語）、「Lang_ZH」（中国語）
- テキストシェイプのタグ: 各レイヤー内にある翻訳対象のテキストには、共通の識別子（例: `TitleText` や `BodyText` など）を付けておきます。
—
3. 実装コード：一括多言語ジェネレータ
それでは、VBAエディタ（Alt + F11）を開き、標準モジュールに以下のコードを貼り付けてください。実務でそのまま使えるよう、エラーハンドリングとコメントを丁寧に入れています。
Option Explicit
‘ ==============================================================================
‘ テーマ: CSVの翻訳テキストを言語別レイヤーに流し込み、一括でCDR/PDF保存するマクロ
‘ 著者: チーフアーキテクト
‘ ==============================================================================
Sub ExportMultilingualDocuments()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントがありません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 1. CSVファイルのパスを取得（今回は簡単のため固定パスまたはダイアログ想定）
Dim csvPath As String
csvPath = “C:\Data\translation.csv” ‘ 実際の環境に合わせて変更してください
If Dir(csvPath) = “” Then
MsgBox “翻訳CSVファイルが見つかりません: ” & csvPath, vbCritical, “ファイルエラー”
Exit Sub
End If
‘ 2. CSVファイルを読み込み、配列に格納する簡易処理
Dim fileNum As Integer
fileNum = FreeFile
Open csvPath For Input As #fileNum
Dim headerLine As String
Line Input #fileNum, headerLine ‘ ヘッダー行をスキップ
Dim lineData As String
Dim fields() As String
‘ 画面描画をロックして処理速度を爆発的に上げる（プロの必須テクニック）
doc.Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler
‘ 3. CSVの行をループ（1行ごとに1つの言語に対応）
Do While Not EOF(fileNum)
Line Input #fileNum, lineData
fields = Split(lineData, “,”)
If UBound(fields) >= 1 Then
Dim targetLang As String
Dim translatedText As String
targetLang = Trim(fields(0)) // 例: “EN”, “ZH” など
translatedText = Trim(fields(1)) // 翻訳テキスト
‘ A. レイヤーの表示・非表示を制御
Call SwitchLanguageLayer(doc, targetLang)
‘ B. テキストの流し込み（例として “TargetTitle” という名前のシェイプを探す）
Call UpdateTextShape(doc, targetLang, “TargetTitle”, translatedText)
‘ C. 言語ごとに別名保存
Dim savePath As String
savePath = doc.FilePath & doc.FileNameWithoutExtension & “_” & targetLang & “.cdr”
doc.SaveAs savePath
End If
Loop
Close #fileNum
‘ 描画ロック解除
doc.Optimization = False
EventsEnabled = True
MsgBox “すべての多言語ファイルの生成が完了しました！”, vbInformation, “完了”
Exit Sub
ErrorHandler:
Close #fileNum
doc.Optimization = False
EventsEnabled = True
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ——————————————————————————
‘ 指定した言語レイヤー以外を非表示にし、対象レイヤーを表示する関数
‘ ——————————————————————————
Private Sub SwitchLanguageLayer(doc As Document, langCode As String)
Dim lyr As Layer
Dim targetLayerName As String
targetLayerName = “Lang_” & langCode
For Each lyr In doc.Pages(1).Layers
‘ レイヤー名が “Lang_” で始まるものを対象とする
If Left(lyr.Name, 5) = “Lang_” Then
If lyr.Name = targetLayerName Then
lyr.Visible = True
Else
lyr.Visible = False
End If
End If
Next lyr
End Sub
‘ ——————————————————————————
‘ 特定のシェイプ（テキスト）の内容を書き換える関数
‘ ——————————————————————————
Private Sub UpdateTextShape(doc As Document, langCode As String, shapeName As String, newText As String)
Dim targetLayerName As String
targetLayerName = “Lang_” & langCode
Dim lyr As Layer
Set lyr = doc.Pages(1).Layers.Find(targetLayerName)
If Not lyr Is Nothing Then
Dim sh As Shape
For Each sh In lyr.Shapes
‘ シェイプ名が一致し、かつテキストフレームである場合
If sh.Name = shapeName And sh.Type = cdrTextShape Then
sh.Text.Story.Contents = newText
Exit For
End If
Next sh
End If
End Sub
—
4. コードの深掘りと「知っておくべき罠」
このコードには、CorelDRAW VBAを扱う上で絶対に知っておなければならない重要なエンジニアリング知見が詰まっています。
① `doc.Optimization = True` の威力
CorelDRAWは、VBAから図形やテキストを操作するたびに、画面の再描画（プレビューの更新）を行おうとします。これが処理を極端に重くする原因です。
処理の最初に `Optimization = True` を宣言し、最後に `False` に戻すことで、実行速度を数倍〜数十倍に跳ね上げることができます。これは大規模な自動化では常識テクニックです。
② シェイプ名（Name）の重要性
CorelDRAWでは、画面上のオブジェクトに同じ名前を複数付けることが可能です。しかし、VBAで一意に特定したい場合は、オブジェクトマネージャから分かりやすい固有の名前（例: `TargetTitle`）を付けておく必要があります。
コード内の `sh.Type = cdrTextShape` という判定もポイントで、誤って矩形や画像などの別オブジェクトのテキストプロパティを叩いてエラーになるのを防いでいます。
③ CSVパースの注意点（実務の現場から）
今回のサンプルコードでは簡略化のために `Split(lineData, “,”)` を使っていますが、翻訳テキストの中にカンマ（`,`）やダブルクォーテーション（`”`）が含まれる可能性がある実務の現場では、より堅牢なCSVパーサ関数を使用するか、タブ区切り（TSV）に変更することをお勧めします。TSVであれば `Split(lineData, vbTab)` で安全に処理できます。
—
5. まとめ：ここをクリアすれば、もう怖くない！
お疲れ様でした！このマクロをモノにできれば、単なる「操作の記録者」から「ドキュメント自動化のアーキテクト」へと大きくレベルアップしています。
- 外部データ（CSV）の読み込み
- レイヤー構造のプログラム制御（Visibleプロパティの操作）
- パフォーマンス最適化（Optimization）
CorelDRAW VBAの美味しいところが詰まった実装でした。ぜひ、ご自身の業務データに合わせてパスやレイヤー名を書き換え、ワンクリックで多言語ファイルが大量生産される爽快感を味わってみてください。
それでは、次のステップでお会いしましょう。あなたの自動化ライフが素晴らしいものになりますように！
