タグ

VBAに関するzichaoのブックマーク (3)

  • InDesignScriptForWindowsWeblog 右インデントタブ+三点リーダ必死に入力のチェック用VBA

    もう、チェックに時間を費やす作業が苦痛なので、 重い腰を上げて、おうちつかい用にVBAで簡単に書いてみました。 エラートラップとかしてないので、ごめんなさい。 JSに移植するなりは、(ご自由に|是非)オネガイします(^^ そして、完成したら、私にJSください(笑) ――――――――――――――― Sub 右インデントタブ幅計算して三点リーダ入るか調査隊() Dim MyInDesign 'As InDesign.Application Set MyInDesign = CreateObject("InDesign.Application.CS") With MyInDesign '三点リーダのサイズを入力(単位は環境設定に依存します) ReaderSize = 9.5 '検索/置換クリア .FindPreferences = Nothing .ChangePreferences = Not

  • Win for DTP 串刺し番号をVBAで作ってみる。

    番号をつくったあと、テキストタブ区切り形式で保存するとこまで自動化。 ただしVBA単体だとunicode形式では保存できないことに注意。 unicodeにしたい人は1度ファイルを開いて保存し直すか、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

  • Excelデータのセル内タブ/改行の扱い - InDesignerの悪あがき

    最近はExcelでデータ入稿することが多くなっています。 ある程度はデータ結合で処理してしまってもいいのですが、 データ結合は「融通が利かない」「データが無駄に重い」 のが気に入らず極力使わないようにしています。 そこで大半はスクリプトを組んで流し込んでいます。 が、問題点が。 スクリプトはタブ区切りテキストを流し込む方法を取っていますが、 セルの中にタブや改行が含まれている場合、 スクリプト上で列や行を正確に認識できず、 エライことになったりすることがしばしば。 Excelで改行やタブを置換しようとしても、 「数式が長すぎます」と… セル内に911文字以上あると出るエラーのようですが、 Excelの仕様らしく通常の処理では行えないようです。 そこでExcelからCSV保存をした上で、 改行やタブを取る方法を取っていたのですが、 ドイツ語が出てきたときにエライことに…。 (ドイツ語以外でも

  • 1