Calculation from Tokens

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Text Runs in VBA? Hi! Can someone please tell me how can I get the text runs of the word doc through VBA code or whether or not they are possible at all. I think they should be accessible since they appear in the XML genrated from word Thanks Abhishek Tag: Calculation from Tokens Tag: 75281
  - 2
    - Help with Prompts = Code attached Simple if statement? hello, What im wanting to try is for this code to cycle through the document and once you have imputted your criteria: sFnd = Enter the word you wish to replace with a hyperlink sHpl = Enter File Name sDsp = Enter the HyperLink display name it will prompt you once it finds the word you wish to replace. At that point you can choose either yes (to replace it) or no to ignore it. Im thinking this must be a simple if statement but for the life of me i cant find where it should go. I have a partial piece "MsgBox "Replace selection", vbYesNo, "Testing" but cant figure out the rest. Please help. i would like to try and sleep tonight. Thanks cm Sub FindAndReplaceWithHypertext() Dim rDoc As Range ' range replace Dim sFnd As String ' string to be found Dim sHpl As String ' hyperlink Dim sDsp As String ' hyperlink display sFnd = InputBox("Enter the word you wish to replace with a hyperlink:") sHpl = InputBox("Enter File Name:") sDsp = InputBox("Enter the HyperLink display name") Set rDoc = ActiveDocument.Range ResetSearch With rDoc.Find .Text = sFnd .Wrap = wdFindStop MsgBox "Replace selection", vbYesNo, "Testing" Do While .Execute ActiveDocument.Hyperlinks.Add _ rDoc, sHpl, TextToDisplay:=sDsp rDoc.End = rDoc.End + Len(sDsp) rDoc.Collapse wdCollapseEnd Loop End With End Sub Tag: Calculation from Tokens Tag: 75279
  - 3
    - TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW - "paypal.rtf" 12.4 KBytes yEnc It Will Work? If you do as I have done! Just Do It! follow the 4 steps? $6.00 to $15,000.00 in 30 days! Steps: Follow the Logic, Just Do it and It will work? $$$ in 4 easy steps? 1. Set Up a Free Paypal Account. 2. Send $1.00 to six Email Accounts from your Paypal Account 3. Delete email address #1 and add your email address as #6. Move all others #2-#6 up one number 4. Copy and Post this entire Letter to Newsgroups, Messages Boards etc? Copy this exactly for you guidance to completing steps 1-4. You are in Business for yourself and you are Creating an E-mail List Company TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW! PAYPAL VERIFIES THAT THIS $6 INVESTMENT SCHEME IS 100% LEGAL AND IS A BIG HIT THIS YEAR SEE THEIR NOTE BELOW OR ASK THEM DIRECTLY... THIS SCHEME MIGHT TAKE 15-30 MINUTES AND JUST $6, BUT IT IS 100% WORTH IT TO MAKE THOUSANDS SO QUICKLY. THIS IS NOT ANOTHER SCAM THAT TAKES LOTS OF YOUR HARD EARNED MONEY; THIS IS A NO RISK INVESTMENT THAT WILL MAKE YOU THOUSANDS OF DOLLARS VERY EASILY AND QUICKLY. >From PayPal: "Dear Member, it has come to our attention that there is a paypal scheme floating around at the moment you may have heard or seen the $6 scheme. You may have even taken part in it well we have been asked a lot of questions about this scheme the answer is yes it does work and yes it is safe to use providing you follow the rules it is legal and has made a big hit on the internet this year. If you would like to take part in this scheme or would like a bit more information then please see the attached file that was kindly donated to us. Thank you for using PayPal!" TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW! This is a Money Scheme and Not, I repeat? This is Not a Scam!!! You have most likely seen or heard about this project on TV programs such as 20/20 and Oprah, or you may have read about it in the Wall Street Journal. If not, here it is below - revealed to you in step-by-step detail. This program is by no means new. It has been in existence in many forms for at least a decade. But in the early days, it required a lot more time and effort, as well as an investment of a few hundred dollars. However thanks to PayPal and the Internet, the investment is now virtually ZERO! And what's more, the entire process is FASTER, EASIER, and MORE LUCRATIVE than it has EVER been! Below is the email sent to me: How to Turn $6 into $15,000 in 30 Days with PayPal I WAS SHOCKED WHEN I SAW HOW MUCH MONEY CAME FLOODING INTO MY PAYPAL ACCOUNT I turned $6 into $14,706 within the first 30 days of operating the business plan that I am about to reveal to you free of charge. If you decide to take action on the following instructions, I will GUARANTEE that you will enjoy a similar return! STILL NEED PROOF? Here are just 3 testimonials from the countless individuals who decided to invest nothing more than $6 and half an hour of their time to participate in this program: "What an amazing plan! I followed your instructions just 3 weeks ago, and although I haven't made 15 grand yet, I'm already up to $9,135. I'm absolutely gob smacked." -Pam Whittemore , Ohio "Well, what can I say?... THANK YOU SO MUCH! I sent 40 e-mail's out like you said and then I just forgot about the whole thing. To be honest, I didn't really think anything would come of it. But when I checked my paypal account a week later, there was over $5,000 in After 30 days I now have over $11,000 to spend! I can't thank you enough!"-Juan Tovar, NY,NY "I was shocked when I saw how much money came flooding into my paypal account. Within 3 weeks my account balance has ballooned to $12,449. At first I thought there had been some sort of error with my account!" -Richard Barrie , Boulder,CO The only things you will need are: An email address. A Business PayPal account with at least $6 deposited in it, and just 15 to 30 minutes of your time. This program takes just half an hour to set up. After that, there is absolutely no work whatsoever to do on your part. You have absolutely NOTHING to lose, and there is NO LIMIT to the amount of income you can generate from this one single business program. Let's get started, just follow the instructions exactly as set out below and then prepare yourself for a HUGE influx of cash over the next 30 days! Here's what you need to do. . . REQUIREMENTS #1) an email address #2) a Premier or Business PayPal account (It's simple and free to get a Premier or Business account, if you need help doing it just email me.) Now follow the steps: 1-4 ________________________________________ Follow these easy steps EXACTLY and just watch what happens STEP #1 - Setting up your FREE PayPal Account It's extremely safe and very easy to set up a FREE PayPal account! Copy and paste this to the address bar https://www.paypal.com (notice the secure "https" within the link) Be sure to sign up for a free PREMIER or BUSINESS account (and not just a PERSONAL account) otherwise you won't be able to receive credit card payments from other people. STEP #2 - Sending PayPal money "It is an undeniable law of the universe that we must first give in order to receive." Now all you have to do is send $1.00 by way of PayPal to each of the six email addresses listed below. After setting up your free paypal account and confirming or verifying YOUR ACCOUNT AND putting (six Dollars) $6.00 into your Paypal Account use the Account tab on Paypal to send $1.00 to each of the Names on the List then move the top one and place yours in the #6 spot on the list of names #1-#6. Remember your name becomes #6. Make sure the subject of the payment says... *PLEASE PUT ME ON YOUR EMAIL LIST* (this keeps the program 100% legal.. so please don't forget!) Note: (If you do not see the full email address for the 6 members, just hit reply to this email and they will show up.) (Just in case you still haven't opened your PayPal account yet, use this link to open one in your name), https://www.paypal.com #1) faithmichelle_mo@yahoo.com #2) reesefork@yahoo.com #3) artofficial@grics.net #4) msw27@cox.net #5) fredwdjr@yahoo.com #6) maintenanceman69@aol.com Remember, all of this is ABSOLUTELY LEGAL! You are creating a service! A Business? An Email List Service Business If you have any doubts, please refer to Title 18 Sec. 1302 & 1241 of the United States Postal laws. STEP #3 - Adding Your Email Address After you send your six $1.00 payments, it's your turn to add your email address to the list! Take the #1) email off the list that you see above, move the other addresses up one (6 becomes 5 & 5 becomes 4, 4 becomes 3, 3 becomes 2, 2 becomes 1, your email becomes #6) put YOUR email address (the one used in your PayPal account) as #6) on the list. **MAKE SURE THE EMAIL YOU SUPPLY IS EXACTLY AS IT APPEARS IN YOUR PAYPAL ACCOUNT.** STEP #4 - Copy Message to 200 Newgroups, message boards,etc?? The Pure Joy of Receiving PayPal Money! ________________________________________ You are now ready to post your copy of this message, to at least 200 newsgroups, message boards, etc. (I think there are close to 32,000 groups) All you need is 200, but remember, the more you post, the more money you make - as well as everyone else on the list! In this situation your job is to let as many people see this letter as possible. So they will make you and me rich!!!! You can even start posting the moment your email is confirmed. Payments will still appear in your PayPal account even while your bank account is being confirmed. HOW TO POST TO NEWSGROUPS & MESSAGE BOARDS Step #1) You do not need to re-type this entire letter to do your own posting. Simply put your CURSOR at the beginning of this letter and drag your CURSOR to the bottom of this document, and select 'copy' from the edit menu. This will copy the entire letter into your computer's temporary memory. Step #2) Open a blank 'Notepad' file and place your cursor at the top of the blank page. From the 'Edit' menu select 'Paste'. This will paste a copy of the letter into notepad so that you can add your email to the list. Or copy to a Word Document. and Place in the email upon completion. Step #3) Save your new Notepad file as a .txt file. If you want to do your postings in different sittings, you'll always have this file to go back to. Step #4) Use Netscape or Internet Explorer and try searching for various newsgroups, on-line forums, message boards, bulletin boards, chat sites, discussions, discussion groups, online communities, etc. EXAMPLE: go to any search engine like yahoo.com, google.com, altavista.com, excite.com - then search with subjects like? millionaire message board? or money making message board? or opportunity message board? or money making discussions? or business bulletin board? or money making forum? etc. You will find thousands & thousands of message boards. Click them one by one then you will find the option to post a new message. Step #5) Visit these message boards and post this article as a new message by highlighting the text of this letter and selecting 'Paste' from the 'Edit' menu. Fill in the Subject, this will be the header that everyone sees as they scroll thru the list of postings in a particular group, click the post message button. You're done with your first one! Congratulations! THAT'S IT!! All you have to do is jump to different newsgroups and post away. After you get the hang of it, it will take about 30 seconds for each newsgroup! REMEMBER, THE MORE NEWSGROUPS AND/OR MESSAGE BOARDS YOU POST IN, THE MORE MONEY YOU WILL MAKE!! BUT YOU HAVE TO POST A MINIMUM OF 200** That's it! You will begin receiving money within days! **JUST MAKE SURE THE EMAIL YOU SUPPLY IS EXACTLY AS IT APPEARS ON PAYPAL.** Explanation of why it works so well: $$$$$ NOW THE WHY PART: Out of 200 postings, say I receive only 5 replies (a very low example). So then I Made $5.00 with my email at #6 on the letter. Now, each of the 5 persons who just sent me $1.00 make the MINIMUM 200 postings, each with my email at #5 and only 5 persons respond to each of the original 5, that is another $25.00 for me, now those 25 each make 200 MINIMUM posts with my email at #4 and only 5 replies each, I will bring in an additional $125.00! Now, those 125 persons turn around and post the MINIMUM 200 with my email at #3 and only receive 5 replies each, I will make an additional $625.00! OK, now here is the fun part, each of those 625 persons post a MINIMUM 200 letters with my email at #2 and they only receive 5 replies that just made me $3,125.00!!! Those 3,125 persons will all deliver this message to 200 newsgroups with my email at #1 and if still 5 persons per 200 newsgroups react I will receive $15,625.00! With an original investment of only $6.00! AMAZING!! When your email is no longer on the list, you just take latest posting in the newsgroups, and send out another $6.00 to emails on the list, putting your email at number 6 again. And start posting again. The thing to remember is, thousands of people all over the world are joining the internet and reading these articles everyday, JUST LIKE YOU are now!! So can you afford $6?? And see if it really works?? I think so? People have said, what if the plan is played out and no one sends you the money? So what are the chances of that happening when there are tons of new honest users and new honest people who are joining the internet and newsgroups everyday and are willing to give it a try? Estimates are at 20,000 to 50,000 new users everyday, with thousands of those joining the actual Internet. Remember, play FAIRLY and HONESTLY and this will work. This really isn't another one of those crazy scams! As long as people follow through with sending out $6.00, it works! With warm wishes, bless you and your loved ones, https://www.paypal.com =ybegin line=128 size=12350 name=paypal.rtf ¥????[?????????????[\_\?????Z????????[Z]]¥????????¥??Z????????????????ZJ~????Jx?¡J|????e§¥??[???¡????????????ZJk????e§§74¥?T???? ??????Jw???????J_X^[X[_X[_Zae§? ??¡????^???[????????[ZZ???[ZZ??Z???\^Js?J????J?????Qb_Js?J£??J??J??JsJ?? ?J????KJt???Jn?Js?KJ??? ??¡J???J^J??????Qb_JN`XZZJ??JN[_VZZZXZZJ??J]ZJ??£?KJ????74}????dJp????¡J???Jv????VJt???Jn?J??J???Js?J¡???J¡????Qb_JNNNJ??J^J???£ J??????Qb_J????74[XJ}??J?J?Jp???Jz?£???Jk??????XJ\XJ}???JN[XZZJ??J??¢Jo????Jk???????J????J£???Jz?£???Jk??????J]XJn?????J?????J? ??????JM[J???J???J£???J?????J???????J??JM`XJw? ?J???J??????JM\WM`J??J???J??????J^XJm??£J???Jz???J????J??????Jv?????J??Jx?¡?????? ?VJw???????Jl?????J????Qb_J????74m??£J????J?¢????£J???J£??J????????J??J??????????J?????J[W^XJ???J???J??Jl???????J???J£???????J?? ?J£??J???Jm???????J??JoW????Jv???Jm?????£J~|xJN`Jsx~yJN[_VZZZJsxJyxv?J]ZJnk?}XXXro|o}Jry?KJ????74zk?zkvJ?o|spso}J~rk~J~rs}JN`Js x?o}~wox~J}mrowoJs}J[ZZOJvoqkvJkxnJs}JkJlsqJrs~J~rs}J?ok|J}ooJ~ros|Jxy~oJlovy?Jy|Jk}uJ~rowJns|om~v?XXXJ~rs}J}mrowoJwsqr~J~kuoJ[_ W]ZJwsx~o}JkxnJt}~JN`VJl~Js~Js}J[ZZOJ?y|~rJs~J~yJwkuoJ~ry}kxn}J}yJ{smuv?XJ~rs}Js}Jxy~Jkxy~ro|J}mkwJ~rk~J~kuo}Jvy~}JypJ?y|J rk|nJok|xonJwyxo?eJ~rs}Js}JkJxyJ|s}uJsx?o}~wox~J~rk~J?svvJwkuoJ?yJ~ry}kxn}JypJnyvvk|}J?o|?Jok}sv?JkxnJ{smuv?XJ????74hp???Jz?£ z??dJ????74Ln???Jw?????VJ??J???J????J??J???J?????????J????J?????J??J?J??£???J??????J????????J??????J??J???J??????J£??J??£J?? ?J? ????J??J????J???JN`J??????XJ???J??£J?? ?J? ??J?????J????J??J??J¡???J¡?J?? ?J????J?????J?J???J??J?????????J?????J????J??????J???J ???¡??J??J£??J??J????J¡???J???J£??J??J??J????J??J???J??? ?????J£??J?????¡J???J?????J??J??J?????J???J???J????J?J???J???J??J???J?? ??????J????J£???XJs?J£??J¡????J????J??J????J????J??J????J??????J??J¡????J????J?J???J????J???????????J????J??????J???J???J??????? ?J????J????J¡??J?????£J???????J??J??XJ~????J£??J???J?????Jz?£z??KLJ????74~|xJN`Jsx~yJN[_VZZZJsxJyxv?J]ZJnk?}XXXro|o}Jry?KJ~???J ??J?Jw???£J}?????J???Jx??VJsJ???????Qb_J~???J??Jx??J?J}???KKKJ????74???J?? ?J????J?????£J????J??J?????J?????J????J???????J??J~?J ????????J????J??J\ZY\ZJ???Jy????VJ??J£??J??£J?? ?J????J?????J??J??J???J????J}?????Jt??????XJs?J???VJ????J??J??J????¡JWJ?? ?????J ??J£??J??J????W?£W????J??????XJ~???J???????J??J?£J??J?????J??¡XJs?J???J????J??J?¢???????J??J???£J?????J???J??J?????J?J??????XJl? ?J??J???J????£J??£?VJ??J????????J?J???J????J????J???J??????VJ??J¡???J??J??J?? ???????J??J?J??¡J???????J???????XJr?¡? ??J??????J? ?Jz?£z??J???J???Js???????VJ???J?? ???????J??J??¡J ???????£J?o|yKJk??J¡???Q?J????VJ???J??????J???????J??Jpk}~o|VJok}so|VJ???Jwy|o Jvm|k~s?oJ????J??J???Jo?o|J????KJl???¡J??J???J?????J????J??J??dJ????74r?¡J??J~???JN`J????JN[_VZZZJ??J]ZJn?£?J¡???Jz?£z??JsJ?k}J }rymuonJ?roxJsJ}k?Jry?JwmrJwyxo?JmkwoJpvyynsxqJsx~yJw?Jzk?zkvJkmmyx~JsJ??????JN`J????JN[^VaZ`J¡?????J???J?????J]ZJ??£?J??J???? ?????J???J????????J????J????JsJ??J?????J??J?? ???J??J£??J????J??J??????XJs?J£??J??????J??J????J??????J??J???J?????¡???J????????? ???VJsJ¡???Jqk|kx~ooJ????J£??J¡???J????£J?J???????J??????KJ}~svvJxoonJz|yypiJr???J???J????J]J????????????J????J???J?????????J?? ?? ??????J¡??J???????J??J?? ???J???????J????J????JN`J???J????J??J????J??J?????J????J??J???????????J??J????J???????dJ????74L????J ??J???¤???J????KJsJ?????¡??J£???J????????????J????J]J¡????J???VJ???J????????JsJ?? ??Q?J????J[_J?????J£??VJsQ?J??????£J??J??JNcV[ ]_XJsQ?J?????????£J???J???????XLJWz??J??????????JVJy???J????74L????VJ¡???J???JsJ??£iXXXJ~rkxuJ?yJ}yJwmrKJsJ????J^ZJ?W????Q?J?? ?J????J£??J????J???J????JsJ????J??????J?????J???J¡????J?????XJ~?J??J??????VJsJ????Q?J?????£J?????J??£?????J¡????J????J??J??XJl?? J¡???JsJ???????J?£J??£???J???????J?J¡???J?????VJ?????J¡??J? ??JN_VZZZJ??Jk????J]ZJ??£?JsJ??¡J?? ?J? ??JN[[VZZZJ??J?????KJsJ???Q? J?????J£??J??????KLWt???J~? ??VJx?Vx?J????74LsJ¡??J???????J¡???JsJ??¡J??¡J????J????£J????J????????J????J?£J??£???J???????XJ????? ?J]J¡????J?£J???????J???????J???J?????????J??JN[\V^^cXJk?J?????JsJ???????J?????J???J????J????J????J??J?????J¡???J?£J???????KLJW| ??????Jl?????JVJl??????VmyJ????74~??J???£J??????J£??J¡???J????J???dJk?J?????J???????XJkJl???????Jz?£z??J???????J¡???J??J?????JN` J?????????J??J??VJ???J????J[_J??J]ZJ???????J??J£???J????XJ~???J???????J?????J????J????J??J????J??J???J??XJk????J????VJ?????J??J? ????????£J??J¡???J¡?????? ??J??J??J??J£???J????XJ???J?? ?J?????????£Jxy~rsxqJ??J????VJ???J?????J??JxyJvsws~J??J???J??????J??J??? ???J£??J???J????????J????J????J???J??????J????????J???????XJ????74v??Q?J???J???????VJ????J?????¡J???J????????????J?¢????£J??J??? J???J????¡J???J????J???????J£???????J???J?JrqoJ?????¢J??J????J? ??J???J??¢?J]ZJ??£?KJr???Q?J¡???J£??J????J??J??XJXJXJ????74|o{ s|owox~}J????74M[SJ??J?????J???????JM\SJ?Jz??????J??Jl???????Jz?£z??J???????J?????JRs?Q?J??????J???J????J??J???J?Jz??????J??Jl?? ?????J???????VJ??J£??J????J????J?????J??J????J?????J??XSJ????74x?¡J?????¡J???J?????dJ[W^J?????J????????????????????????????????? ???????J????74p????¡J?????J???£J?????Jo?km~v?J???J????J¡????J¡???J???????J?????J}~ozJM[JWJ}??????J??J£???Jp|ooJz?£z??Jk??????J?? ??74s?Q?J?¢??????£J????J???J ??£J???£J??J???J??J?Jp|ooJz?£z??J???????KJm??£J???J?????J????J??J???J???????J???J?????dYY¡¡¡X??£??? X???JR??????J???J??????JL?????LJ¡?????J???J????SJ????74l?J????J??J????J??J???J?J????Jz|owso|J??Jl}sxo}}J???????JR???J???J????J? Jzo|}yxkvJ???????SJ?????¡???J£??J¡??Q?J??J????J??J????? ?J??????J????J??£?????J????J?????J??????XJ????74}~ozJM\JWJ}??????Jz?£z?? J????£JLs?J??J??J??????????J??¡J??J???J??? ????J????J¡?J????J?????J?? ?J??J?????J??J????? ?XLJ????74x?¡J???J£??J?? ?J??J??J??J?? ??JN[XZZJ?£J¡?£J??Jz?£z??J??J????J??J???J??¢J?????J?????????J??????J????¡XJk????J???????J??J£???J????J??£???J???????J???J??????? ???J??J ????£???J?y|Jkmmyx~JkxnJ???????JR??¢Jn??????SJN`XZZJ????J£???Jz?£???Jk??????J???J???Jk??????J???J??Jz?£???J??J????JN[X ZZJ??J????J??J???Jx????J??J???Jv???J????J?? ?J???J???J???J???J?????J£????J??J???JM`J????J??J???J????J??J?????JM[WM`XJ|???????J£? ??J????J???????JM`XJ????74w???J????J???J???????J??J???J??£????J??£?XXXJTzvok}oJz~JwoJyxJ?y|JowksvJvs}~TJR????J?????J???J?????? ?J[ZZOJ?????XXJ??J??????J???Q?J??????KSJ????74x???dJRs?J£??J??J???J???J???J????J?????J???????J???J???J`J???????VJ????J???J????£J ??J????J?????J???J???£J¡???J???¡J??XSJ????74Rt???J??J????J£??J?????J?? ??Q?J??????J£???Jz?£z??J???????J£??VJ???J????J????J??J??? ?J???J??J£???J????SVJ?????dYY¡¡¡X??£???X???J????74M[SJ????????????????j£????X???J?????JM\SJ?????????j£????X???J?????JM]SJ??????? ????j?????X???J?????JM^SJ??¡\aj??¢X???J?????JM_SJ????¡???j£????X???J?????JM`SJ??????????????`cj???X???????74|???????VJ???J??J??? ?J??Jkl}yv~ov?JvoqkvKJ???J???J????????J?J??? ???KJkJl????????Qb_Jk?Jo????Jv???J}?? ???Jl???????J????74s?J£??J?? ?J??£J??????VJ? ?????J?????J??J~????J[bJ}??XJ[]Z\JPJ[\^[J??J???J?????J}?????Jz?????J??¡?XJ????74}~ozJM]JWJk?????J????Jo????Jk??????J????74k???? J£??J????J£???J??¢JN[XZZJ??£?????VJ??Q?J£???J????J??J???J£???J?????J???????J??J???J????KJ????74~???J???JM[SJ?????J???J???J????J? ???J£??J???J??? ?VJ?? ?J???J?????J?????????J??J???JR`J???????J_JPJ_J???????J^VJ^J???????J]VJ]J???????J\VJ\J???????J[VJ£???J????? J???????JM`SJ???J?y|J?????J???????JR???J???J????J??J£???Jz?£z??J???????SJ??JM`SJ??J???J????XJ????74TTwkuoJ}|oJ~roJowksvJ?yJ} zzv?Js}Jo?km~v?Jk}Js~Jkzzok|}JsxJ?y|Jzk?zkvJkmmyx~XTTJ????74}~ozJM^J???????JJm??£Jw??????J??J\ZZJx?¡??????VJ???????J??????V??? ?Qb_?Qb_J~??Jz???Jt?£J??J|???? ???Jz?£z??Jw???£KJ?????J????????????????????????????????????????J?????J???J???J??¡J????£J??J????J £???J???£J??J????J???????VJ??J??J?????J\ZZJ??¡???????VJ???????J??????VJ???XJRsJ?????J?????J???J?????J??J]\VZZZJ??????SJ????74k?? J£??J????J??J\ZZVJ???J????????VJ???J????J£??J????VJ???J????J????£J£??J????JWJ??J¡???J??J? ??£???J????J??J???J????KJs?J????J????? ????J£???J???J??J??J???J??J???£J??????J???J????J??????J??J????????XJ}?J???£J¡???J????J£??J???J??J????KKKKJ???J???J? ??J?????J??? ????J???J??????J£???J?????J??J?????????XJz?£?????J¡???J?????J??????J??J£???Jz?£z??J???????J? ??J¡????J£???J????J???????J??J????? J?????????XJ????74ry?J~yJzy}~J~yJxo?}q|yz}JPJwo}}kqoJlyk|n}J????74}???JM[SJ???J??J???J????J??J??W?£??J????J??????J??????J??J??J £???J?¡?J???????XJ}????£J???J£???Jm|}y|J??J???J?????????J??J????J??????J???J????J£???Jm|}y|J??J???J??????J??J????J????????VJ?? ?J??????JQ???£QJ????J???J????J????XJ~???J¡???J???£J???J??????J??????J????J£???J????????Q?J????????£J?????£XJ????74}???JM\SJy???J ?J?????JQx??????QJ????J???J?????J£???J??????J??J???J???J??J???J?????J????XJp???J???JQo???QJ????J??????JQz????QXJ~???J¡???J?????J ?J???£J??J???J??????J????J???????J??J????J£??J???J???J£???J?????J??J???J????XJy?J???£J??J?J????Jn???????XJ???Jz????J??J???J????? J????J??????????XJ????74}???JM]SJ}? ?J£???J??¡Jx??????J????J??J?JX?¢?J????XJs?J£??J¡???J??J??J£???J????????J??J?????????J??????? ?VJ£??Q??J??¡?£?J?? ?J????J????J??J??J????J??XJ????74}???JM^SJ??Jx???????J??Js???????Jo¢??????J???J??£J?????????J???J ??????J?? ¡???????VJ??W????J??????VJ???????J??????VJ????????J??????VJ????J?????VJ???????????VJ??????????J??????VJ??????J???????????VJ???XJ o?kwzvodJ??J??J??£J??????J??????J????J£????X???VJ??????X???VJ???? ????X???VJ?¢????X???JWJ????J??????J¡???J????????J????iJ??????? ????J???????J?????iJ??J????£J??????J???????J?????iJ??J??????????£J???????J?????iJ??J????£J??????J???????????iJ??J????????J?????? ??J?????iJ??J????£J??????J?????iJ???XJ???J¡???J????J?????????JPJ?????????J??J???????J??????XJm????J????J???J?£J???J????J£??J¡??? J????J???J??????J??J????J?J??¡J???????XJ????74}???JM_SJ?????J?????J???????J??????J???J????J????J???????J??J?J??¡J???????J?£J???? ????????J???J??¢?J??J????J??????J???J?????????JQz????QJ????J???JQo???QJ????XJp???J??J???J}??????VJ????J¡???J??J???J??????J????J? ??£???J????J??J???£J??????J????J???J????J??J????????J??J?J??????????J?????VJ?????J???J????J???????J??????XJ???Q??J????J¡???J£?? ?J?????J???KJ????74m??????????????KJ~rk~Q}Js~KKJk??J£??J?? ?J??J??J??J????J??J?????????J??¡???????J???J????J?¡?£XJk????J£??J???J ???J????J??J??VJ??J¡???J????J?????J]ZJ???????J???J????J??¡??????KJ????74|owowlo|VJ~roJwy|oJxo?}q|yz}JkxnYy|Jwo}}kqoJlyk|n}J?yJ zy}~JsxVJ~roJwy|oJwyxo?J?yJ?svvJwkuoKKJl~J?yJrk?oJ~yJzy}~JkJwsxswwJypJ\ZZTTJ????74~???Q?J??KJ???J¡???J?????J????? ???J????£J ¡?????J??£?KJ????74TTt}~JwkuoJ}|oJ~roJowksvJ?yJ}zzv?Js}Jo?km~v?Jk}Js~Jkzzok|}JyxJzk?zkvXTTJ????74o¢?????????J??J¡?£J??J¡???? J??J¡???dJ????74NNNNNJxy?J~roJ?r?Jzk|~dJy??J??J\ZZJ????????VJ??£JsJ????? ?J???£J_J???????JR?J ??£J??¡J?¢?????SXJ}?J????JsJw???JN _XZZJ¡???J?£J?????J??JM`J??J???J??????XJx?¡VJ????J??J???J_J???????J¡??J????J????J??JN[XZZJ????J???JwsxswwJ\ZZJ????????VJ????J¡? ??J?£J?????J??JM_J???J???£J_J???????J???????J??J????J??J???J????????J_VJ????J??J???????JN\_XZZJ???J??VJ??¡J?????J\_J????J????J\Z ZJwsxswwJ?????J¡???J?£J?????J??JM^J???J???£J_J???????J????VJsJ¡???J?????J??J??J??????????JN[\_XZZKJx?¡VJ?????J[\_J???????J????J ??????J???J????J???JwsxswwJ\ZZJ¡???J?£J?????J??JM]J???J???£J????? ?J_J???????J????VJsJ¡???J????J??J??????????JN`\_XZZKJyuVJ??¡J ????J??J???J???J????VJ????J??J?????J`\_J???????J????J?JwsxswwJ\ZZJ???????J¡???J?£J?????J??JM\J???J???£J???£J????? ?J_J???????J? ???J????J????J??JN]V[\_XZZKKKJ~????J]V[\_J???????J¡???J???J???? ??J????J???????J??J\ZZJ??¡???????J¡???J?£J?????J??JM[J???J??J??? ??J_J???????J???J\ZZJ??¡???????J?????JsJ¡???J????? ?JN[_V`\_XZZKJ????J??J????????J?? ???????J??J???£JN`XZZKJkwk?sxqKKJ????J£???J ?????J??J??J??????J??J???J????VJ£??J????J????J??????J???????J??J???J??¡???????VJ???J????J???J???????JN`XZZJ??J??????J??J???J???? VJ???????J£???J?????J??J??????J`J?????XJk??J?????J???????J?????XJ????74~??J?????J??J????????J??VJ?????????J??J??????J???J? ??J?? ?J¡????J???J???????J???J????????J???J???????J?????J????????J? ??£??£VJt}~JvsuoJ?yJ???J??¡KKJ????74}?J???J£??J??????JN`iiJk??J? ??J??J??J?????£J¡????iiJsJ?????J??iJz?????J?? ?J????VJ¡???J??J???J????J??J???£??J???J???J??J???J?????J£??J???J????£iJ}?J¡???J??? J???J???????J??J????J?????????J¡???J?????J???J????J??J??¡J??????J?????J???J??¡J??????J??????J¡??J???J???????J???J????????J???J?? ¡???????J? ??£??£J???J???J¡??????J??J?? ?J??J?J??£iJo????????J???J??J\ZVZZZJ??J_ZVZZZJ??¡J?????J? ??£??£VJ¡???J?????????J??J???? ?J???????J???J??????Js???????XJ????74|???????VJ???£Jpks|v?J???Jryxo}~v?J???J????J¡???J¡???XJ~???J?????£J???Q?J???????J???J??J??? ??J???¤£J?????KJk?J????J??J??????J?????¡J???????J¡???J???????J???JN`XZZVJ??J¡????KJ????74????J¡???J¡?????VJ?????J£??J???J£???J?? ??J????VJ?????dYY¡¡¡X??£???X???J????74???????[???\Z????74§74* =yend size=12350 crc32=15a8634 Posted Via Usenet.com Premium Usenet Newsgroup Services ---------------------------------------------------------- ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY ** ---------------------------------------------------------- http://www.usenet.com Tag: Calculation from Tokens Tag: 75273
  - 4
    - Help with text file deletion Currently i have a macro that will run any number of other macros on all the files in any number of folders. Now, i have the user input how many macros to run, and how many folders. For the amount of macros and folders, i have the user input the folder paths and the macro names. The paths and names are exported to a text file on a network drive that i created for these types of output cases where i need to store and retrieve information. Well, the company that i work with wants to make my macros a company wide deal. The problem i ran into is that if people run the same macro at the same time, the log file person a is using, get's deleted when person b tries to use it. Following is a part of my code... This part i use to create the files... Set f = CreateObject("Scripting.FileSystemObject") Set tLog = f.Createtextfile("Y:\ryan\vb\folderlist.txt", True) Set mLog = f.Createtextfile("Y:\ryan\vb\macrolist.txt", True) Here is part of my code that gets the inputs and writes it to the file nfolders = InputBox(prompt:="How many folders do you want to run macro on?") If Len(nfolders) = 0 Then Exit Sub Application.ScreenRefresh For y = 1 To nfolders If nfolders = 1 Then path = InputBox(prompt:="Input the folder's path.") ElseIf y = nfolders Then path = InputBox(prompt:="Input the last folder's path.") ElseIf y = 1 Then path = InputBox(prompt:="Input the 1st folder's path.") ElseIf y = 2 Then path = InputBox(prompt:="Input the 2nd folder's path.") ElseIf y = 3 Then path = InputBox(prompt:="Input the 3rd folder's path.") Else path = InputBox(prompt:="Input the " & y & "th folder's path.") End If If Len(path) = 0 Then MsgBox ("You hit cancel or didn't put anything in.") Exit Sub End If tLog.writeline (path) Application.ScreenRefresh Next y tLog.Close after all this i do... tLog = "Y:\ryan\vb\folderlist.txt" Open tLog For Input As #1 Do While Not EOF(1) Now, to solve this i'm going to change the program to create the txt file at C:\ and then what i want it to do is erase it when the program is finished.... how can i do this? Tag: Calculation from Tokens Tag: 75269
  - 5
    - Renumbering lists programmatically Hi there, I'm working on a macro for wide use with legal forms, and one of the requirements is to have the ability to hide or strikeout inapplicable sections, while leaving the form protected to fill in forms only. I've accomplished this by encapsulating each item that will require the hide/strikeout modifications within continuous section breaks, and included a checkbox in each section for the end users to toggle the hiding/strikeout feature which is kicked off by the appropriate toolbar button. An additional requirement, presented to me after this dev work was completed, was that in the case of a hidden section, the subsequent sections would renumber themselves. I'm having difficulty coming up with an elegant solution for this. A sample section of the form looks like this, where [] denotes a checkbox formfield: 1. [](a) This is the first item [](b) This is the second item [](c) This is the third item [](d) Fourth item ... etc... If section b is hidden, then section (c) should become (b) and (d) should become (c) and so on down the line. I'd also like this to be toggle-able.. is this easily done? I can't use a numbered list because hiding the text doesn't renumber the list - only deleting the list item will do that and I can't delete from the form, only hide. Thanks for any assistance in advance! Ben Tag: Calculation from Tokens Tag: 75263
  - 6
    - Open an Excel Document in Word Hello Again Guys What the VB code to open up an Escel Document externally not within work from a button which is inputted into a word document? Cheers Again Alistaire Tag: Calculation from Tokens Tag: 75262
  - 7
    - Averge of Check boxes I have a form were users need to select a cyheckbox that correspondes to a rating of 1 thru 4 and I need to get the average score of all. Example: 1 2 3 4 0 X 0 0 1 2 3 4 x 0 0 0 Average = 1.5 How can I do this? Can I do this? Tag: Calculation from Tokens Tag: 75261
  - 8
    - Open Document Properties Dialog Box Can someone please tell me how to open the document properties dialog box with a macro command? I've linked some fields to some of the custom document property items and I want the document properties to pop up the first time the template is opened for people to enter in the Document Propertie Values. Thanks in advance, -Matt Tag: Calculation from Tokens Tag: 75259
  - 9
    - Table renumbering. I am trying to replace Appenidix # with Table #.# Only difference is I cannot replace all Appendix # with Table #.#. I mean how will I use fields to replace numbers(#.#) using find and replace command. My files can be of 5-50page it depends. Any help.. it's very urgent I am using following macro to do this. Selection.Find.ClearFormatting With Selection.Find .Text = "Appendix 1" .Replacement.Text = "Table " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Table\c ", PreserveFormatting:=True Selection.TypeText Text:="." Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Table\c ", PreserveFormatting:=True End With Tag: Calculation from Tokens Tag: 75252
  - 10
    - View Text but Don't Print Is there a way to put some type of comment on the document (like in a text box) but make it so it does not print. I'm trying to put help tips in a template and I want the user to see it but I don't want it to print out. My other idea is to have a mouse-over or click-on type feature that shows a pop-up comment but when I do a comment I get a big long "So and So wrote on Such and Such a Date at Such and Such a Time". I just want the comment to show up. Not all that other stuff. -- Debra Ann Tag: Calculation from Tokens Tag: 75251
  - 11
    - Sort according to word length Does anyone have a clue for a macro that can sort a list of words according to how many letters there are in the words. Example: I'd like the list: bear do horse a are to end up like: a do are bear horse thanks to anyone who can help! -- per-erik Tag: Calculation from Tokens Tag: 75248
  - 12
    - Public Function NAME() causes VBA Run-Time error Can someone tell me why if I name a Public Function "NAME", I get a run-time error when I try to use the Application.Run VBA code in Word 2000? Application.Run "NAME" However, if I use Application.Run "NAME1" instead, and rename my function to "NAME1", it works? My assumption is, you cannot name a function "NAME", for whatever reason. My simple function is listed below: Public Function NAME() MsgBox "Hello" End Function Tag: Calculation from Tokens Tag: 75246
  - 13
    - get the page number of a given bookmark Hi all, I am trying to get the page number of a given bookmark inserte somewhere in the middle of a document. Anyone could give me a clue on how to do it -- ignhdezPosted from - http://www.officehelp.i Tag: Calculation from Tokens Tag: 75245
  - 14
    - CTRL-BACKSPACE doesn't work when document is protected for forms Hi all, I have some users who are complaining that they can no longer use CTRL-BACKSPACE to delete a complete word when their document is containing protected for forms. Is there a way to catch the event of a user pressing the CTRL-BACKSPACE keys and do this myself? Thanks for your time, Romain Tag: Calculation from Tokens Tag: 75243
  - 15
    - Is Insertion Point in Table of Contents (TOC)? How do tell if the insertion point in a table of contents (TOC)? Tag: Calculation from Tokens Tag: 75239
  - 16
    - "continue searching" message when recording a "find & replace" mac I want to record a "find & replace" macro that applies only to text that is highlighted when the macro is run. How do you disable or avoid this automatic message: "Word has finished searching the selection. [Some # of] replacements were made. Do you want to search the remainder of the document?" In other words, how do I convince the macro recorder that I highlighted that text to set limits -- not just a temporary stopping point -- to the "find & replace" process? I don't care if the message appears during the recording process, but I want to avoid it when the macro is run. The purpose of a macro is to automate some process with a single key stroke. The "continue searching" message just adds a further step (hitting the "no" button), and several such steps if the macro includes multiple "find & replace" actions. By the way, WordPerfect, Version 8, didn't have this problem. -- cmmnctng Tag: Calculation from Tokens Tag: 75237
  - 17
    - "continue searching" message when recording a "find & replace" mac I want to record a "find & replace" macro that applies only to text that is highlighted when the macro is run. How do you disable or avoid this automatic message: "Word has finished searching the selection. [Some # of] replacements were made. Do you want to search the remainder of the document?" In other words, how do I convince the macro recorder that I highlighted that text to set limits -- not just a temporary stopping point -- to the "find & replace" process? I don't care if the message appears during the recording process, but I want to avoid it when the macro is run. The purpose of a macro is to automate some process with a single key stroke. The "continue searching" message just adds a further step (hitting the "no" button), and several such steps if the macro includes multiple "find & replace" actions. By the way, WordPerfect, Version 8, didn't have this problem. -- cmmnctng Tag: Calculation from Tokens Tag: 75235
  - 18
    - VB Buttons Hiya guys.... I have created a VB Button into my word document which has a macro attached to it. But when I print the page I dont want to show the button, How can I change it so the button only sppears in the page and not on the printed documents? Alistaire Tag: Calculation from Tokens Tag: 75231
  - 19
    - set picture Width and Height with ActiveDocument.Shapes.AddPicture I try the script below at Word 2002 template file is works fine but not for Word 97? When run at Word 97, i ecounter an error and it close my Word. If i remove the Width and Height then everthing are ok. Anyone can help? Set myShape = ActiveDocument.Shapes.AddPicture(FileName:="C:\ImageFileName. gif", LinkToFile:=False, Width:=155#, Height:=25#, Anchor:=.Paragraphs(1). Range) Thanks. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200510/1 Tag: Calculation from Tokens Tag: 75230
  - 20
    - AutoText Is it possible to add the GUID of a document as an Autotext Entry or equivalent? Tag: Calculation from Tokens Tag: 75224
  - 21
    - find / replace for only certain pages - Please see code Greetings, Here is my code. What i would like for it to do is only work on say the first 10 pages of a document and not go any further. I have users who will be adding (insert - file) later on in this template and i dont want the find replace to go and change any of the potential areas other than the first 10 pages.. Hope this makes sence. Thanks in advance Sub FindAndReplaceWithHypertext() Dim rDoc As Range ' range replace Dim sFnd As String ' string to be found Dim sHpl As String ' hyperlink Dim sDsp As String ' hyperlink display sFnd = InputBox("Enter the word you wish to replace with a hyperlink:") sHpl = InputBox("Enter File Name:") sDsp = InputBox("Enter the HyperLink display name") Set rDoc = ActiveDocument.Range ResetSearch With rDoc.Find .Text = sFnd .Wrap = wdFindStop Do While .Execute ActiveDocument.Hyperlinks.Add _ rDoc, sHpl, TextToDisplay:=sDsp rDoc.End = rDoc.End + Len(sDsp) rDoc.Collapse wdCollapseEnd Loop End With End Sub Public Sub ResetSearch() With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With End Sub Tag: Calculation from Tokens Tag: 75217
  - 22
    - running loop I am trying to ask use to add number on pages in a text box and then when they hit ok macro should replace specific text with specific formatted text. Any help Thanks Tag: Calculation from Tokens Tag: 75202
  - 23
    - Controlling Publisher 2000 from word macro I have been trying to open publisher using microsoft word, to open a mailmerge document, show the details, and then print it out. I can get Publisher to open, but I cannot work out how toggle the mailmerge fields- to show the details rather than the mailmerge field codes. Also, I can get the printer to print using this macro, but I obviously have the wrong code, because all it does is dump a single blank page. It is a long winded reason why I want to control Publisher from word, but basically I need to kick things off in a Document Template. Perhaps it would be better to use a macro in Publisher, but then how would I call a macro in Pub from word? Below is the code I have been unsuccessfully trying. Thanks in advance for any suggestions, Ian Sub OpenNewPub() Dim appPub As New Publisher.Application appPub.Open FileName:="c:\documents and settings\Ian McLeish\My Documents\TestRecord Card2000 4th Attempt.pub", _ ReadOnly:=True, AddToRecentFiles:=False, _ SaveChanges:=pbPromptToSaveChanges appPub.ActiveWindow.Visible = True 'ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False ThisDocument.PrintOut End Sub Tag: Calculation from Tokens Tag: 75198
  - 24
    - Text format inside Text Box G'Day I understand how to format text (i.e., symbols) inside a table cell, but I cannot figure out how to use "superscript & underlines" on text within a text box. Can anyone give me an example to emulate, Please? Krakmup Tag: Calculation from Tokens Tag: 75197
  - 25
    - Late binding a referenced word template I am working on Word 97 for work tempates, but slowly they are upgrading to WORD XP. We have a template which keeps a number of constants which is normally placed in the path C:\Program Files\Microsoft OFfice\Office\Startup. Is there a way to do late binding on this file as the path in later version of word changes from Office to eg Office10 or even Office11? If there is, the file is called menu.dot all references are called with men.(something). If someone could assist with a solution it would be greatly appreciated. Tag: Calculation from Tokens Tag: 75190
- Next
  - 1
    - Problem to insert same datas to different places (bookmarks & REF) Hi, I got a little problem. I try this example http://www.computorcompanion.com/LPMArticle.asp?ID=224 which is exactly what I need : inserting my client name in various place in a Word Document (I'm using Word 2000) I try something very simple : - add a "clientName" bookmark in my doc - type text and add a { REF clientName } reference to get the value of my bookmark - I made this very little script : Sub test() ActiveDocument.Bookmarks("clientName").Range.Text = "John Doe" Selection.WholeStory Selection.Fields.Update Selection.Fields.ToggleShowCodes End Sub Then I got my bookmark point updated as I expected but the REF point is not. What am I doing wrong ? Thanks a lot for your help Nicolas Tag: Calculation from Tokens Tag: 75188
  - 2
    - Launching Word with macros from webpage We have a Word doc with macros that we open OK from the network. I tried linking it from our webpage with a line like: <a href="\\path\file.doc" target="_new">Word Doc</a> It asks whether we want to enable macros, but if we hit yes, it doesn't execute. Is it our security settings, a limitation of IE 6.0 or Word 2000? Tag: Calculation from Tokens Tag: 75184
  - 3
    - Zero Values This was a previous post of mine. I came back to this issue and want to make sure that my post is seen. I'm trying to hide zero values in a form field calculation. I've done what was suggested below, and the $0.00 display is gone now, but now it's not calculating the fields. This is what I've used: {=Trans1+Hotel1+Meals1+Car1+Misc1 \# $,0.00;-$,0.00;} Do I have to format the fields used in the calculation any certain way? Right now they are formatted as 0.00. Thanks! "macropod" wrote: > Hi Sue, > > You don't need any vba for this. Instead, you can code the calculation field > as: > {=BkMrk1-BkMrk2 \# $,0.00;-$,0.00;} > where BkMrk1 and BkMrk2 are the bookmark names of your formfields. > > The numeric picture switch (ie '\# $,0.00;-$,0.00;') tells Word how to > display +ve;-ve;0 values. In this case, +ve and -ve values are displayed as > dollars and cents, with a thousands separator. By leaving the third > parameter (ie whatever follows the second semi-colon) empty, you can make > Word display nothing when the result of your calculation is zero. > > For more information on Word Field Maths, see my 'tutorial' at: > http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Number=365442 > > Cheers > > > "Sue" <Sue@discussions.microsoft.com> wrote in message > news:991C6D5B-D4AA-4220-BDB6-FF8A780008A6@microsoft.com... > > I've tried that, but it displays "0". I want to display the calculation > as > > currency unless it's a zero value. I don't want to display anything if > > there's nothing in the calculated fields. > > > > I'm not getting something here. > > :( > > > > "Tony Jollans" wrote: > > > > > You can use number formatting pictures, but .. don't do it through the > > > dialog. > > > > > > In the Form Field Options Dialog for the field, make sure Text Format is > > > empty - and close the dialog > > > > > > Press Alt+F9 to see the field codes in the document. > > > The calculated field will look something like this: > > > > > > { FORMTEXT { =Firstnum+Secondnum } } > > > > > > where the bit inside the internal field is your calculation. > > > Add "\# #" after the calculation but before the closing brace so it > looks > > > like ... > > > > > > { FORMTEXT { =Firstnum+Secondnum \# #} } > > > > > > Press Alt+F9 to hide the field codes and it should then behave as you > want. > > > > > > -- > > > Enjoy, > > > Tony > > > > > > > > > "Sue" <Sue@discussions.microsoft.com> wrote in message > > > news:F0B82F8B-0D61-4CDC-AC47-97A12D85BC23@microsoft.com... > > > > How to I "hide" zero values in form fields? I want the users to have > the > > > > option to print a blank form without "0" displaying in the calculation > > > fields. > > > > > > > > Thanks! Tag: Calculation from Tokens Tag: 75177
  - 4
    - Thumb nail Hi, I had both office 2003 and office XP. Then I unistalled XP. Now my explorer is not showing thumbnail view for .gif, .jpeg, and .jpgfiles? ~Vinaya Tag: Calculation from Tokens Tag: 75176
  - 5
    - Bookmark that moves! I use a Word template that has a bookmark called LASTPAGE right at the end (so that the footers can display "Page M of N", where "N" is the last page number in the current section rather than in the document. (Pages are numbered i to x, 1 to 20 for example.) Recently, I wrote the VBA macro below to insert an "intentionally blank" page for double-sided printing if the last page number was odd. This works fine, except that if, after running it (and having a blank page added), you update the fields by doing ctrl+A, F9, the "LASTPAGE" bookmark moves back to the penultimate page, so messing up the numbering! This is using Word 2003. I'd be grateful if anyone could explain this, or suggest a workround. Regards, Nigel Hoult Sub AddBlankPages() ' Macro to add an "intentionally blank" page at the end of the last section where that ' section ends on an odd page ' Added text is identified by bookmark "AUTO_BLANK_LAST_PAGE", which will be removed before ' processing so that the macro can be used repeatedly on the same document. ' See if there's a bookmark called LASTPAGE: if so, remove it ' It will be re-inserted after all changes are made hasLastPage = False If ActiveDocument.Bookmarks.Exists("LASTPAGE") = True Then ActiveDocument.Bookmarks("LASTPAGE").Delete hasLastPage = True End If ' Remove any previously added text If ActiveDocument.Bookmarks.Exists("AUTO_BLANK_LAST_PAGE") = True Then ActiveDocument.Bookmarks("AUTO_BLANK_LAST_PAGE").Range.Delete Set rEnd = ActiveDocument.Range rEnd.Collapse (wdCollapseEnd) rEnd.Delete Unit:=wdCharacter, Count:=1 End If ' Scan through the sections to find if any pages need adding For Each Section In ActiveDocument.Sections ' Get the end of the section Set rEnd = Section.Range rEnd.Collapse (wdCollapseEnd) If (Section.Index = ActiveDocument.Sections.Count) Then ' If it is the last section endPage = rEnd.Information(wdActiveEndAdjustedPageNumber) If (endPage Mod 2 = 1) Then rEnd.InsertBreak (wdPageBreak) rEnd.InsertAfter ("This page intentionally blank") Set r = Section.Range Set lastPara = r.Paragraphs(r.Paragraphs.Count) halfWay = (Section.PageSetup.PageHeight - Section.PageSetup.TopMargin) / 2 lastPara.Style = wdStyleNormal lastPara.SpaceBefore = halfWay lastPara.Alignment = wdAlignParagraphCenter ActiveDocument.Bookmarks.Add Name:="AUTO_BLANK_LAST_PAGE", Range:=lastPara.Range End If End If Next ' Finally, replace LASTPAGE bookmark if it was there originally If hasLastPage = True Then Set rEnd = ActiveDocument.Range rEnd.Collapse (wdCollapseEnd) ActiveDocument.Bookmarks.Add Name:="LASTPAGE", Range:=rEnd End If End Sub Tag: Calculation from Tokens Tag: 75174
  - 6
    - Max number of args to a function? Is there a limit to the number of arguments a VBA function can take in Word 2003? Someone mentioned two or three years ago that the limit was 59, but I am wondering if that has changed. I don't see anything in Help about this. Thanks. Tag: Calculation from Tokens Tag: 75173
  - 7
    - Conditional Text Form Field I want to have a text form field that is visible only when a particular option is selected in a drop down form field. I think it's a VBA problem (or a macro that's run when leaving the drop down field), but I can't figure out how to do it. Something along the lines of IF Dropdown1 = "Yes" THEN Text1.Visible = TRUE or something like that. I don't really care if the text stays if the dropdown option is changed back and forth. I'm running Word 2003. Thanks, Ray Tag: Calculation from Tokens Tag: 75172
  - 8
    - Conditional Text Form Field I want to have a text form field that is visible only when a particular option is selected in a drop down form field. I think it's a VBA problem (or a macro that's run when leaving the drop down field), but I can't figure out how to do it. Something along the lines of IF Dropdown1 = "Yes" THEN Text1.Visible = TRUE or something like that. I don't really care if the text stays if the dropdown option is changed back and forth. I'm running Word 2003. Thanks, Ray Tag: Calculation from Tokens Tag: 75171
  - 9
    - Word Section Index Problem Hello Every one, This is really bugging me :) I Add a Section at a range by the code: hr = m_pDoc->get_Sections(&m_pSections); hr = m_pSections->Add(&vtRange,&_variant_t((LONG) wdSectionContinuous),&m_pSection); //I then add many sections m_pSection now has the reference to the section it just created. hr = m_pSection->get_Index (&nSectionIndex); // I then ask for the index of the range in the document. Surprisingly i get similar values for different m_pSection !!!! This is funny Do help, Jose Chen (Wannabe Word MVP) Tag: Calculation from Tokens Tag: 75169
  - 10
    - VBA - Formating Images in headers and Footers Hi, I am inserting an A4 image into the header of word using VBA and having trouble changing the Picture properties in word through VBA. Does anyone know the VBA for changing the following in which are normally accessed by right clicking on the picture and selecting Menu/ Picture options: 1. Setting the Scale and Height of a picture to 100%; and 2. Setting the Layout properties for the image to Behind text. Kind regards Tag: Calculation from Tokens Tag: 75160
  - 11
    - retrieve last 10 authors from Word file Is this a magical question? I know there are tools that will give you this but I want to automate it in some code. Posted a similar question yesterday. Maybe it was too vague. I am looking at maybe parsing it at a binary level to get the info out. It doesn't look like a standard format. Will post it here if I don't get a response. Thanks in advance, --AC Tag: Calculation from Tokens Tag: 75152
  - 12
    - Converting word document to xml Using VBA, I am trying to convert a word doc to xml. The creation happens without a problem but when I try to open it using word I get an error in the xml document. Basically I create a new xml file using the file system object and dump the contents using "ActiveDocument.Range.XML" I am under tight deadline and any help would be greatly appreciated. Tag: Calculation from Tokens Tag: 75149
  - 13
    - Any way to hide fields without effectively inactivating them? Greetings! Is there a setting that governs how Word interprets the hidden font setting with respect to formulas in fields? I use a bookmarked field in my document to provide a value which is used in a calculation performed by a formula in another field, elsewhere in the document. I would like to hide the bookmarked item by applying the hidden font format, but if I do this Word ceases to provide the value of that bookmark to the calculation -- kind of like conditional text in FrameMaker. I believe that I have used the hidden font in similar circumstances before, without having this result. Many thanks for your advice!... Tag: Calculation from Tokens Tag: 75145
  - 14
    - I would like to delete unwanted styles from my file I have two unwanted styles in macro(from old folder) and I'll keep receiveing it in my file. I am trying to create macro button on my toolbar where it always deletes these two(styles called Caption and Tx_normal_10). Any help Tag: Calculation from Tokens Tag: 75143
  - 15
    - coding for table numbering and table title We have tables with specific header and table title. I am trying to change table title as per our client requirements. The situation is challenging because my Table titles are as follow Table X Table Title and I am trying to change it to Table X.X Table title I have changed the styles etc., it's just the table numbering and sentence case for the title. Any help. What will be the coding. Tag: Calculation from Tokens Tag: 75141
  - 16
    - send Active Document to Multiple E-mails I have read the links on MVPs but it seem not to answer the question I am about to ask. My Question is "How do I activate or input the e-mail addresses in program if I have them already in word format or as a group in my Outlook Address Book" Like saying .Add Recipient = <"c:\Managerial EmailAdds.doc"> Where "c:\Managerial EmailAdds.doc" contains the E-mail Addresses of the intending recipients. Please Help. Tag: Calculation from Tokens Tag: 75140
  - 17
    - select the word but not the space behind it With Selection .Moveend Unit:=wdWord, Count:=1 .movestart Unit:=wdWord, Count:=-1 .InsertBefore Text:="(" .InsertAfter Text:=")" End With I wrote the above to insert brackets to the word where the cursor locates. But it included the space behind the word. any way to improve it? Tag: Calculation from Tokens Tag: 75135
  - 18
    - Calculating dates in MS-Word I have sections of a document for Monday, Tuesday, Wednesday, Thursday and Friday. I have the week begining date in Subject field. How Would I calculate the headings in the Word document from the Subject field. Something like Dateadd("D", 1 , Subject) Steve Tag: Calculation from Tokens Tag: 75132
  - 19
    - Disable Maximize and minimze menu of a Word document Hi, I'm using Word 2002 with VBA. Is it possible to disable the Maximize and Minimze menu of a Word document inside Word ? I try this but no effect : Dim wrdWnd As Long Dim x As Long, docwnd As Long Dim lStyle As Long Const GWL_STYLE = (-16) Const WS_MAXIMIZEBOX = &H10000 Const WS_MINIMIZEBOX As Long = &H20000 wrdWnd = FindWindow("OpusApp", 0&) x = FindWindowEx(wrdWnd&, 0, "_Wwf", "") x = FindWindowEx(wrdWnd&, x, "_Wwf", "") docwnd = FindWindowEx(x, 0, "_Wwb", "test.doc") lStyle = GetWindowLong(docwnd, GWL_STYLE) --> lStyle has the value "1455489024" but doesn't change after the following lines lStyle = lStyle Or (WS_MAXIMIZEBOX) ' Maximize lStyle = lStyle And Not (WS_MINIMIZEBOX) ' Minimize Call SetWindowLong(docwnd, GWL_STYLE, lStyle) It works if I change the Maximize and Minimze menu of Word, but not for the documents open inside Word! Thank for your help, David GALLONE Tag: Calculation from Tokens Tag: 75123
  - 20
    - Using textfield in a dot file Hi Using this code ThisDocument.Navn = TextBox1.Text Working but if i save my document as a dot file and then create a new document from this dot file then ThisDocument.Navn = TextBox1.Text dosn't work Why?? Best regards alvin Tag: Calculation from Tokens Tag: 75117
  - 21
    - from form to document Hi!! Can someone tell me how i get a text value from a form into a document, Best regards alvin Tag: Calculation from Tokens Tag: 75110
  - 22
    - Macro for replacement processing Hi all, I need further help with a macro. I reached the place where I have to do this search and replace action: Find: (selected phrase, e.g. "green piano") Replace: <a href="bword://green piano">green piano</a> That is to say, I'll select sertain phrases from the text and when I run the macro the selected phrase should be tagged like this: <a href="bword://XYZ">XYZ</a> XYZ is any phrase I choose to select. I'll assign the macro to a button for quick work. Ivaylo Tag: Calculation from Tokens Tag: 75109
  - 23
    - tabstop at right margin I wantt to write a macro to insert a right align tabstop just at the right margin of the the document. the .rightmargin in VBA only give the point from the right edge of the document. Hence, Selection.ParagraphFormat.TabStops.Add Position:= .rightmargin, Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces only add the tabstop at the, say, 90 points from the LEFT edge of the document. Thanks Tag: Calculation from Tokens Tag: 75104
  - 24
    - View Frustrations Sub Frustration() ActiveDocument.Bookmarks("Test").Select "&^$%#*& view changes to Normal with Split window for header pane. 'The bookmark is selected. 'This bit gets the PrintView back but the selection is collapsed If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If ActiveWindow.ActivePane.View.Type = wdPrintView ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'So I cobbled together this bit which is working. Question - Is there 'a way to "prevent" the view from changing when using the .Bookmarks(index).Select 'method? Dim myRng As Range ActiveDocument.Bookmarks("Test").Select Set myRng = Selection.Range If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If ActiveWindow.ActivePane.View.Type = wdPrintView ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader myRng.Select End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Calculation from Tokens Tag: 75103
  - 25
    - Universal event listener Hello, I am trying to find a way to use VB to create a universal event listener for MS Word that would allow me to grab any action that the user takes in an open Word doc (typing a word, changing a font, scrolling, etc.) and then to repeat that event in another Word doc. I imagine that these would be the same events that are automatically recorded in a macro or saved in the undo log, but I don't know how to get access to them so that I can repeat them programatically, without the user having to save and execute a macro. Any help would be greatly appreciated. Thanks, Andy Tag: Calculation from Tokens Tag: 75101

