教えてください。
現在、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」です。
よろしくお願致します。
