home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / INDEXALL.SMM < prev    next >
INI File  |  1992-06-16  |  3KB  |  201 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [master]
  12.     
  13.     c:\amipro\dev\index.SAM
  14.     0
  15.     0
  16.     0
  17. [prn]
  18.     PostScript Printer
  19. [port]
  20.     LPT1:
  21. [lang]
  22.     1
  23. [desc]
  24.     Mark all instances of a word for index
  25.     Lotus WPD Marketing
  26.     Intermediate
  27.     While, MarkIndexWord
  28.     autorun
  29.     708733120
  30.     23
  31.     679166406
  32.     256
  33.     1
  34.     0
  35.     0
  36.     0
  37.     0
  38.     
  39.     
  40.     
  41.     
  42.     
  43.     
  44.     0
  45. [fopts]
  46.     0
  47.     1
  48.     0
  49.     0
  50. [lnopts]
  51.     2
  52.     Body Text
  53.     1
  54. [docopts]
  55.     5
  56.     2
  57. [GramStyle]
  58.     
  59. [ParaNum]
  60.     1
  61. [l1]
  62.     0
  63. [pg]
  64.     1
  65.     37 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  66. [edoc]
  67. <:#293,9360>Macro by <+!>Charlie Pappas<-!>
  68.  
  69. <:#284,9360>
  70.  
  71. <:#284,9360>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  72.  
  73. <:#284,9360>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  74.  
  75. <:#284,9360>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  76.  
  77. <:#284,9360>
  78.  
  79. @Function@<:#293,9360>function<:f,,0,0,0> indexall()
  80.  
  81. <:#284,9360>ignorekeyboard(2)
  82.  
  83. StatusBarMsg("Adding Index All to Edit/Mark Text menu")
  84.  
  85. <:#284,9360>rmac = getrunningmacrofile$()
  86.  
  87. <:#284,9360>deletemenuitem<:f,,0,0,0>(1, "&Edit", "&Mark Text", "Mark Index &All")
  88.  
  89. <:#568,9360>insertcascademenuitem(1, "&Edit", "&Mark Text", 1, "Mark Index &All", "{rmac}!idx", "Mark all for index.")
  90.  
  91. StatusBarMsg("")
  92.  
  93. 'TitleBarMsg("Ami Pro")
  94.  
  95. <:#284,9360>StatusBarMsg("")
  96.  
  97. <:#284,9360>end function
  98.  
  99. <:#284,9360>
  100.  
  101. @Function@<:#293,9360>function<:f,,0,0,0> idx()
  102.  
  103. <:#284,9360>ignorekeyboard(2)
  104.  
  105. <:#284,9360>defstr word;
  106.  
  107. <:#284,9360>if assign(&word, curshade$()) = ""
  108.  
  109. <:#284,9360>    message("Select word to mark for index.")
  110.  
  111. <:#284,9360>    return 0
  112.  
  113. <:#284,9360>endif
  114.  
  115. <:#284,9360>type("<[>esc]<[>esc]<[>esc]<[>ctrlhome]")
  116.  
  117. <:#284,9360>if (80 << len (word))
  118.  
  119. <:#284,9360>    word=left$(word, 79)
  120.  
  121. <:#284,9360>endif
  122.  
  123. <:#284,9360>while<:f,,0,0,0> (1)
  124.  
  125. <:#284,9360>    go = replace("", "", "", word, "")
  126.  
  127. <:#284,9360>    if go <<<;> 1
  128.  
  129. <:#284,9360>        break
  130.  
  131. <:#284,9360>    endif
  132.  
  133. <:#284,9360>    FieldAdd("Index ""{word} "" #")
  134.  
  135. <:#284,9360>wend
  136.  
  137. <:#284,9360>end function
  138.  
  139. <:#284,9360>
  140.  
  141. >
  142.  
  143. [Embedded]
  144. 00002157
  145. >
  146. [macsum] 2
  147. indexall 0 0 2 6
  148. idx 248 0 3 17
  149. [macse]
  150. 14 indexall
  151. 0 32 2
  152. 0 789 "Adding Index All to Edit/Mark Text menu"
  153. 0 802
  154. 13
  155. 8 1
  156. 0 520 1 "&Edit" "&Mark Text" "Mark Index &All"
  157. 0 529 1 "&Edit" "&Mark Text" 1 "Mark Index &All" "{1}!idx" "Mark all for index."
  158. 0 789 ""
  159. 0 789 ""
  160. 6 0
  161. 15
  162. 9
  163. 14 idx
  164. 0 32 2
  165. 0 24
  166. 13
  167. 0 805 &1 [X]
  168. 13
  169. 7 ""
  170. 18 0
  171. 11 00000119
  172. 0 3 "Select word to mark for index."
  173. 5 0
  174. 15
  175. 9
  176. 0 6 "[27][27][27][16420]"
  177. 5 80
  178. 0 14 "{1}"
  179. 13
  180. 18 5
  181. 11 00000212
  182. 0 806 "{1}" 79
  183. 13
  184. 8 1
  185. 5 1
  186. 11 00000349
  187. 2 488 1 "" "" "" "{1}" ""
  188. 13
  189. 8 2
  190. 6 2
  191. 5 1
  192. 18 1
  193. 11 00000308
  194. 10 00000349
  195. 2 572 1 "Index ""{1} "" #"
  196. 10 00000212
  197. 6 0
  198. 15
  199. 9
  200. 00002182
  201.