home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTMLLINK.AUT (.txt) < prev    next >
DeScribe Document  |  1995-11-11  |  25KB  |  135 lines
  1. DeScribe  Copyright DeScribe, Inc., 1988, 1989
  2. Letter
  3. <none>
  4. Env64
  5. C<none>
  6. EnBrotherH
  7. BrotherH
  8. LASERJET
  9. Brother HL-630/631
  10. Brother HL-630/631
  11. Letter
  12. Letter
  13. Info 1
  14. Info 2
  15. Info 3
  16. Info 4
  17. Document
  18. Roman
  19. okman
  20. StickyNote
  21. Helvetica
  22. portional
  23. Bulleted List
  24. Numbered List
  25. .Hanging indent
  26. 1/2 inch over
  27. 1 inch over
  28. Indented
  29. paras
  30. Bibliography
  31. border
  32. quote
  33. ITC Bookman
  34. Heading One
  35. Helvetica
  36. portional
  37. Heading Three
  38. Heading Four
  39. Heading Two
  40. ocument
  41. Roman
  42. okman
  43. Frame 2
  44. Frame 2
  45. !! NOT DEVELOPED. USE AT YOUR OWN RISK
  46. !  Automated Link based on search for 
  47. VAR LinkName
  48. Macro AutoLInkLinks
  49. CursorHome
  50. REPEAT
  51.     SearchClear
  52.     SET SearchSearch1 TO "[http
  53.     SET SearchIgnoreCase1 To True
  54.     SearchForward
  55. Exit When NOT DefinedBlock
  56.     CancelDefinedBlock
  57.     CursorRight
  58.     DefineToWordEnd
  59.     DefineLeft
  60.     Set LinkName to DefinedText
  61.     put 
  62. <A HREF=
  63.     put LinkName
  64.     put 
  65.     put LinkName
  66.     put 
  67. CursorWordRight
  68. End Repeat
  69. CursorHome
  70. REPEAT
  71.     SearchClear
  72.     SET SearchSearch1 TO "[ftp
  73.     SET SearchIgnoreCase1 To True
  74.     SearchForward
  75. Exit When NOT DefinedBlock
  76.     CancelDefinedBlock
  77.     CursorRight
  78.     DefineToWordEnd
  79.     DefineLeft
  80.     Set LinkName to DefinedText
  81.     put 
  82. <A HREF=
  83.     put LinkName
  84.     put 
  85.     put LinkName
  86.     put 
  87. CursorWordRight
  88. End Repeat
  89. CursorHome
  90. REPEAT
  91.     SearchClear
  92.     SET SearchSearch1 TO "[gopher
  93.     SET SearchIgnoreCase1 To True
  94.     SearchForward
  95. Exit When NOT DefinedBlock
  96.     CancelDefinedBlock
  97.     CursorRight
  98.     DefineToWordEnd
  99.     DefineLeft
  100.     Set LinkName to DefinedText
  101.     put 
  102. <A HREF=
  103.     put LinkName
  104.     put 
  105.     put LinkName
  106.     put 
  107. CursorWordRight
  108. End Repeat
  109. End macro
  110.  Page: 
  111.  Page: 
  112. DeScribe Glossary
  113. Create date
  114. Create time
  115. Document name
  116. File name
  117. Pages
  118. Pages (Alphabetic lower case)
  119. Pages (Alphabetic upper case)
  120. Pages (Roman lower case)
  121. Pages (Roman upper case)
  122. Print date
  123. Print time
  124. Revisions
  125. Save date
  126. Save time
  127. November 4, 1995
  128. 9:56 P.M.
  129. HTMLLINK.AUT
  130. C:\DeScribe\Macros\HTMLLINK.AUT
  131. November 11, 1995
  132. 2:30 P.M.
  133. November 11, 1995
  134. 2:30 P.M.
  135.