[InDesign] 特定のフォントファミリーの全ウェイトをドキュメント上にテキストとして作成する

fillTextWithFontFamilies.js

// fill text with font families
var doc = app.documents.add();
var bnd = doc.pages[0].bounds;
var txf = doc.textFrames.add({
    geometricBounds: bnd,

});
var fnt = app.fonts.everyItem();
var fln = fnt.fullNameNative;
for (var i = 0, len = fln.length; i < len; i++) {
    if(!/ヒラギノ/i.test(fln[i])) { continue; }
    txf.contents += fln[i] + "\r";
}
var prg = txf.paragraphs;
txf.textFramePreferences.textColumnCount = 3;
for (var i = 0, len = prg.length; i < len; i++) {
    var wgt = prg[i].contents.match(/([^ ]+)$/)[1].replace(/[\r\n]/g, "");
    var fml = prg[i].contents.replace(RegExp(" " + wgt + "[\r\n]?$"), "");
    prg[i].appliedFont = fml + "\t" + wgt;
}