From rickaphillips at hotmail.com Mon Jan 8 19:32:33 2007 From: rickaphillips at hotmail.com (Rick Phillips) Date: Mon Jan 8 19:33:06 2007 Subject: [EmData] using InCatalog with VBScript Message-ID: Hi I am wondering how to access the InCatalog Type library with VB script. I want to be able to write a script that already has the tagged Key to the text when I right it out from an access database. I have viewed the userguide and dont really understand the working with Windows part. Does anyone have some example code to get me started thanks Rick _________________________________________________________________ Be one of the first to try Windows Live Mail. http://ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d From rickaphillips at hotmail.com Tue Jan 9 17:39:15 2007 From: rickaphillips at hotmail.com (Rick Phillips) Date: Tue Jan 9 17:39:43 2007 Subject: [EmData] using InCatalog with VBScript Message-ID: Hi Joe I have this user guide already and did read this chapter. However I'm not an experience VB programmer and dont really understand this example. If possible I was after more example code of how you would tag text with a key that you print from a database. Below is a sample of the text I have now that prints static text "Product Code" and a value from a database "ProductCode" but I am not sure how to call the InCatalog Plugin and say... Print and tag the value of "ProductCode" with the InCatalog key "ProductCode" pulled from the database. Set oPoint = oPoints.Item(oPoints.Count) ' set the current insertion point oPoint.AppliedParagraphStyle = oDocument.ParagraphStyles.Item("Body Text") ' set the paragraph style... this will last for the whole text frame oPoint.AppliedCharacterStyle = oDocument.CharacterStyles.Item("Bold") ' set the character style to bold for this insertion point oPoint.Contents = "Product Code: " & vbTab ' static text for product code field Set oPoint = oPoints.Item(oPoints.Count) ' get the next insertion point oPoint.AppliedCharacterStyle = oDocument.CharacterStyles.Item("Plain") ' set the character style to none for this insertion point sBuf = rs.Fields("ProductCode") oPoint.Contents = sBuf & vbLf ' output the product code value and linefeed Any ideas would be much appreciated. Cheers Rick ---------------------------------------- > Date: Tue, 9 Jan 2007 11:25:15 -0600 > Subject: Re: [EmData] using InCatalog with VBScript > From: support@emsoftware.com > To: rickaphillips@hotmail.com; data-users@emsoftware.com > CC: support@emsoftware.com > > Hi Rick, > > Please see the Windows section of chapter 9 of the users manual, attached > for your convenience. > > Does this help? > > Regards, > > Joe Mathia > Em Software Support / support@emsoftware.com / www.emsoftware.com > (+1) 740 284 1010, fax (+1) 740 284 1210 > > > On 1/8/07 6:32 PM, "Rick Phillips" wrote: > > > > > Hi > > > > I am wondering how to access the InCatalog Type library with VB script. I want > > to be able to write a script that already has the tagged Key to the text when > > I right it out from an access database. > > I have viewed the userguide and dont really understand the working with > > Windows part. Does anyone have some example code to get me started > > > > thanks > > Rick > > _________________________________________________________________ > > Be one of the first to try Windows Live Mail. > > http://ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911f > > b2b2e6d_______________________________________________ > > Data-users mailing list > > Data-users@emsoftware.com > > http://mail.emsoftware.com/mailman/listinfo/data-users > > > > > _________________________________________________________________ Be one of the first to try Windows Live Mail. http://ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d