5/24/97 Created by tink@compuserve.com AKA Micheline J. Long, but you can call me Tink This was created rather quickly. If you find problems let me know. Please READ this file first! Hi All, The CapPack.zip includes icons and scripts to do the following: TinkCap; my attempt at offering you a clever InitCap function ======== AND All Cap; a way to quickly change highlighted text to all caps fast. ======== The TinkCap comes in two flavors: ***YOU MUST DISABLE SMARTSELECT TO USE TINKCAP*** ================================= 1) TinkCap for Lines Containing straight quotes (double or single, no curlies) 2) TinkCap for Lines Containing curly quotes (no straight quotes). Function #2 above is not needed by OS/2'rs. Use straight quotes in your text, then the TinkCap feature, then insert your curly quotes to replace the straight quotes.* ***TO DISABLE SMARTSELECT - FILE|USER SETUP|WORD PRO PREFERENCES, DROP THE DISABLE LIST AND MAKE SURE THERE IS A CHECK MARK BY THE SMARTSELECT, CLICK OKAY. JUST A NOTE HERE, I NEVER USE SMARTSELECT (ick :) This is how it works and what it does: ====================================== 1) Click anywhere on one line of text you want to TinkCap (works on only one line of text containing no more than 25 words.) 2) Copies the text of the selected line, opens another doc and pastes it in. 3) Goes through init capping your text. 4) Goes through hunting the following Articles, Conjunctions and Preps to uncap them. 5) Caps the first and last word of the line. 6) Spits the line back on your page where it came from and closes the temporary document. How to use TinkCaps: ==================== 1) Click in the middle of a line of text you want to TinkCap. 2) Check for straight or curly quotes, click the appropriate icon. How to use AllCaps: =================== 1) Highlight text you want to AllCap. 2) Click the icon. ============================== HOW TO INSTALL THE CAPPACK.ZIP =============================== 1) Unzip the pack in an empty directory. With WordPro closed: 2) Drag and drop the three .bmp files and the one .smi into your Lotus Wordpro Icons directory: files are tnkcapa.bmp; tnkcapc.bmp (do not install this .bmp OS2'rs); tnkcaps.bmp; tbartote.smi 3) Drag and drop the tnkcap.lss into your Lotus WordPro Scripts directory. Open WordPro: 4) The new Tbartote.smi should be on the screen (97 version and NT users may have to open Word Pro two times to see it on screen). This tote bar had to be used because Word Pro seems to want to have its icons on a bar in order to move them around. You *should* be able to do a File|User Setup|SmartIcons setup, and grab these icons from the Available icon list (bottom of the list probably), then drag and drop them to another bar if you like. If you would like, at that point, select the Tbartote in the "Bar Name" box of the SmartIcon Setup Dialog box, and deselect "bar is enabled to display in its context." It will then not show on screen. Hope this is clear :) I did this work very quickly so let me know if you have problems here. If it is just a mechanical Word Pro support problem, please read the Word Pro help files to find out how to place icons on other bars. That should be it. By the way, keep your readmes on these so that you can remember what files are mine, in the event you want to blow them away. I try to start them all with "tnk" now so that they are more easily recognizable. (tbartote.smi is an exception and I will probably use it to tote other icons in the future.) REMINDER. THE SCRIPTS RUN BY THE ICONS ARE ALWAYS SLOWER THE FIRST TIME CLICKED. FOLLOWING CLICKS PRODUCE FASTER RESULTS. DISCLAIMER ========== As always, my work is done with tender loving care for use in all versions of Word Pro. However if the installation of any file should cause major or minor damage to your system or your life the author assumes no responsibility for anything at all due to the file's usage or installation. You are free to report all problems you encounter and a best effort will be made to correct any problems though no assurance should be implied by this offer that the problem will be fixed to meet any deadline you may have. If I can fix the problem I will, otherwise call tech support :) j/k Backing up of all system data and software prior to the installation of any software product is always a very good and safe idea. The following are the words that TinkCap will look for to uncap: ================================================================ If for some reason you do not want these words uncapped, you can alter the script accordingly. It should be fairly easy to follow and figure out. I have placed an example of the script below and a template for inserts or take outs. This is the best I can do to help you alter things. Custom work can be contracted. Articles: ========= a an the Coordinating Conjunctions: ========================== and but or nor for so yet Common Prepositions: ==================== about above across after against along among around as at before behind below beside besides between beyond but by concerning considering despite down during except for from in inside into like near next of off on onto opposite out outside over past plus regarding respecting round since than through throughout till to toward under underneath unlike until unto up upon with without ================== Portion of Script: Please note the end for examples to help add-in or take out portions. ================== Sub capc .Type "[Home]" .Type "[shiftEnd]" .CopySelection .NewDocument "", "", "default.mwp", "", "", "" .Paste .Type "[ctrlshiftLeft][Right][shiftLeft]" For i = 1 To 25 If .Text.GetText($LwpGetObjectTypeSelection,False) = Chr(147) Then .Type "[Right][Right][shiftLeft]" .Text.Font.UpperCase = True .Type "[Left]" .Type "[ctrlshiftLeft][Right][shiftLeft]" Elseif .Text.GetText($LwpGetObjectTypeSelection,False) = Chr(145) Then .Type "[Right][Right][shiftLeft]" .Text.Font.UpperCase = True .Type "[Left]" .Type "[ctrlshiftLeft][Right][shiftLeft]" Else .Text.Font.UpperCase = True .Type "[ctrlshiftLeft][Right][shiftLeft]" End If Next .Type "[left]" .Application.FindAndReplace.FindString = "A" .Application.FindAndReplace.ReplaceString = "a" .Application.FindAndReplace.MatchType = $LwpFindMatchOnWholeWord .Application.FindAndReplace.ReplaceFont.Clear .Application.FindAndReplace.ReplaceAttributes.Clear .Application.FindAndReplace.ReplaceFont.LowerCase = True .Application.FindAndReplace.UseReplaceStyle = 0 .Application.FindAndReplace.FindFont.Clear .Application.FindAndReplace.SearchAttributes.Clear .Application.FindAndReplace.UseFindStyle = 0 .Application.FindAndReplace.Where = $LwpLookWhereEntireDocument .Application.FindAndReplace.IncludeList = &H1 .Application.FindAndReplace.ReplaceExactCase = True .Application.FindAndReplace.ReplaceWithProperties = True .InitFindAndReplace True .ReplaceAll .ResetFindAndReplace .Application.FindAndReplace.FindString = "An" .Application.FindAndReplace.ReplaceString = "an" .ReplaceAll .Application.FindAndReplace.FindString = "The" .Application.FindAndReplace.ReplaceString = "the" .ReplaceAll .Application.FindAndReplace.FindString = "And" .Application.FindAndReplace.ReplaceString = "and" .ReplaceAll .Application.FindAndReplace.FindString = "But" .Application.FindAndReplace.ReplaceString = "but" .ReplaceAll Insert a Template Before these lines in the tnkcap.lss (the sub "caps" is for straight quotes, the sub "capc" is for curly quotes) .InitFindAndReplace True .Type "[CtrlEnd]" .Type "[ctrlshiftLeft][Right][shiftLeft]" .Text.Font.UpperCase = True .Type "[CtrlHome]" .Type "[shiftRight]" .Text.Font.UpperCase = True .Type "[CtrlHome]" .Type "[shiftCtrlEnd]" .CopySelection .activeDOCUMENT.CHANGED = False .activedocument.CLOSE .Paste End Sub ========== Templates: ========== Template for add ins: .Application.FindAndReplace.FindString = "word with cap here" .Application.FindAndReplace.ReplaceString = "word without cap here" .ReplaceAll Template for take outs: Make sure to take out all three lines in this order .Application.FindAndReplace.FindString = "Without" .Application.FindAndReplace.ReplaceString = "without" .ReplaceAll That's all folks. Don't forget to let me know if you like it, and if you are into the giftware thing, gift me so that I can continue this work. Please refer to TinkBar documentation for the definition of GiftWare. (I will claim gifts as income, they will be a write off to you as such I believe, please check with your tax professional.) Tink@compuserve.com Mailing address: Micheline J. Long 960 Sierra Hwy. Palmdale, CA. 93550