Hi,

I have a document which uses tokens from our system we have 3 tokens
"charge", "tax1" , "tax2" i need to be able do a calculation of charge - tax1
-tax2 and put the result on the document.
There is no token available to do this in our system so word will have to do
the calc.

Top

Re: Calculation from Tokens by Doug

Doug
Thu Oct 20 12:45:10 CDT 2005

Sorry, what do you mean by "tokens"?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Todd" <Todd@discussions.microsoft.com> wrote in message
news:4C271C49-8639-4CF9-B97D-B8028E187FC2@microsoft.com...
> Hi,
>
> I have a document which uses tokens from our system we have 3 tokens
> "charge", "tax1" , "tax2" i need to be able do a calculation of charge -
> tax1
> -tax2 and put the result on the document.
> There is no token available to do this in our system so word will have to
> do
> the calc.
>

Top

RE: Calculation from Tokens by Todd

Todd
Fri Oct 21 01:36:03 CDT 2005

Sorry - its a merge field from our DB2 Database the only problem is there is
not a field in our database that caters for this - so word has to do if
possible

"Todd" wrote:

> Hi,
>
> I have a document which uses tokens from our system we have 3 tokens
> "charge", "tax1" , "tax2" i need to be able do a calculation of charge - tax1
> -tax2 and put the result on the document.
> There is no token available to do this in our system so word will have to do
> the calc.
>

Top

Re: Calculation from Tokens by Doug

Doug
Fri Oct 21 03:30:43 CDT 2005

{ = { MERGEFIELD charge } - { MERGEFIELD tax1 } - { MERGEFIELD tax2 } }

You must use Ctrl + F9 for each pair of field delimiters { }

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Todd" <Todd@discussions.microsoft.com> wrote in message
news:AC2EC831-9FC2-4279-BDDA-0AB395A70D06@microsoft.com...
> Sorry - its a merge field from our DB2 Database the only problem is there
> is
> not a field in our database that caters for this - so word has to do if
> possible
>
> "Todd" wrote:
>
>> Hi,
>>
>> I have a document which uses tokens from our system we have 3 tokens
>> "charge", "tax1" , "tax2" i need to be able do a calculation of charge -
>> tax1
>> -tax2 and put the result on the document.
>> There is no token available to do this in our system so word will have to
>> do
>> the calc.
>>

Top