home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTMLAPAR (.txt) < prev    next >
DeScribe Document  |  1995-11-12  |  24KB  |  130 lines
  1. DeScribe  Copyright DeScribe, Inc., 1988, 1989
  2. Letter
  3. <none>
  4. Env24
  5. <none>
  6. Env25
  7. BrotherH
  8. BrotherH
  9. LASERJET
  10. Brother HL-630/631
  11. Brother HL-630/631
  12. Letter
  13. Letter
  14. Info 1
  15. Info 2
  16. Info 3
  17. Info 4
  18. Document
  19. Roman
  20. okman
  21. StickyNote
  22. Helvetica
  23. portional
  24. Bulleted List
  25. Numbered List
  26. .Hanging indent
  27. 1/2 inch over
  28. 1 inch over
  29. Indented
  30. paras
  31. Bibliography
  32. border
  33. quote
  34. ITC Bookman
  35. Heading One
  36. Helvetica
  37. portional
  38. Heading Three
  39. Heading Four
  40. Heading Two
  41. ocument
  42. Roman
  43. okman
  44. Frame 2
  45. Frame 2
  46. !============================================================
  47. !   Scribe-HTML 0.9
  48. !============================================================
  49. !                                     Copyright (c) 1995 by Mike Sosteric
  50. !============================================================
  51. !   Scribe-HTML 0.9
  52. !============================================================
  53. VAR paragraph
  54. VAR NumberParagraph
  55. VAR Test
  56. VAR Counter
  57. MACRO HTMLAPAR
  58. Set InsertMode to True
  59. Set IncludeCancelButton to False
  60.    GET 
  61. Should I prepare paragraphs for numbering?[yes/no]
  62.  tostring NumberParagraph   
  63. If NumberParagraph = 
  64.  Then
  65. set NumberParagraph to 
  66. <strong>(XXXX)</strong> 
  67. Set NumberParagraph to 
  68. End If
  69. beep beep beep
  70. query 
  71. Please Make Sure the Cursor is placed in a paragraph
  72. pause 10
  73. set paragraph to styleatcursor
  74. CursorHome
  75. Repeat
  76. If StyleAtCursor = paragraph  Then 
  77. set CursorColumn to 1
  78. put NumberParagraph
  79.             ParagraphDown
  80.             CursorUp
  81.             CursorEndLine
  82.             put 
  83.             ParagraphDown
  84.             CursorRight
  85. ParagraphDown
  86. End If
  87. Exit When EndofFrame
  88. End Repeat
  89. CursorHome
  90. ! Number Paragraphs
  91. If NumberParagraph = 
  92.  Then
  93. CursorHome
  94. Set Counter to  1
  95. REPEAT
  96.     SearchClear
  97.     SET SearchSearch1 TO "XXXX"
  98.     SearchForward
  99. Exit When DefinedBlock <> True
  100.     PUT Counter
  101.     Set Counter to Counter+1
  102. END REPEAT
  103. End If
  104.  END MACRO
  105.  Page: 
  106.  Page: 
  107. DeScribe Glossary
  108. Create date
  109. Create time
  110. Document name
  111. File name
  112. Pages
  113. Pages (Alphabetic lower case)
  114. Pages (Alphabetic upper case)
  115. Pages (Roman lower case)
  116. Pages (Roman upper case)
  117. Print date
  118. Print time
  119. Revisions
  120. Save date
  121. Save time
  122. November 3, 1995
  123. 8:44 A.M.
  124. HTMLAPAR
  125. C:\DeScribe\Macros\HTMLAPAR
  126. November 12, 1995
  127. 11:02 A.M.
  128. November 12, 1995
  129. 11:55 A.M.
  130.