2008-06-06から1日間の記事一覧
If Len(tItem.Contents) > 1 Then For Each aaa As Illustrator.Character In tItem.TextRange.Characters 'テキストの変換 If aaa.Contents = "~" Then aaa.Contents = "〜" End If 'カーニングの判別 If aaa.Kerning() = 0.5 Then Debug.WriteLine(aaa.Ker…
If Len(tItem.Contents) > 1 Then For Each aaa As Illustrator.Character In tItem.TextRange.Characters 'テキストの変換 If aaa.Contents = "~" Then aaa.Contents = "〜" End If 'カーニングの判別 If aaa.Kerning() = 0.5 Then Debug.WriteLine(aaa.Ker…
