home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / SPANISH / LOTUS027.DSK / COLSTYLE.TPL < prev    next >
Text File  |  1995-08-24  |  603b  |  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 "Nombre: "Style.Name
  11.         Print "Descripci≤n: "Style.Description
  12.         Print "Fuente - Nombre    "Style.Font.ActualName
  13.         Print "Fuente - Tama±o " Style.Font.Size
  14.         Print "Fuente - Negrita "Style.Font.Bold
  15.         Print "Fuente - TrueType "Style.Font.FontMetrics.IsTrueType
  16.         Print " --------------------------"
  17.         
  18.     End Forall
  19.