Win for DTP 串刺し番号をVBAで作ってみる。番号をつくったあと、テキストタブ区切り形式で保存するとこまで自動化。 ただしＶＢＡ単体だとunicode形式では保存できないことに注意。 unicodeにしたい人は１度ファイルを開いて保存し直すか、VisualBasic勉強して頑張ってみてください。 これで作ったファイルのパスをJavascriptで参照してIndesignに流しこめば串刺し完了です。 テスト動作環境は「WindowsVista」、Excel2007。 Sub sample() Dim i As Integer, s As Integer, r As Integer Dim str As String Application.ScreenUpdating = False r = 1 For i = 1 To 6 For s = 1 To 1667 Cells(s, i) = r r = r + 1 Next s Next
