Forums

教えてください。

現在、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」です。

よろしくお願致します。