home *** CD-ROM | disk | FTP | other *** search
/ Pegasus 5 / Pegasus_Vol_5_CD2.iso / lotus / lotus033.dsk / COLSTYLE.LSS < prev    next >
Text File  |  1995-08-23  |  651b  |  19 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 "Name : "Style.Name
  11.         Print "Beschreibung: "Style.Description
  12.                 Print "Schriftart - Schriftartenname "Style.Font.ActualName
  13.         Print "Schriftart - Schriftgrad " Style.Font.Size
  14.         Print "Schriftart - IsBold "Style.Font.Bold
  15.         Print "Schriftart - Is TrueType "Style.Font.FontMetrics.IsTrueType
  16.         Print " --------------------------"
  17.         
  18.     End Forall
  19.