個人用ひとつのフォルダに必要なデータを フォルダごと入れる フォルダ内のjpgのみを処理するプログラム1 各々ハッシュ値を計算して jpgファイルと同じフォルダ内に ハッシュ値を名前としたテキストファイルを作る2 もしくは、 Excelのテーブルにフォルダパ…

///////////////////////////////////////////////////////////////// //フォント一覧の作成_ver10.jsx //2013/08/20 12:29 sakai masaki ///////////////////////////////////////////////////////////////// ////////////////////////////////////////////…

/******************************************************** JavaScript for Adobe Illustrator 10 - CS ( Win / Mac )■■テキストばらし■■複数行のテキストを改行で別オブジェクトに分割します。作成者：倉田タカシ 2007_05_01 ***************************…

// fontsample.js Version 1.00 font_size = 30; type_text = ''; type_text = prompt("テキストを入力してください。そのままリターンを押すと自動で設定されます。",""); // システムにインストールされているフォント全てを走査 for (i=0; i

Sub font() 'フォント名と見本一覧を作成 Cells(1, 1) = "フォント名" Cells(1, 2) = "数字見本" Cells(1, 3) = "小文字見本" Cells(1, 4) = "大文字見本" Dim i As Integer Dim str As String Dim obj As Object str = "0123456789" str2 = "abcdefghijklmn…

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

Sub 添付ファイル一括保存() Dim sl As Object, attachFile As Object Dim app As New Outlook.Application Dim exp As Outlook.Explorer Dim sel As Outlook.Selection Dim sh As Object, f As Object Dim path As String Dim checkExpath As String Dim lV…

>||Sub 添付ファイル一括保存() Dim sl As Object, attachFile As Object Dim app As New Outlook.Application Dim exp As Outlook.Explorer Dim sel As Outlook.Selection Dim sh As Object, f As Object Dim path As String Dim checkExpath As String Dim…

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) SaveToCsv EntryIDCollectionEnd Sub'Private Sub SaveToCsv(ByVal EntryIDCollection As String) Const AUTO_SAVE_TITLE = "受注" ' 自動処理するメールの件名 Const CSV_FILE = "c:…

Sub 添付ファイル一括保存() Dim sl As Object, attachFile As Object Dim app As New Outlook.Application Dim exp As Outlook.Explorer Dim sel As Outlook.Selection Dim sh As Object, f As Object Dim path As String Dim checkExpath As String Dim lV…

テスト