🚀 go-pugleaf

"roberto soto" wrote:

> If you post all code lines (these that are involved with this behavior) I
can take
> a look of your code here, can be a very small thing.

Yes, know this "1 hour trial and error but only a missing character errors",
so here it is:

Public Sub FillTableInTextFrame(thisActualPage As Variant, ExcelFileName As
String, TextFrameName As String, SmartStyle As String)
    ' thisActualPage is the page to work on
    ' ExcelFileName is the name of the excel file to be placed
    ' TextFrameName is the name of the frame where the file has to be placed
    ' SmartStyle is the name of the asset to be used for formatting
    Dim thisFrame As InDesign.TextFrame
    Dim test As Variant
    If fso.FileExists(ExcelFileName) = True Then
        Set thisFrame = thisActualPage.TextFrames.Item(TextFrameName)
        thisFrame.ContentType = idText      ' make sure the frame will be a
text frame
        Call thisFrame.Place(FileName:=ExcelFileName, autoFlow:=False,
importOptions:=False, retainFormat:=False, convertQuotes:=True)
        ' here you can find the part that uses the smartstyles plugin to
format the tables
        Set myID = thisActualPage.Parent.Parent.Parent    ' take the
application object
        Dim thisLib As InDesign.Library
        Set thisLib = myID.Libraries.Item(1)
        Dim thisAssets As InDesign.Assets
        Set thisAssets = thisLib.Assets
        Dim thisAsset As InDesign.Asset
        Set thisAsset = thisAssets.Item(SmartStyle)  ' get the specific lib
asset to format the table
        thisAsset.ApplySmartStyleTo thisFrame
    End If
End Sub


Jens