http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 17 Apr 2026 04:05:16 +0000 Thu, 04 Feb 2010 14:04:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=16143 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=16143&PID=56597&title=enumerateskinfile#56597 Author: wxperson
Subject: 16143
Posted: 04 February 2010 at 2:04pm

Never mind I found the code on a Japanese web site.

 Dim Discription As SkinDescription
  Dim i As Integer
  Dim FileName As String
  FileName = App.Path + "..\..\..\Styles\Office2007.cjstyles"
  Set Discription = SkinFramework.EnumerateSkinFile(FileName)
  For i = 0 To Discription.Count - 1
  Debug.Print "IniFile:" & Discription.IniFile(i).IniFileName & "/ColorScheme:" & Discription.IniFile(i).ColorScheme &   "/FontSize:" & Discription.IniFile(i).FontSize
  Next
]]> Thu, 04 Feb 2010 14:04:17 +0000 http://forum.codejock.com/forum_posts.asp?TID=16143&PID=56597&title=enumerateskinfile#56597 http://forum.codejock.com/forum_posts.asp?TID=16143&PID=56595&title=enumerateskinfile#56595 Author: wxperson
Subject: 16143
Posted: 04 February 2010 at 1:52pm

Does anyone know where I can find example code which uses the EnumerateSkinFile command?

I am trying to programatically determine which ini files are in a cjstyles file and I cannot find this sample code anywhere .. yet.

Thanks in advance,

George
]]> Thu, 04 Feb 2010 13:52:53 +0000 http://forum.codejock.com/forum_posts.asp?TID=16143&PID=56595&title=enumerateskinfile#56595