home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / cappack.zip / readme.txt next >
Text File  |  1997-05-24  |  9KB  |  301 lines
  1. 5/24/97
  2. Created by tink@compuserve.com AKA Micheline J. Long, but you can call me Tink
  3.  
  4. This was created rather quickly.  If you find problems let me know.  Please READ this
  5. file first!  
  6.  
  7. Hi All,
  8.  
  9. The CapPack.zip includes icons and scripts to do the following:
  10.  
  11. TinkCap; my attempt at offering you a clever InitCap function
  12. ========
  13.  
  14. AND
  15.  
  16. All Cap; a way to quickly change highlighted text to all caps fast.
  17. ========
  18.  
  19.  
  20. The TinkCap comes in two flavors: ***YOU MUST DISABLE SMARTSELECT TO USE TINKCAP***
  21. =================================
  22.  
  23. 1)  TinkCap for Lines Containing straight quotes (double or single, no curlies)
  24.  
  25. 2)  TinkCap for Lines Containing curly quotes (no straight quotes).  
  26.  
  27. Function #2 above is not needed by OS/2'rs.  Use straight quotes in your text,
  28. then the TinkCap feature, then insert your curly quotes to replace the straight quotes.*
  29.  
  30. ***TO DISABLE SMARTSELECT - FILE|USER SETUP|WORD PRO PREFERENCES, DROP THE DISABLE LIST
  31. AND MAKE SURE THERE IS A CHECK MARK BY THE SMARTSELECT, CLICK OKAY.  JUST A NOTE HERE,
  32. I NEVER USE SMARTSELECT (ick :)
  33.  
  34.  
  35. This is how it works and what it does:
  36. ======================================
  37.  
  38. 1) Click anywhere on one line of text you want to TinkCap (works on only one line 
  39. of text containing no more than 25 words.)
  40. 2) Copies the text of the selected line, opens another doc and pastes it in.
  41. 3) Goes through init capping your text.
  42. 4) Goes through hunting the following Articles, Conjunctions and Preps to uncap them.
  43. 5) Caps the first and last word of the line.
  44. 6) Spits the line back on your page where it came from and closes the temporary document.
  45.  
  46.  
  47. How to use TinkCaps:
  48. ====================
  49. 1) Click in the middle of a line of text you want to TinkCap.
  50. 2) Check for straight or curly quotes, click the appropriate icon.
  51.  
  52.  
  53. How to use AllCaps:
  54. ===================
  55. 1) Highlight text you want to AllCap.
  56. 2) Click the icon.
  57.  
  58.  
  59. ==============================
  60. HOW TO INSTALL THE CAPPACK.ZIP
  61. ===============================
  62.  
  63. 1) Unzip the pack in an empty directory.
  64.  
  65. With WordPro closed:
  66.  
  67. 2) Drag and drop the three .bmp files and the one .smi into your Lotus Wordpro Icons 
  68. directory:  files are tnkcapa.bmp; tnkcapc.bmp (do not install this .bmp OS2'rs); 
  69. tnkcaps.bmp; tbartote.smi
  70. 3) Drag and drop the tnkcap.lss into your Lotus WordPro Scripts directory.
  71.  
  72. Open WordPro:
  73.  
  74. 4) The new Tbartote.smi should be on the screen (97 version and NT users may have
  75. to open Word Pro two times to see it on screen).  This tote bar had to be used 
  76. because Word Pro seems to want to have its icons on a bar in order to move them around.  
  77. You *should* be able to do a File|User Setup|SmartIcons setup, and grab these icons 
  78. from the Available icon list (bottom of the list probably), then drag and drop them 
  79. to another bar if you like.  If you would like, at that point, select the Tbartote 
  80. in the "Bar Name" box of the SmartIcon Setup Dialog box, and deselect "bar is enabled 
  81. to display in its context."  It will then not show on screen.  Hope this is clear :)
  82. I did this work very quickly so let me know if you have problems here.  If it is just
  83. a mechanical Word Pro support problem, please read the Word Pro help files to find out
  84. how to place icons on other bars.
  85.  
  86.  
  87. That should be it.  By the way, keep your readmes on these so that you can remember 
  88. what files are mine, in the event you want to blow them away.  I try to start them 
  89. all with "tnk" now so that they are more easily recognizable. (tbartote.smi is an
  90. exception and I will probably use it to tote other icons in the future.)
  91.  
  92.  
  93. REMINDER.  THE SCRIPTS RUN BY THE ICONS ARE ALWAYS SLOWER THE FIRST TIME CLICKED.
  94. FOLLOWING CLICKS PRODUCE FASTER RESULTS.
  95.  
  96.  
  97. DISCLAIMER
  98. ==========
  99.  
  100. As always, my work is done with tender loving care for use in all versions of
  101. Word Pro.  However if the installation of any file should cause major or
  102. minor damage to your system or your life the author assumes no
  103. responsibility for anything at all due to the file's usage or installation.
  104. You are free to report all problems you encounter and a best effort will
  105. be made to correct any problems though no assurance should be implied by
  106. this offer that the problem will be fixed to meet any deadline you may
  107. have.  If I can fix the problem I will, otherwise call tech support :) j/k
  108.  
  109. Backing up of all system data and software prior to the installation of
  110. any software product is always a very good and safe idea.
  111.  
  112.  
  113. The following are the words that TinkCap will look for to uncap:
  114. ================================================================
  115. If for some reason you do not want these words uncapped, you can alter the script 
  116. accordingly.  It should be fairly easy to follow and figure out.  I have placed an 
  117. example of the script below and a template for inserts or take outs.  This is the best 
  118. I can do to help you alter things.  Custom work can be contracted.
  119.  
  120. Articles:
  121. =========
  122. a
  123. an
  124. the
  125.  
  126. Coordinating Conjunctions:
  127. ==========================
  128. and
  129. but
  130. or
  131. nor
  132. for
  133. so
  134. yet
  135.  
  136. Common Prepositions:
  137. ====================
  138. about
  139. above
  140. across
  141. after
  142. against
  143. along
  144. among
  145. around
  146. as 
  147. at
  148. before
  149. behind
  150. below
  151. beside
  152. besides
  153. between
  154. beyond
  155. but
  156. by
  157. concerning
  158. considering
  159. despite
  160. down
  161. during
  162. except
  163. for
  164. from
  165. in
  166. inside
  167. into
  168. like
  169. near
  170. next
  171. of
  172. off
  173. on
  174. onto
  175. opposite
  176. out
  177. outside
  178. over
  179. past
  180. plus
  181. regarding
  182. respecting
  183. round
  184. since
  185. than
  186. through
  187. throughout
  188. till
  189. to
  190. toward
  191. under
  192. underneath
  193. unlike
  194. until
  195. unto
  196. up
  197. upon
  198. with
  199. without
  200.  
  201. ==================
  202. Portion of Script:  Please note the end for examples to help add-in or take out portions.
  203. ==================
  204. Sub capc
  205.     .Type "[Home]"
  206.     .Type "[shiftEnd]"
  207.     .CopySelection
  208.     .NewDocument "", "", "default.mwp", "", "", ""
  209.     .Paste
  210.     .Type "[ctrlshiftLeft][Right][shiftLeft]"
  211.     For i = 1 To 25
  212.         If .Text.GetText($LwpGetObjectTypeSelection,False) = Chr(147) Then
  213.             .Type "[Right][Right][shiftLeft]"
  214.             .Text.Font.UpperCase = True
  215.             .Type "[Left]"
  216.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  217.         Elseif .Text.GetText($LwpGetObjectTypeSelection,False) = Chr(145) Then
  218.             .Type "[Right][Right][shiftLeft]"
  219.             .Text.Font.UpperCase = True
  220.             .Type "[Left]"
  221.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  222.         Else
  223.             .Text.Font.UpperCase = True
  224.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  225.         End If
  226.     Next    
  227.     .Type "[left]"
  228.     .Application.FindAndReplace.FindString = "A"
  229.     .Application.FindAndReplace.ReplaceString = "a"
  230.     .Application.FindAndReplace.MatchType = $LwpFindMatchOnWholeWord
  231.     .Application.FindAndReplace.ReplaceFont.Clear
  232.     .Application.FindAndReplace.ReplaceAttributes.Clear
  233.     .Application.FindAndReplace.ReplaceFont.LowerCase = True
  234.     .Application.FindAndReplace.UseReplaceStyle = 0
  235.     .Application.FindAndReplace.FindFont.Clear
  236.     .Application.FindAndReplace.SearchAttributes.Clear
  237.     .Application.FindAndReplace.UseFindStyle = 0
  238.     .Application.FindAndReplace.Where = $LwpLookWhereEntireDocument
  239.     .Application.FindAndReplace.IncludeList = &H1
  240.     .Application.FindAndReplace.ReplaceExactCase = True
  241.     .Application.FindAndReplace.ReplaceWithProperties = True
  242.     .InitFindAndReplace True
  243.     .ReplaceAll
  244.     .ResetFindAndReplace
  245.     .Application.FindAndReplace.FindString = "An"
  246.     .Application.FindAndReplace.ReplaceString = "an"
  247.     .ReplaceAll
  248.     .Application.FindAndReplace.FindString = "The"
  249.     .Application.FindAndReplace.ReplaceString = "the"
  250.     .ReplaceAll
  251.     .Application.FindAndReplace.FindString = "And"
  252.     .Application.FindAndReplace.ReplaceString = "and"
  253.     .ReplaceAll
  254.     .Application.FindAndReplace.FindString = "But"
  255.     .Application.FindAndReplace.ReplaceString = "but"
  256.     .ReplaceAll
  257.  
  258. Insert a Template Before these lines in the tnkcap.lss
  259.      (the sub "caps" is for straight quotes, the sub "capc" is for curly quotes)
  260.  
  261.     .InitFindAndReplace True
  262.     .Type "[CtrlEnd]"
  263.     .Type "[ctrlshiftLeft][Right][shiftLeft]"
  264.     .Text.Font.UpperCase = True
  265.     .Type "[CtrlHome]"
  266.     .Type "[shiftRight]"
  267.     .Text.Font.UpperCase = True
  268.     .Type "[CtrlHome]"
  269.     .Type "[shiftCtrlEnd]"
  270.     .CopySelection
  271.     .activeDOCUMENT.CHANGED = False  
  272.     .activedocument.CLOSE
  273.     .Paste
  274. End Sub
  275.  
  276. ==========
  277. Templates:
  278. ==========
  279.  
  280. Template for add ins:
  281.     .Application.FindAndReplace.FindString = "word with cap here"
  282.     .Application.FindAndReplace.ReplaceString = "word without cap here"
  283.     .ReplaceAll
  284.  
  285. Template for take outs:  Make sure to take out all three lines in this order
  286.     .Application.FindAndReplace.FindString = "Without"
  287.     .Application.FindAndReplace.ReplaceString = "without"
  288.     .ReplaceAll
  289.  
  290.  
  291. That's all folks.  Don't forget to let me know if you like it, and if you are into the
  292. giftware thing, gift me so that I can continue this work.  Please refer to TinkBar 
  293. documentation for the definition of GiftWare. (I will claim gifts as income, they 
  294. will be a write off to you as such I believe, please check with your tax professional.)
  295.  
  296. Tink@compuserve.com
  297.  
  298. Mailing address:
  299. Micheline J. Long
  300. 960 Sierra Hwy.
  301. Palmdale, CA. 93550