home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / INDEXALL.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  2.9 KB  |  201 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  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.     ╝╨Ñ▄⌐╥ª│░╡¼░»┴ñ▐¬║│µªr¿╥ñlíC
  25.     Lotus WPD Marketing
  26.     Intermediate
  27.     While, MarkIndexWord
  28.     autorun
  29.     773103499
  30.     25
  31.     679166406
  32.     269
  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,9025>Macro by <+!>Charlie Pappas<-!>
  68.  
  69. <:#284,9025>
  70.  
  71. <:#284,9025>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  72.  
  73. <:#284,9025>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  74.  
  75. <:#284,9025>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  76.  
  77. <:#284,9025>
  78.  
  79. @Function@<:#293,9025>function<:f,,0,0,0> indexall()<:f>
  80.  
  81. <:#284,9025>ignorekeyboard(2)
  82.  
  83. <:#284,9025>StatusBarMsg("Adding Index All to Edit/Mark Text menu")
  84.  
  85. <:#284,9025>rmac = getrunningmacrofile$()
  86.  
  87. <:#284,9025>deletemenuitem<:f,,0,0,0>(1, "<:f>╜s┐Φ(&E)<:f,,0,0,0>", "<:f>╝╨Ñ▄ñσªr(&M)<:f,,0,0,0>", "Mark Index &All")
  88.  
  89. <:#568,9025>insertcascademenuitem(1, "╜s┐Φ(&E)", "╝╨Ñ▄ñσªr(&M)", 1, "Mark Index &All", "{rmac}!idx", "Mark all for index.")
  90.  
  91. <:#284,9025>StatusBarMsg("")
  92.  
  93. <:#284,9025>'TitleBarMsg("Ami Pro")
  94.  
  95. <:#284,9025>StatusBarMsg("")
  96.  
  97. <:#284,9025>end function
  98.  
  99. <:#284,9025>
  100.  
  101. @Function@<:#293,9025>function<:f,,0,0,0> idx()
  102.  
  103. <:#284,9025>ignorekeyboard(2)
  104.  
  105. <:#284,9025>defstr word;
  106.  
  107. <:#284,9025>if assign(&word, curshade$()) = ""
  108.  
  109. <:#284,9025>    message("Select word to mark for index.")
  110.  
  111. <:#284,9025>    return 0
  112.  
  113. <:#284,9025>endif
  114.  
  115. <:#284,9025>type("<[>esc]<[>esc]<[>esc]<[>ctrlhome]")
  116.  
  117. <:#284,9025>if (80 << len (word))
  118.  
  119. <:#284,9025>    word=left$(word, 79)
  120.  
  121. <:#284,9025>endif
  122.  
  123. <:#284,9025>while<:f,,0,0,0> (1)
  124.  
  125. <:#284,9025>    go = replace("", "", "", word, "")
  126.  
  127. <:#284,9025>    if go <<<;> 1
  128.  
  129. <:#284,9025>        break
  130.  
  131. <:#284,9025>    endif
  132.  
  133. <:#284,9025>    FieldAdd("Index ""{word} "" #")
  134.  
  135. <:#284,9025>wend
  136.  
  137. <:#284,9025>end function
  138.  
  139. <:#284,9025>
  140.  
  141. >
  142.  
  143. [Embedded]
  144. 00002221
  145. >
  146. [macsum] 2
  147. indexall 0 0 2 6
  148. idx 258 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 "╜s┐Φ(&E)" "╝╨Ñ▄ñσªr(&M)" "Mark Index &All"
  157. 0 529 1 "╜s┐Φ(&E)" "╝╨Ñ▄ñσªr(&M)" 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. 00002246
  201.