Top Navigational Bar

Macro Example: Count Number Of Fonts In Font
DocumentID: 621050
Revision Date: 29-Feb-96 1:39:32 PM

The information in this document applies to:
WordPerfect® 6.0 for DOS

Problem

Solutions: This macro counts the number of fonts in the font list and puts them in an array.

      DISPLAY(off!)
      DLGINPUT(on!)
            FontDlg                              //Go to font dialog
            Type(1)                              //Go to list of fonts
      HomeKey HomeKey PosLineUp
      FontName[0]:=?List
      FORNEXT (X;1;FontName[0])
            FontName[X]:=?Entry
            DownArrow
      ENDFOR
            CancelKey
            CancelKey
      DLGCREATE(box)
      DLGCONTROL(CtrlList!;FontName;"Font total: "+x;;;;38)
      DLGEND

Answer:

Details:


Product specifications, packaging, technical support and information (*Specifications*) refer to theUnited States retail English version only. Specifications for other versions may vary. All Specifications, claims, features, representations, and/or comparisons provided are correct to the best of our knowledge of the date of publication, but are subject to change without notice.OUR MAXIMUM AGGREGATE LIABILITY TO YOU AND THAT OF OUR DEALERS AND SUPPLIERS IS LIMITED. IT SHALL NOTEXCEED THE AMOUNT YOU PAID TO ACCESS THE INFORMATION. SEE LEGAL DISCLAIMER.