Sub フォルダ内PDFファイル一括印刷()Dim strPath As String Dim strFileName As String Dim pdffiles() As String Dim intcount As Integer‘変数strPathに、フォルダのパスを格納 strPath = “C:\Documents and Settings\isa\デスクトップ\問題集\”‘変数strF…

//------------------------------------------------------------------- // 忘年会アンケートの集計プログラム //------------------------------------------------------------------- // 変数の初期化など var fso = WScript.CreateObject("Scripting.F…

// フォント（書体）の総数を表示する var fontList = app.textFonts; alert("フォントの総数："+fontList.length);

JavaScript for Adobe Illustrator 10 - CS ( Win / Mac ) ■■テキストばらし■■ 複数行のテキストを改行で別オブジェクトに分割しま var itemsToSplit = new Array() ; //各テキストを格納 var splitTexts = new Array() ; //各分割テキストの配列を格納 var …

Sub macro110702a() 'フォント名と見本一覧を作成 Sheets.Add Cells(1, 1) = "フォント名" Cells(1, 2) = "見本" Dim i As Integer Dim str1 As String Dim str2 As String Dim obj As Object str1 = "abcdefghijklmnopqrstuvwxyz" str2 = "0123456789" Set …

var txt = ""; for(var i=0; i