Printing Envelopes

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Change Hyphenated Words To Uppercase As a software developer, I get to contend with Technical Specifications that often contain many hyphenated terms that are not words. I have "Ignore words in UPPERCASE" checked on the Spelling and Grammar dialog box, but not all the jargon words are in all uppercase. I created these Macros to prompt me and optionally convert hyphenated words to uppercase. I am not a Word VBA guru, so my solution may be a little ham-fisted. As such, I invite suggestions to improve this. Ken Grubb Bellevue, WA, USA Public Sub UppercaseHyphenatedWords() Call GenericUppercase("<[a-zA-Z0-9]{1,}-[a-zA-Z0-9-]{1,}>") End Sub Public Sub UppercaseUnderscoredWords() Call GenericUppercase("<[a-zA-Z0-9]{1,}_[a-zA-Z0-9_]{1,}>") End Sub Private Sub GenericUppercase(sInput As String) Dim bContinue As Boolean Dim bSkip As Boolean Dim Response Dim sArray() As String Dim iArray As Integer Dim i As Integer iArray = 0 bContinue = True Selection.HomeKey Unit:=wdStory Do While bContinue bSkip = False With Selection.Find .ClearFormatting .Text = sInput .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With If Selection.Find.Execute Then If Selection.Text = UCase$(Selection.Text) Then ' Skip hyphenated words already in UPPERCASE Else If iArray > 0 Then For i = 1 To iArray If sArray(i) = LCase$(Selection.Text) Then ' Skip words previously skipped bSkip = True End If Next i End If If Not bSkip Then Response = MsgBox("Change all occurrences of " & LCase$(Selection.Text) & " to " & UCase$(Selection.Text) & "?", vbYesNoCancel) Select Case Response Case vbYes Call GlobalReplace(LCase$(Selection.Text), UCase$(Selection.Text)) Case vbNo ' User skipped this word iArray = iArray + 1 ReDim Preserve sArray(iArray) sArray(iArray) = LCase$(Selection.Text) Case vbCancel MsgBox "Done!" bContinue = False End Select End If End If Else MsgBox "Done!" bContinue = False End If Loop End Sub Private Sub GlobalReplace(sFromText As String, sToText As String) With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = sFromText .Replacement.Text = sToText .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With End Sub Tag: Printing Envelopes Tag: 75334
  - 2
    - Macro to modify font in header My client is a medical office that uses a master document for each patient to keep xray and MRI reports. They begin each new report with a macro that inserts a section break to a new page and draws in a blank report with a "letterhead" up in the document header. The Xray reports and the MRI reports require different letter heads because they are generated by different departments, so I added a user form so the operator can select which blank document to insert for the next report. However, for one of inserted documents there is a problem that the Tahoma font in the header changes to Times Roman. I don't know how to fix that but thought I could add code to find the text and change the font back to Tahoma. This works except that it leaves the Times Roman formatted text up there alongside the new Tahoma formatted text. Example "This is my textThis is my text" My questions are: 1) Is there a better way to approach my problem; 2) what's missing from my code (as shown): ' ' test12 Macro ' Macro recorded 10/20/2005 and modified by RichardB ' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With Selection .Text = "This is the Header" .Font.Name = "Tahoma" .Font.Size = 14 .Font.Bold = wdToggle End With ActiveDocument.Save ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Thank you... Tag: Printing Envelopes Tag: 75328
  - 3
    - How to subclass the Signature dialog box to select programmatical Hi I would like to subclass the word Dialog box which displays the certificates from "mystore" to choose from to apply a digital signature on any word document. For recall the dialog box pops up with following code: dim sig as signature set sig = activedocument.signatures.add I would like to select the appropriate certificate in the listbox programmatically with filters on the signer.name the certificate.issuer and the certificate expiration date. Then I would like to click on the correct selection programmatically. Who is good enough with subclassing and send messages ? to help me achieving this code snippet ? Any help very much appreciated Regards Tag: Printing Envelopes Tag: 75323
  - 4
    - Macro for paste special I've recorded a marco to do a 'Edit/Paste Special.../Unformatted Text" and assigned it to a keyboard shortcut. However it simply does a normal paste instead. This is the recorded VBA: Sub pastespecial() ' ' pastespecial Macro ' Macro recorded 20/10/2005 ' Selection.PasteAndFormat (wdPasteDefault) End Sub Can anyone help please? Tag: Printing Envelopes Tag: 75320
  - 5
    - Silly "enter-value" macro question! (Does anybody know?) Hi Does anyone know how to make this macro? You'll be a 'life-saver' for me if you do! (NOTE: I do not have any experience using the macro "editor" -- I've only used the 'record macro' function so far. So if you want me to enter some code, would you please just write it in a way I can "cut-n-paste" into the editor?) STEPS: (a) Click on toolbar macro icon (b) This should bring up an "enter value" dialog box on the screen (c) I will then type-in: 1 (i.e. I just type the number one) (d) I click "ok" (or whatever the dialog box wants) (e) Then Word opens this specific document on my hard drive: c:\MS Word Docs\1.doc (I have about 30 documents . . . so, depending on what # is entered in the dialog box, the corresponding document will open . . . i.e. 1.doc, 2.doc, 3.doc . . .) Thanks so much! I know this is probably pretty simple for you macro pros, but I don't know how to do it. Gratefully . . . Tag: Printing Envelopes Tag: 75315
  - 6
    - How to copy format of last paragraph instead of first I am copying a selection of text that includes multiple formats, the last n being a numbered list. When I copy and paste it into a table, I need to delete the last paragraph, but when I do that I lose the number on the last paragraph. If I use CopyFormat and PasteFormat it copies the format of the first paragraph instead of the last paragraph, so if it is a list then it saves my last number, but if it is not a list then it loses the last number. Is there a way to copy the format of the last paragraph in the selection? -- Nancy Tag: Printing Envelopes Tag: 75313
  - 7
    - Record a macro that ends with a dialogue box open? Using Word 2002, I want to set up a macro that involves several repetitive keystrokes and clicks and includes opening a dialogue box, and should end with the cursor in a field within that box. From that point, the user would enter whatever was appropriate. Trouble is, I cannot get at the Stop button on the macro toolbar whilst the dialogue box is open, so I am not able to stop recording and save the macro. How can I do this??!! Tag: Printing Envelopes Tag: 75305
  - 8
    - Where has the assistant gone? Hi everybody, from the help: Sub test66666() If MsgBox("Enable Office Assistant?", _ vbYesNo, "Assistant is Off") = vbYes Then Assistant.On = True Assistant.Visible = True Assistant.Animation = msoAnimationGetAttentionMajor End If End Sub results in an runtime-error. Method 'On' of object 'Assistant' failed. -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" Tag: Printing Envelopes Tag: 75299
  - 9
    - Embed autoexec routine in a Project(document) derived from a templ Hi all, I would like to know if it is possible that a template.dot can write while creating a document in the Thisdocument object of the project(Document) some routines. If yes How to proceed ? such as : Sub document_open "look if a particular DLL is available" end sub Or in a custom module added programmatically to the document... (Is the VBIDE able to do so ?).. as Create object instruction ? or the like ... any code snippet is very welcome Regards Tag: Printing Envelopes Tag: 75297
  - 10
    - How to change the delimiter? Hi, I am using Word.Application.Document.Sentences to get all sentences in a word document. By default, the VBA would return sentences delimited by full stop. How could I change it to look for other delimiters, such as a comma, or even custom define it? For example, these are 2 sentences in a paragraph: {##1##}The brown fox jumps over the lazy dog. {/##1##}{##2##}The brown fox jumps over the lazy dog. {/##2##} If I use Word.Application.Document.Sentences in a loop, it would return me 3 lines: line 1: {##1##}The brown fox jumps over the lazy dog. line 2: {/##1##}{##2##}The brown fox jumps over the lazy dog. line 3: {/##2##} What I need is to have only these 2 sentences: line 1:{##1##}The brown fox jumps over the lazy dog. {/##1##} line 2:{##2##}The brown fox jumps over the lazy dog. {/##2##} Please help. Thank you in advance. Tag: Printing Envelopes Tag: 75288
  - 11
    - SEQ number field?? Hello, I'm having a problem, how to create a sequencial number field. this document is an tempate, and i open i want the number to be sequencial. for example, if i enter in the template three times th sequencial, number have to be 1, 2 and 3. 1 for the first template opened, 2 for th two template opened and so on on ........ Any sugestion??? Thanks Tag: Printing Envelopes Tag: 75286
  - 12
    - Can I set up a single TOC for ref. from multiple word documents ? I have 5 or 6 word documents each with a table of contents.Can I create a single seperate document/file showing all 5 or 6 table of contents in one TOC(for ref), without having to merge the documents. Will it have the ability to be updated each time I update the contents of an individual document? Tag: Printing Envelopes Tag: 75285
  - 13
    - i have problem with iserting pictures ,i have blank box when inserting a picture ,it appears as white box. i have office 2003 Tag: Printing Envelopes Tag: 75283
  - 14
    - Calculation from Tokens 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. Tag: Printing Envelopes Tag: 75282
  - 15
    - 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: Printing Envelopes Tag: 75281
  - 16
    - 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: Printing Envelopes Tag: 75279
  - 17
    - 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: Printing Envelopes Tag: 75273
  - 18
    - 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: Printing Envelopes Tag: 75269
  - 19
    - 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: Printing Envelopes Tag: 75263
  - 20
    - 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: Printing Envelopes Tag: 75262
  - 21
    - 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: Printing Envelopes Tag: 75261
  - 22
    - 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: Printing Envelopes Tag: 75259
  - 23
    - 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: Printing Envelopes Tag: 75252
  - 24
    - 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: Printing Envelopes Tag: 75251
  - 25
    - 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: Printing Envelopes Tag: 75248
- Next
  - 1
    - 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: Printing Envelopes Tag: 75246
  - 2
    - 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: Printing Envelopes Tag: 75245
  - 3
    - 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: Printing Envelopes Tag: 75243
  - 4
    - Is Insertion Point in Table of Contents (TOC)? How do tell if the insertion point in a table of contents (TOC)? Tag: Printing Envelopes Tag: 75239
  - 5
    - "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: Printing Envelopes Tag: 75237
  - 6
    - "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: Printing Envelopes Tag: 75235
  - 7
    - 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: Printing Envelopes Tag: 75231
  - 8
    - 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: Printing Envelopes Tag: 75230
  - 9
    - AutoText Is it possible to add the GUID of a document as an Autotext Entry or equivalent? Tag: Printing Envelopes Tag: 75224
  - 10
    - 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: Printing Envelopes Tag: 75217
  - 11
    - 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: Printing Envelopes Tag: 75202
  - 12
    - 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: Printing Envelopes Tag: 75198
  - 13
    - 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: Printing Envelopes Tag: 75197
  - 14
    - 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: Printing Envelopes Tag: 75190
  - 15
    - 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: Printing Envelopes Tag: 75188
  - 16
    - 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: Printing Envelopes Tag: 75184
  - 17
    - 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: Printing Envelopes Tag: 75177
  - 18
    - 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: Printing Envelopes Tag: 75176
  - 19
    - 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: Printing Envelopes Tag: 75174
  - 20
    - 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: Printing Envelopes Tag: 75173
  - 21
    - 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: Printing Envelopes Tag: 75172
  - 22
    - 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: Printing Envelopes Tag: 75171
  - 23
    - 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: Printing Envelopes Tag: 75169
  - 24
    - 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: Printing Envelopes Tag: 75160
  - 25
    - 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: Printing Envelopes Tag: 75152

Each time that I save an envelope address to a document Word adds a blank
page to the document. When you want to print the envelope you have to put
two envelopes in the printer because the first one comes out blank and Word
prints the second one. Any Help would be appreciated.
Mike

Top

Re: Printing Envelopes by Graham

Graham
Thu Oct 20 23:08:40 CDT 2005

This is normal.. Print page 0.
Or
Use a template - you will find sample templates on the downloads page of my
web site.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Mike wrote:
> Each time that I save an envelope address to a document Word adds a
> blank page to the document. When you want to print the envelope you
> have to put two envelopes in the printer because the first one comes
> out blank and Word prints the second one. Any Help would be
> appreciated. Mike

Top