home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / ITALIAN / LOTUS026.DSK / COLSTYLE.TPL < prev    next >
Text File  |  1997-01-30  |  624b  |  18 lines
  1. ' styles are stored in a collection
  2. ' the collection is accessible through the foundry at the division level
  3.     
  4.     Dim MyStyles As ParagraphStyleCollection
  5.     Set MyStyles = .Division.Foundry.ParagraphStyles
  6.     NumberStyles = MyStyles.Count
  7.     
  8.     Forall Style In MyStyles
  9.         
  10.         Print "Nome: "Style.Name
  11.         Print "Descrizione: "Style.Description
  12.         Print "Carattere - Nome carattere    "Style.Font.ActualName
  13.         Print "Carattere - Dimensione " Style.Font.Size
  14.         Print "Carattere - Grassetto "Style.Font.Bold
  15.         Print "Carattere - TrueType "Style.Font.FontMetrics.IsTrueType
  16.         Print " --------------------------"
  17.         
  18.     End Forall