0 返信 最新の回答 日時: Aug 5, 2010 6:31 AM ユーザー:えのの

    VBAから選択したセルのみにSmart Styleを適用したい。

    えのの

      教えてください。

      現在、ACCESS VBAから、インデザインを作成するプログラムを作っています。

       

       

          Dim indCol As InDesign.Column
          Dim indTbl As InDesign.Table
          Dim indCell As InDesign.Cell
          Dim indChr As InDesign.Character
          Dim fntObj  As Object
         
          Dim intChr As Integer
         
          Set indTbl = indTxtFrm.Tables(1)
         
          Set indCell = indTbl.Rows(1).Cells(indTbl.Rows(1).Columns.Count - 2)
        

          '範囲を選択する

          For intChr = 1 To indCell.Characters.Count
              indCell.Characters(intcht).AppliedFont = fntObj
          Next intChr

          indTbl.Columns(indTbl.Columns.Count - 2).Select

          Call indApp.Select(indTbl.Columns(indTbl.Columns.Count), idAddTo)

       

          'スマートスタイルを適用する
          Set indLib = indApp.Libraries.Item("ライブラリ名")
          Set indAst = indLib.Assets.Item("スマートスタイルB")
          Set indCell = indDoc.PageItems(1)

       

          '指定したスマートスタイルをテキストフレームに適用する
          indAst.ApplySmartStyle Array(indApp.Selection)

       

      これを実行した場合、

      範囲を選択しているにもかかわらず、選択範囲以外のすべてのフレームにスマートスタイルが適用されてしまいます。

       

          '指定したスマートスタイルをテキストフレームに適用する
          indAst.ApplySmartStyle Array(indApp.Selection)

       

      ここで適用する際に、ほかの適用の仕方があるのでしょうか?

       

      作業環境は「InDesignCS」「Smart Style3」です。

       

      よろしくお願致します。