Option Explicit
' ドラッグ&ドロップで取得したファイルパスを変数に入れる
Dim GetPathArray
Set GetPathArray = WScript.Arguments
' ファイルシステムオブジェクトを作成
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim pt
' ループ処理
For Each pt in GetPathArray
Dim app, doc
Set app = CreateObject("Illustrator.Application")
Set doc = app.Open(pt)
' スクリプトの実行
app.DoJavaScriptFile("C:\Users\username\Desktop\CGM_outlineAi.jsx")
' 保存して閉じる
doc.Close 1 ' aiDoNotSaveChanges
Next
2. JSXスクリプト(createOutline.jsx)
function createOutline() {
var type = activeDocument.textFrames;
var layers = activeDocument.layers;
for (var j = 0; j < layers.length; j++) {
layers[j].locked = false;
}
var array = [];
for (var k = 0; k < type.length; k++) {
array.push(type[k]);
}
for (var l = 0; l < array.length; l++) {
var outline = array[l].createOutline();
outline.selected = true;
}
}
createOutline();
コメント