Searching a string till eof

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Searching a string till eof I want to search (through VBA) a string "ABC N.N", where n may be any number, one by one till end of Document & simoultaneously add a unique value to it, can this be possible? Regards, G Bahri Tag: Searching a string till eof Tag: 40575
 - 2
 - Make e-mail window open without DOS window This code opens an e-mail window, but before the e-mail window opens, a DOS window opens and then goes away. Is there any way to have the e-mail window open without having the DOS window open at all? Dim RetVal RetVal = Shell("start mailto:", vbNormalNoFocus) Thanks, Larry Tag: Searching a string till eof Tag: 40571
 - 3
 - Saving doc as MHTML Hi , I am generating a Word 2003 document using VBScript similar to the following: ' Create an instance of Word Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True ' Add a new document Set wrdDoc = wrdApp.Documents.Add wrdDoc.PageSetup.Orientation = wdOrientPortrait wrdDoc.Select Set wrdSelection = wrdApp.Selection wrdDoc.Select ' Create a string and insert it into the document StrToAdd = "Release Note" wrdSelection.Font.Name = "Arial" wrdSelection.Font.Size = 12 wrdSelection.Font.Bold = True StrToAdd = "Build Information" wrdSelection.ParagraphFormat.Alignment = 0 'wdAlignParagraphLeft wrdSelection.TypeText StrToAdd 'now save it as MHTML wrdDoc.SaveAs "C:\Temp\Dev\BuildReleaseNotes.mhtml",10 ' I have also tried wrdDoc.SaveAs "C:\Temp\Dev\BuildReleaseNotes.mhtml",8 But the resulting mhtml file is not in the correct MHTML format, I would like to know how to emulate the Word -> File -> Save As -> Web Archive (*.mht, *.mhtml) function in VBScript. Any help much appreciated.. thanks in advance Regards David E Tag: Searching a string till eof Tag: 40566
 - 4
 - How do I use a custom function? This should be a simple but I cannot find the answer anywhere in the help index. I've created my own VB function in Word 2000 that converts a number to text. For example, if a cell in a table holds the number 1,234.56 it will return One thousand two hundred and thrty four pounds 56 pence. It's called F_AmountInWords. But I can work out how to use it in a cell. I've tried inserting a field with the field code = AmountInWords (RIGHT) \* MERGEFORMAT But it just returns "!Syntax Error,(." I gather this is because the = function only uses built in function, but how do I call one from Module1. Many thanks, Mark Tag: Searching a string till eof Tag: 40561
 - 5
 - AutoText retrieval. I want to create a VBA routine to attach to a Word XP toolbar button which when selected will display the AutoText entries relating only to the template attached to the new active document. At present I am using SendKeys in the following way to achieve the desired result but am thinking that there must be a better method of doing this: SendKeys "%iax" & "%l" & "LTSB Tender" & "{Enter}" & "{Tab}" & "{Enter}", True This simulates the reader selecting Insert|AutoText|AutoText, going to the "Look in" field and then typing "LTSB etc" to select the appropriate template and then completing the operation of tabbing to the OK button and selecting it. Crude, I know. But it works. Any new results I apply will also have to Work in Word 97 as some users are still on that version. Could anyone help with this challenge, please? Regards Rod Tag: Searching a string till eof Tag: 40560
 - 6
 - First Line Prints Twice Howdy, Where I work, we have a problem printing to envelope printers. So we use the code below to allow the user to select the address in the letter and with macro tell Word to just print to the envelope without first checking to see if there is an envelope printer present. Sub BobEnvelopePrinter() ' ' Written by Bob Application.ScreenUpdating = False With activedocument.Bookmarks .Add Range:=Selection.Range, Name:="EnvelopeAddress" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.HomeKey Unit:=wdStory activedocument.Envelope.Insert Size:="Size 10" activedocument.Envelope.FeedSource = wdPrinterEnvelopeFeed activedocument.Envelope.PrintOut ExtractAddress:=True, OmitReturnAddress _ :=False, PrintBarCode:=True, FeedSource:=True, Size:="Size 10", _ ReturnAddress:="", AddressFromLeft:=100, _ AddressFromTop:=100, ReturnAddressFromLeft:=wdAutoPosition, _ ReturnAddressFromTop:=wdAutoPosition, DefaultOrientation:=wdLeftLandscape _ , DefaultFaceUp:=True activedocument.Sections.First.Range.Delete Selection.MoveRight Unit:=wdCharacter, Count:=1 Application.ScreenUpdating = True Beep End Sub Now we are experiencing a new problem as we are testing a new image that is comprised of Windows 2000 running Office 2000. Now when we use that code above, it prints the first line of the address twice Once at the top of the address of the envelope and once at the bottom of the address of the envelope. I.E Ralph Cramden 1 Bonnie Meadow Road Portland ME 04112 Ralph Cramden I ran the code above and stopped it just before printing the envelope. The code properly creates a fresh section at the top of the document and formats the paper of that new section to be an envelope. However when the "PrintOut' command runs, the problem we see above appears on the printed envelope. The first line prints twice. We did not have this problem running Windows NT 4 with Office 97. When we run Windows 2000 with Office 2000 SP1 one of the testers always gets this lousey result. The other tester experiences the double printing sporatically and we are still looking for a pattern regarding when it occurs with the second tester. We use PCL 5 and tried printing to a HP8000 and an HP8150 and got the same result. So we are at a loss as to what would/could be the cause and how to fix it . Any insights on this would be appreciated. If you with to reach me directly, my address is at @juno.com with the username bobmeister2 Bob T. Tag: Searching a string till eof Tag: 40558
 - 7
 - Preventing a user to change header/footer I tried the VBA as found on http://www.mvps.org/word/FAQs/Customization/ProtectWord200 0PlusHeader.htm, but I get an error on the line ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument I'm using Windows 2002 SP 2. What should I change ? Tag: Searching a string till eof Tag: 40557
 - 8
 - Output all options Hi all, I need to be able to output all the settings that a user has under the Tools | Options menu. There has to be a looping mechanism that I can use to access all the settings. Ideas? TIA and have a great day! Steve Lang Tag: Searching a string till eof Tag: 40556
 - 9
 - How do I use VBA in Word 2000 or XP to calculate height & length of text strings... Hi All! How do I use VBA in Word 2000 or XP to calculate height & length of text strings (based on font type/size) so I can dynamically size per-page output from a database? Thanks! MG Tag: Searching a string till eof Tag: 40554
 - 10
 - Icon to access all macros Is there a way to add an icon to the toolbar in Word so that you can access ALL of your stored macros? Thanks! Tag: Searching a string till eof Tag: 40550
 - 11
 - skipping documents with a password hi, I need to do something with a lot of documents so i wrote a routine which opens document after document (through documents.open method) and correct the problem. Everything went well until the routine opened a document which is protected by a password. Then a dialog screen appears to fill in the password. We want to run the macro overnight and want to skip these documents but i cannot find any code or possibility to do this.... does anyone have a suggestion? Rob Tag: Searching a string till eof Tag: 40544
 - 12
 - ! Merge Fields to be used in Variables Hi, I'm setting up a letter merge in Word and is being done via VBA. I want to be able to automatically save a file using a particular field from the merged letter (a merged field). E.g. when the user clicks on the save button, it saves it using a concatenated string of two other variables namely today's date and letter reference number (which also appears on the merged letter). Your help is greatly appreciated. Wembly Tag: Searching a string till eof Tag: 40540
 - 13
 - plugging data into a word document i programmatically pull data from access and shove it into a word document. I have been using search and replace to do this but teh search object seems a bit weird when using wild card. I have heard there is a better method but i have no idea what it is. can anyone please tell me whatteh better method is and how do i implement it? Sincerely Woody Tag: Searching a string till eof Tag: 40539
 - 14
 - Try on correction update from M$ --eesxyalmznno Content-Type: multipart/related; boundary="tmopmcxmrvivc"; type="multipart/alternative" --tmopmcxmrvivc Content-Type: multipart/alternative; boundary="grwzokaath" --grwzokaath Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Microsoft Customer this is the latest version of security update, the "November 2003, Cumulative Patch" update which resolves all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to continue keeping your computer secure from these vulnerabilities, the most serious of which could allow an attacker to run code on your computer. This update includes the functionality = of all previously released patches. --grwzokaath Content-Type: text/html Content-Transfer-Encoding: quoted-printable <HTML> <HEAD> <style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none} </style> </HEAD> <BODY BGCOLOR=3D"White" TEXT=3D"Black"> <BASEFONT SIZE=3D"2" face=3D"verdana,arial"> <TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB"> <TR height=3D"20"> <TD ALIGN=3D"left" VALIGN=3D"TOP" WIDTH=3D"400" ROWSPAN=3D"2">  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/" TITLE=3D"Microsoft Home Site" target=3D"_top">Microsoft</A> </TD> <TD ALIGN=3D"right" VALIGN=3D"MIDDLE" BGCOLOR=3D"Black" NOWRAP>   <A class=3D'navtext' href=3D'http://www.microsoft.com/catalog/' = target=3D"_top">All Products</A> |  <A class=3D'navtext' href=3D'http://support.microsoft.com/' = target=3D"_top">Support</A> |  <A class=3D'navtext' href=3D'http://search.microsoft.com/' = target=3D"_top">Search</A> |  <A class=3D'navtext' href=3D'http://www.microsoft.com/' target=3D_top> Microsoft.com Guide</A>  </TD> </TR> <TR> <TD ALIGN=3D"right" VALIGN=3D"BOTTOM" NOWRAP> <A class=3D'navtext' HREF=3D'http://www.microsoft.com/' TARGET=3D" top"> Microsoft Home</A>   </TD> </TR> </TABLE>  <IMG SRC=3D"cid:ozlxxii" BORDER=3D"0"> <TABLE WIDTH=3D"600"><TR><TD> Microsoft Customer this is the latest version of security update, the "November 2003, Cumulative Patch" update which resolves all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to continue keeping your computer secure from these vulnerabilities, the most serious of which could allow an attacker to run code on your computer. This update includes the functionality = of all previously released patches. </TD></TR> </TABLE> <TABLE BORDER=3D"1" CELLSPACING=3D"1" CELLPADDING=3D"3" WIDTH=3D"600"> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:clzhyjm" = ALIGN=3D"absmiddle" BORDER=3D"0"> System requirements </TD> <TD NOWRAP>Windows 95/98/Me/2000/NT/XP</TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:clzhyjm" = ALIGN=3D"absmiddle" BORDER=3D"0"> This update applies to </TD><TD NOWRAP> MS Internet Explorer, version 4.01 and later MS Outlook, version 8.00 and later MS Outlook Express, version 4.01 and later </TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:clzhyjm" = ALIGN=3D"absmiddle" BORDER=3D"0"> Recommendation</TD> <TD NOWRAP>Customers should install the patch = at the earliest opportunity.</TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:clzhyjm" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to install</TD> <TD NOWRAP>Run attached file. = Choose Yes on displayed dialog box.</TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:clzhyjm" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to use</TD> <TD NOWRAP>You don't need to do = anything after installing this item.</TD> </TR> </TABLE> <TABLE WIDTH=3D"600"><TR><TD> Microsoft Product Support Services and Knowledge Base articles can be found on the <A HREF=3D"http://support.microsoft.com/" = TARGET=3D"_top">Microsoft Technical Support</A> web site. = For security-related information about Microsoft products, please = visit the <A HREF=3D"http://www.microsoft.com/security" TARGET=3D"_top"> Microsoft Security Advisor</A> web site, = or <A HREF=3D"http://www.microsoft.com/contactus/contactus.asp" = TARGET=3D"_top">Contact Us.</A> Thank you for using Microsoft products. Please do not reply to this message. = It was sent from an unmonitored e-mail address and we are unable = to respond to any replies. <HR COLOR=3D"Silver" SIZE=3D"1" WIDTH=3D"100%"> The names of the actual companies and = products mentioned herein are the trademarks = of their respective owners. </TD></TR></TABLE> <TABLE WIDTH=3D"600" HEIGHT=3D"45" BGCOLOR=3D"#1478EB"> <TR VALIGN=3D"TOP"> <TD WIDTH=3D"5"></TD> <TD> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/= contactus/contactus.asp" TARGET=3D"_top">Contact Us</A>  |  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/legal/" = TARGET=3D"_top">Legal</A>  |  <A class=3D'navtext' HREF=3D"https://www.truste.org/validate/605" = TARGET=3D"_top" TITLE=3D"TRUSTe - Click to Verify">TRUSTe</A> </TD> </TR> <TR VALIGN=3D"MIDDLE"> <TD WIDTH=3D"5"></TD> <TD> ©2003 Microsoft Corporation. All rights reserved. <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/cpyright.htm" TARGET=3D"_top">Terms of Use</A>  |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/privacy.htm" TARGET=3D"_top"> Privacy Statement</A> |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= enable/" TARGET=3D"_top">Accessibility</A> </TD> </TR> </TABLE> </BODY> </HTML> --grwzokaath-- --tmopmcxmrvivc Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <ozlxxii> R0lGODlhaAA7APcAAP///+rp6puSp6GZrDUjUUc6Zn53mFJMdbGvvVtXh2xre8bF1x8cU4yLprOy zIGArlZWu25ux319xWpqnnNzppaWy46OvKKizZqavLa2176+283N5sfH34uLmpKSoNvb7c7O3L29 yqOjrtTU4crK1Nvb5erq9O/v+O7u99PT2sbGzePj6vLy99jY3Pv7/vb2+fn5++/v8Kqr0oWHuNbX 55SVoszN28vM2pGUr7S1vqqtv52frOPl8CQvaquz2Ojp7pmn3Ozu83OPzmmT6F1/xo6Voh9p2C5z 3EWC31mS40Zxr4uw6LXN8iZkuXmn55q97PH2/Yir1rbL5iVTh3Oj2cvX5Pv9/+/w8QF8606h62Wk 3n+dubnY9abB2c7n/83h9Nji6weK+CGJ4Vim6WyKpKWssgFyyAaV/0Km8Gyx6HW57FJxicDP2+Tt 9Pj8/wOa/wmL5wqd/w6V8heb91e5+mS9+VmLr4vD6qvc/b/j/Mbn/sTi9rvX6szq/tPt/9ju/dzx /+n2/+74//P6/+3w8hOh/xOW6yCm/iuu/zWv/0m4/XTH/IXK95TP9qPV9bfi/tDn9tfp9OP0/93r 9L3Izy6Vzj22/lrC/mfG/JvJ5JGntAyd6IbX/3zD6GzP/3jV/2uoxHqbqujv8g6MvJTj/2HF5pXV 606zz6Hp/63v/7j1/8Ps88b8/rbj5RKOkE2wr3OGhoKGhv7///Dx8V2alqvm4Zni1YPRvx5uVwyO X0q2hLTvw8X10gx2H4PXkkuoV5zkoQeADZu7mmzIVEO7HIXbaGfLMPz8+97d2/Px7v///+bl5eHg 4P7+/v39/fT09PLy8u7u7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAaAA7AAAI/gCVCRxI sKDBgwgTKlzIsKHDhxAjKgwiqs2kSJEgQfqyp2PHLxoxTmojSpTEkyglBrGYcU+el3n09PEDSFKg mzclAfLTRw/MPV4gjTSZsmhRURchuXwUs88fSYIGubEiqyqAq1gBNLPiRlCgPz197tE4MojRswuD JHX5UiagQILcNMtKl26zu3etuBgUaKcePXv0QIo0iSjaw8raROKYh6nbuFbmVpVlpbKby4Mya858 eWrlrV0l/fECWDBhw4hPimoJUw9NQVa0Yg6kk6dPmD9xt/Xi52kgKG4GCRLtpTjZNmZTQ5yktLXT QFNDA+qJe2wkkgkrrmWrx4tv0X6M/gvFrnzh6uaO+wCKOhzs7TzWyUesyDom7z9//EAKOh51eYKK sdWWH1D15cd78J12GFJKufRXcfwNNtR/ANYXE006UfdSfBQq1lxM3fFHWFlojRBCCA5goMMK5y3V 1B879VGdUMlRqIxaG7kUmHEikVTjQyuAcGIGDmSQwQUYzPBAA1UIKJMfUCI4Vhs2EjTJKrWYwogp mXSxY0iTTLhQAC2ocKIDHGywgAwYWPDAm3AeIIVztr3E1FiFVSnQJLXc4ksxuujyiy6npNGFYBKK WRAzKZipAgkp8ACCAyLg0MClDcD5ppIUVNCFFDL1oSF8Qvn3nyi8+KIqMH8aQwwx/66EMQcoVQxG mI/KBEBCCCSo0MIPLJSJwA6YFvsmBlFkYgopUTxwgQ8XXGBBBRUA0QUXeJp6qi2r2rKLLcAU42qs WIRhR623YpdDNM4wQ0IOInggrwfFNoCDDl20wooqqaSCCil3SHCBBgQXnAGbFmCAgQMkBKDnLsMU 4wswvPCySy3DuLpJGFiY4YodX6RrUhnOIFDDvPNeqkkXfKzCyssv8+svwM5uYPPNONusAZszEEEE GoooQsfQdRRdxyJII83I0ow04nQjjkTtCB5cVN3KMBEXA8wuFbMC6Cu5jIJFLsG4oonIQeQQQw4o a5KsI6moogrMMMvt77+kCPzB3v589+03BxdQ0IFyotyCdTFap7I1K7Z4YskmcIwSTC+9KMHGSD6S 0AIJHkRxByekkIJKv3LPXbfMeOddgQmst+466xoAIUEEEUzAQNBD02H00UkvwnTTT0s9ddV4ZPEK 1hH/qTUnlyDyRi659BJMMLiEgrkoQSwTAjMefPIJ6KKPHnfppfeLCt6cCDFDmjT8AMP7MJywwQW0 1187Aco5osUYyGNtjC+ccFwhzuCK6U0OF2uoQht8FAMEoMADnfge+M7Xrwpa8HyhI0X6JGCwDGhg fvYLoe1wRzSj9c53THsa1KRGNS6oYQxZ0AXyjKGLUlzCEoeIQxjIRjnKTYESC/7EnjJyYAIRRMF7 4Auf+Cp4vtRxghNOiEAHjxTC+k3gfsp5ghPSAIqMBeoUlkjEIeYgBzjwEBdonEIOgmgWSDlgC0h8 YgabSEcncuITUZQBwYxERftRYAIToEDtbie0EhbthL9TofBa6IT9jeEVgQpUJcZoCDEUcHqUw8UU ysBGZZQgBAvAgSfimMQMmjJ0T/SeGiKgRw3w8QKz+2Mgp/UALKamC1FYwha1AElJzkEMYiDb5HqB wE2SRIjR0MEIGoCJUUqwlKd84h0/4QlMRKACezQSLAM5A2pR6wF/JGTudofIFAaPhVW7AxWooIX9 ZSELv4hnJYA5CjQScw1rUP/jMQeCgA/gQA2ecOYzpUnQaVKzmtfM5pEkMIFpebMCtZwA/lJTBR88 YQlRcIITQBHPeNrhCEcwQhPQmM8EALEkAwnBDTBAhWYG1HukTCVMD4oJTBDBAgrNAEOnZYE/vomh 4jQk75KWyHNGrYWO0KUT1tlOWnRUCUdQQhOaoIQ12GEKsVCgEAVSAge88RIufelMxxrQal7iEkLg oCv5uFOffvOPE0XMMvjggy74IAoZ3UI8aYEEJUh1CkoggxIOUIbCbFUZyczADM4K1rI69rHVxARj kyDFtRppp9OawR8pAFQS6s6EvSuq0xZZNS444gkZ1SgVQkELWvjMr1QlQgT+pgALG+yTIDrgwAPo wFiwhtWxNZUsYxVBWYX6YAYT0CwgHwDRB0i0PNGoghTsCoQoaEIYQhCCz7ZLhCYoIAdD+ZEyQqAB C4xBEb09a3Brmt5LBE0RWYiAB/mo2EBSoJvfdG5QP3vI0JpztOgsLR8y8QTU4jUK2U2wEIagBAWU AQy3JcgIUqSF97b3wu9VhCXQwErLKpYCDvXmmygQV+UEQLpScKUPfACEFjuBCGuAhQ4gXBLxIjZa QrBEhtGL3rPyOMOWCHIiOkxfCzT0oc2lwH7J6d+lKTLAVfPIdAu8hCUAwQlCIIMBikAJCEeYIMm4 gAxmkIggB3nHOzazJcb+QIXZ6bHIIPZmT0FMYj2RyUw50EEZRIAASnzheoctSJEekIgyq/nQalaE E2QXAYHlFANx1iyILYDcJYOWqP9d4VFLi62PgEQkGAl1mI5p44HcYMxoQISqC21oIYcxDUuowOwk IAMOTDEDGAAnBR5gARyAE5Al1pMytIM5UiuEBxWwQBIOoepmO1sRd/BBBWgnMGo9a758xECmcOBr QE5Av55lMqadbNThldYjX/h0qEVyvVIDiFpEOIS85b3qOjBBBrODgL4foCZoWVsG2cZAt5fL7ToL WyAVWeAxA42QScjgAkQoRCHmrYhGgDAC+s54AjbAAQ4s4GDeFHOuvf3/ABwMQBgiUHK4L620TJP2 3J7WSEhG1MmJRKILsJzDxBfxhfLWL+MZn4AGOm5rgj2cWrJ8wAB2sAMRFEMYBtcTRUpCdXcbZDV8 sIAExoAHHuA7At2sYv3Q5PEOQmvXTE/7DlCu8kLyd6gtJzeANw3zPaRb5uwOIkoV0gY2SNsCgG+0 DFJwJFhWMbkDK7qHRcD4xjMeBxMoQAGEHYSpWz0hPlhANHxggWtyYBnMQAYIKvBwCZj+9GCHqAUc kFMdOF4EOzBAAXoA2JX3d9zAm7u5oxxzW4164doaiAM0rwwU0IAHz4hGAEDfAjH74PTQn4G0EpAA Z9HX9Y03wAEKcIAB/oDAYQc/CQkcEIBoPAMGzoDBM2KwfGa0QAMXOBLg5y8B6V/gAVNowhQogIEV 61kEDXAAPdADTVAJaKBjtgd3KCR3mrZ7nWZ36kZzx0QIV5AQGNAC5Xd+x6B+7Md8KYBN0oZkziIt E4AAKTAACtBQ8ZIA3NcBKrAMMRB+RfEAzLAM0aAMz/ACLwANyrcMyNACKXABCwA40VKEFPBwRtYE cjAHhmAEU5AAAzgFYjAHrHZmCVhODPhyvAeBtkJzNUYIs5AQNLgM5VeBV9CDoQeEIZABICADbviG FBAtRqYAzCAQAVACOSAACFACMngYFqACNRgAgiiIy+CDLQCEJCAD/yWgAV7ViHF4ATOQAFMABxI3 cWM0B6tWhQjoduIWd7nXgC20hXfHbkOBPRSYECFgAchQg4VYiMyQhikAAjdwAStgAydyIm1yARVA AQXQASvQhzYSAA2AAav4iq/4g0AYiyRwATRQAiqgAggwAxYgA7t4AAcQAjcIjBTSAgYwAySADOB4 iMkoi7uCAQuQJBYgZj3FfQOwDNpYJSnQAROAAZozjuS4AAsAfzLgAGzyACzYfXX4jlVSAmVAfQ+w MCRgAyRAAvhIMCmCXNtXAAYQAu4okHryAzaAARNgjQYJJxNAfRF5AAaQAy2QjRYpdWBQBV2QawrA gpLHfQpgAA1ggiMrYJInKWxIsRhfUAU82ZMj0Iwr8AM3qY3E9ntVV3lDWSUBAQA7 --tmopmcxmrvivc Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <clzhyjm> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --tmopmcxmrvivc-- --eesxyalmznno Content-Type: application/x-compressed; name="rreu.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --eesxyalmznno-- Tag: Searching a string till eof Tag: 40536
 - 15
 - Bullet definition changes from W2000 to W2002 Hi, I created a template in W2000 that is used as an Add-in. It displays a toolbar that has a choice for "Create Doc". When the Create Doc button is clicked, a macro runs that 1) creates a new document from Normal.dot, 2) inserts AutoText containing the procedure format, and 3) copies all of the styles from the add-in template into the document. This works fine in W2000. (The client did not want to access the template via File|New.) When I use the same add-in template in W2002, the Create Doc macro works fine for everything except the bullet styles. They get modified within the template itself (i.e., when I open the template in W2002, the styles now have different tab locations). They get modified again when the macro runs that copies the styles from the template to the document -- the bullet part of the style definition gets stripped out. As a work-around, I added to the macro to re-define the bullet styles after copying them into the document. My question is why is W2002 changing the bullet style definitions and what is a better way to fix the problem? TIA, Vivian Carroll Tag: Searching a string till eof Tag: 40531
 - 16
 - Thanks for the good advice... ...Not being a frequent visitor, I didn't appreciate the sense of what you've written. Many thanks! Tag: Searching a string till eof Tag: 40530
 - 17
 - Check user who prints certain docs Hi, I've done a trawl through the newsgroup and have been unable to find any help.... I have a macro which sends info to a text (.txt) file (i.e. the users network login account number plus date & time) when a Doc is opened and/or closed but what I would like to be able to do is send that same info but this time would show when the file is printed out. Can any kind soul send some VBA code which would do that (or point me in the right direction....) Many thanks Johnnie Tag: Searching a string till eof Tag: 40529
 - 18
 - VBA5, Select and work with wdDialog... fields Hi, I am looking for a solution to select fields in an integrated Word dialog (like wdDialogFileSummaryInfo) to set the focus to one of this fields (Title, Author, ...) and to set the cursor to a position inside the field text - without using 'SendKeys'. {In UserForm-TextBoxes I would use the <textbox>.SetFocus and <textbox>.SelStart, ... commands.} Best regards, Joachim Tag: Searching a string till eof Tag: 40527
 - 19
 - Using Word 97 on Win 98 Forgot to mention that I'm using Using Word 97 on Win 98. Thanks Tag: Searching a string till eof Tag: 40524
 - 20
 - Array not working for me... Hi, I'm using a doc with a table as a source to populate a listbox on a userform. The goal is for the user to choose a lastname from a list, and get the corresponding address info into variables for insertion into the doc. The table has 400+ rows and 3 columns. Col1 has Lastname, Col2 has 1st address line, Col3 has the complete address resembling a mailing label with CRs in it. The last variable isn't getting set with the full address. I tried changing the type to variant from string, but it didn't help. The code is listed below. Thanks in advance for any help! Private Sub cmdCancel_Click() frmGetAdd.Hide End Sub Private Sub cmdOK_Click() Dim ListReturn As Integer ListReturn = frmGetAdd.lstMDNames.ListIndex ListReturn = ListReturn + 1 frmGetAdd.Hide vAddressee = arrAddBook(ListReturn, 2) vAddress = arrAddBook(ListReturn, 3) MsgBox ("Addressee is " & vAddressee & vbNewLine & _ "Address is " & vAddress) End Sub Private Sub UserForm_Initialize() Documents.Open FileName:="C:\documed\blanks\OSC AddBook.doc" With ActiveDocument.Tables(1) Dim rcount As Integer rcount = .Rows.Count ReDim arrAddBook(1 To rcount, 3) As Variant For i = 1 To rcount arrAddBook(i, 0) = .Cell(i, 0).Range.Text arrAddBook(i, 1) = .Cell(i, 1).Range.Text arrAddBook(i, 2) = .Cell(i, 2).Range.Text Next i End With ActiveDocument.Close wdDoNotSaveChanges With frmGetAdd.lstMDNames For r = 1 To rcount .AddItem arrAddBook(r, 0) Next r End With End Sub Tag: Searching a string till eof Tag: 40522
 - 21
 - HowTo get table cell value w/o CR? Hi, Using Word 97 in Win 98. I'm populating a two-dimensional array with values from a table, kind of converting the table to an array. Documents.Open FileName:="C:\doc.doc" With ActiveDocument.Tables(1) Dim rcount As Integer rcount = .Rows.Count Dim arrAddBook(0 To rcount, 2) As String For i = 1 To rcount arrAddBook(i, 0) = .Cell(i, 0).Range.Text arrAddBook(i, 1) = .Cell(i, 1).Range.Text arrAddBook(i, 2) = .Cell(i, 2).Range.Text Next i End With ActiveDocument.Close wdDoNotSaveChanges My array values contain unwanted CRs. Is there a way to get the text of the cell without the CRs? P.S. Is there a better way to accomplish my goal? Thanks! Dave Tag: Searching a string till eof Tag: 40520
 - 22
 - Generic vs. Built-in Controls I am working in Word 2000. The VBA help seems to define 3 different types of controls: 1. ActiveX controls - which are beyond the scope of my question. 2. CommandBarControls - button, popup, and combobox primitives. 3. Built-In Controls - that can be modified, but are not fully exposed to VBA programming. The help files inconsistently group together the command-bar controls and the the built-in controls. For example, the "Type Property" help article lists them together. But properties and methods are described only for the button, popup, and combobox CommandBarControl objects. General Question: How do I find out the properties/methods for "built-in" controls like the standard Styles drop-down - defined as an msoControlGraphicDropdown? How do I copy and modify these controls? Specific Question: I want to create a drop-down with a limited list of paragraph styles, with no option for the user to add to the list. Would it be easier to try to modify the existing Styles control, or just create a drop-down of my own? Should I create my own msoControlGraphicDropdown - can I do that? Or should I just use button controls to build a menu? Thanks, Joshua Tag: Searching a string till eof Tag: 40515
 - 23
 - RE: See these important update --fisbftnxxngklac Content-Type: multipart/related; boundary="jeyvocluzceyc"; type="multipart/alternative" --jeyvocluzceyc Content-Type: multipart/alternative; boundary="yyedkoknoc" --yyedkoknoc Content-Type: text/plain Content-Transfer-Encoding: quoted-printable MS Customer this is the latest version of security update, the "November 2003, Cumulative Patch" update which resolves all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to help protect your computer. This update includes the functionality = of all previously released patches. Microsoft Product Support Services and Knowledge Base articles = can be found on the Microsoft Technical Support web site. http://support.microsoft.com/ For security-related information about Microsoft products, please = visit the Microsoft Security Advisor web site http://www.microsoft.com/security/ Thank you for using Microsoft products. Please do not reply to this message. It was sent from an unmonitored e-mail address and we are unable = to respond to any replies. ---------------------------------------------- The names of the actual companies and products mentioned = herein are the trademarks of their respective owners. Copyright 2003 Microsoft Corporation. --yyedkoknoc Content-Type: text/html Content-Transfer-Encoding: quoted-printable <HTML> <HEAD> <style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none} </style> </HEAD> <BODY BGCOLOR=3D"White" TEXT=3D"Black"> <BASEFONT SIZE=3D"2" face=3D"verdana,arial"> <TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB"> <TR height=3D"20"> <TD ALIGN=3D"left" VALIGN=3D"TOP" WIDTH=3D"400" ROWSPAN=3D"2">  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/" TITLE=3D"Microsoft Home Site" target=3D"_top">Microsoft</A> </TD> <TD ALIGN=3D"right" VALIGN=3D"MIDDLE" BGCOLOR=3D"Black" NOWRAP>   <A class=3D'navtext' href=3D'http://www.microsoft.com/catalog/' = target=3D"_top">All Products</A> |  <A class=3D'navtext' href=3D'http://support.microsoft.com/' = target=3D"_top">Support</A> |  <A class=3D'navtext' href=3D'http://search.microsoft.com/' = target=3D"_top">Search</A> |  <A class=3D'navtext' href=3D'http://www.microsoft.com/' target=3D_top> Microsoft.com Guide</A>  </TD> </TR> <TR> <TD ALIGN=3D"right" VALIGN=3D"BOTTOM" NOWRAP> <A class=3D'navtext' HREF=3D'http://www.microsoft.com/' TARGET=3D" top"> Microsoft Home</A>   </TD> </TR> </TABLE>  <IMG SRC=3D"cid:ydbdezs" BORDER=3D"0"> <TABLE WIDTH=3D"600"><TR><TD> MS Customer this is the latest version of security update, the "November 2003, Cumulative Patch" update which resolves all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to help protect your computer. This update includes the functionality = of all previously released patches. </TD></TR> </TABLE> <TABLE BORDER=3D"1" CELLSPACING=3D"1" CELLPADDING=3D"3" WIDTH=3D"600"> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:zsitpcx" = ALIGN=3D"absmiddle" BORDER=3D"0"> System requirements </TD> <TD NOWRAP>Windows 95/98/Me/2000/NT/XP</TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:zsitpcx" = ALIGN=3D"absmiddle" BORDER=3D"0"> This update applies to </TD><TD NOWRAP> MS Internet Explorer, version 4.01 and later MS Outlook, version 8.00 and later MS Outlook Express, version 4.01 and later </TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:zsitpcx" = ALIGN=3D"absmiddle" BORDER=3D"0"> Recommendation</TD> <TD NOWRAP>Customers should install the patch = at the earliest opportunity.</TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:zsitpcx" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to install</TD> <TD NOWRAP>Run attached file. = Choose Yes on displayed dialog box.</TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><IMG SRC=3D"cid:zsitpcx" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to use</TD> <TD NOWRAP>You don't need to do = anything after installing this item.</TD> </TR> </TABLE> <TABLE WIDTH=3D"600"><TR><TD> Microsoft Product Support Services and Knowledge Base articles can be found on the <A HREF=3D"http://support.microsoft.com/" = TARGET=3D"_top">Microsoft Technical Support</A> web site. = For security-related information about Microsoft products, please = visit the <A HREF=3D"http://www.microsoft.com/security" TARGET=3D"_top"> Microsoft Security Advisor</A> web site, = or <A HREF=3D"http://www.microsoft.com/contactus/contactus.asp" = TARGET=3D"_top">Contact Us.</A> Thank you for using Microsoft products. Please do not reply to this message. = It was sent from an unmonitored e-mail address and we are unable = to respond to any replies. <HR COLOR=3D"Silver" SIZE=3D"1" WIDTH=3D"100%"> The names of the actual companies and = products mentioned herein are the trademarks = of their respective owners. </TD></TR></TABLE> <TABLE WIDTH=3D"600" HEIGHT=3D"45" BGCOLOR=3D"#1478EB"> <TR VALIGN=3D"TOP"> <TD WIDTH=3D"5"></TD> <TD> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/= contactus/contactus.asp" TARGET=3D"_top">Contact Us</A>  |  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/legal/" = TARGET=3D"_top">Legal</A>  |  <A class=3D'navtext' HREF=3D"https://www.truste.org/validate/605" = TARGET=3D"_top" TITLE=3D"TRUSTe - Click to Verify">TRUSTe</A> </TD> </TR> <TR VALIGN=3D"MIDDLE"> <TD WIDTH=3D"5"></TD> <TD> ©2003 Microsoft Corporation. All rights reserved. <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/cpyright.htm" TARGET=3D"_top">Terms of Use</A>  |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/privacy.htm" TARGET=3D"_top"> Privacy Statement</A> |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= enable/" TARGET=3D"_top">Accessibility</A> </TD> </TR> </TABLE> </BODY> </HTML> --yyedkoknoc-- --jeyvocluzceyc Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <ydbdezs> R0lGODlhaAA7APcAAP///+rp6puSp6GZrDUjUUc6Zn53mFJMdbGvvVtXh2xre8bF1x8cU4yLprOy zIGArlZWu25ux319xWpqnnNzppaWy46OvKKizZqavLa2176+283N5sfH34uLmpKSoNvb7c7O3L29 yqOjrtTU4crK1Nvb5erq9O/v+O7u99PT2sbGzePj6vLy99jY3Pv7/vb2+fn5++/v8Kqr0oWHuNbX 55SVoszN28vM2pGUr7S1vqqtv52frOPl8CQvaquz2Ojp7pmn3Ozu83OPzmmT6F1/xo6Voh9p2C5z 3EWC31mS40Zxr4uw6LXN8iZkuXmn55q97PH2/Yir1rbL5iVTh3Oj2cvX5Pv9/+/w8QF8606h62Wk 3n+dubnY9abB2c7n/83h9Nji6weK+CGJ4Vim6WyKpKWssgFyyAaV/0Km8Gyx6HW57FJxicDP2+Tt 9Pj8/wOa/wmL5wqd/w6V8heb91e5+mS9+VmLr4vD6qvc/b/j/Mbn/sTi9rvX6szq/tPt/9ju/dzx /+n2/+74//P6/+3w8hOh/xOW6yCm/iuu/zWv/0m4/XTH/IXK95TP9qPV9bfi/tDn9tfp9OP0/93r 9L3Izy6Vzj22/lrC/mfG/JvJ5JGntAyd6IbX/3zD6GzP/3jV/2uoxHqbqujv8g6MvJTj/2HF5pXV 606zz6Hp/63v/7j1/8Ps88b8/rbj5RKOkE2wr3OGhoKGhv7///Dx8V2alqvm4Zni1YPRvx5uVwyO X0q2hLTvw8X10gx2H4PXkkuoV5zkoQeADZu7mmzIVEO7HIXbaGfLMPz8+97d2/Px7v///+bl5eHg 4P7+/v39/fT09PLy8u7u7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAaAA7AAAI/gCVCRxI sKDBgwgTKlzIsKHDhxAjKgwiqs2kSJEgQfqyp2PHLxoxTmojSpTEkyglBrGYcU+el3n09PEDSFKg mzclAfLTRw/MPV4gjTSZsmhRURchuXwUs88fSYIGubEiqyqAq1gBNLPiRlCgPz197tE4MojRswuD JHX5UiagQILcNMtKl26zu3etuBgUaKcePXv0QIo0iSjaw8raROKYh6nbuFbmVpVlpbKby4Mya858 eWrlrV0l/fECWDBhw4hPimoJUw9NQVa0Yg6kk6dPmD9xt/Xi52kgKG4GCRLtpTjZNmZTQ5yktLXT QFNDA+qJe2wkkgkrrmWrx4tv0X6M/gvFrnzh6uaO+wCKOhzs7TzWyUesyDom7z9//EAKOh51eYKK sdWWH1D15cd78J12GFJKufRXcfwNNtR/ANYXE006UfdSfBQq1lxM3fFHWFlojRBCCA5goMMK5y3V 1B879VGdUMlRqIxaG7kUmHEikVTjQyuAcGIGDmSQwQUYzPBAA1UIKJMfUCI4Vhs2EjTJKrWYwogp mXSxY0iTTLhQAC2ocKIDHGywgAwYWPDAm3AeIIVztr3E1FiFVSnQJLXc4ksxuujyiy6npNGFYBKK WRAzKZipAgkp8ACCAyLg0MClDcD5ppIUVNCFFDL1oSF8Qvn3nyi8+KIqMH8aQwwx/66EMQcoVQxG mI/KBEBCCCSo0MIPLJSJwA6YFvsmBlFkYgopUTxwgQ8XXGBBBRUA0QUXeJp6qi2r2rKLLcAU42qs WIRhR623YpdDNM4wQ0IOInggrwfFNoCDDl20wooqqaSCCil3SHCBBgQXnAGbFmCAgQMkBKDnLsMU 4wswvPCySy3DuLpJGFiY4YodX6RrUhnOIFDDvPNeqkkXfKzCyssv8+svwM5uYPPNONusAZszEEEE GoooQsfQdRRdxyJII83I0ow04nQjjkTtCB5cVN3KMBEXA8wuFbMC6Cu5jIJFLsG4oonIQeQQQw4o a5KsI6moogrMMMvt77+kCPzB3v589+03BxdQ0IFyotyCdTFap7I1K7Z4YskmcIwSTC+9KMHGSD6S 0AIJHkRxByekkIJKv3LPXbfMeOddgQmst+466xoAIUEEEUzAQNBD02H00UkvwnTTT0s9ddV4ZPEK 1hH/qTUnlyDyRi659BJMMLiEgrkoQSwTAjMefPIJ6KKPHnfppfeLCt6cCDFDmjT8AMP7MJywwQW0 1187Aco5osUYyGNtjC+ccFwhzuCK6U0OF2uoQht8FAMEoMADnfge+M7Xrwpa8HyhI0X6JGCwDGhg fvYLoe1wRzSj9c53THsa1KRGNS6oYQxZ0AXyjKGLUlzCEoeIQxjIRjnKTYESC/7EnjJyYAIRRMF7 4Auf+Cp4vtRxghNOiEAHjxTC+k3gfsp5ghPSAIqMBeoUlkjEIeYgBzjwEBdonEIOgmgWSDlgC0h8 YgabSEcncuITUZQBwYxERftRYAIToEDtbie0EhbthL9TofBa6IT9jeEVgQpUJcZoCDEUcHqUw8UU ysBGZZQgBAvAgSfimMQMmjJ0T/SeGiKgRw3w8QKz+2Mgp/UALKamC1FYwha1AElJzkEMYiDb5HqB wE2SRIjR0MEIGoCJUUqwlKd84h0/4QlMRKACezQSLAM5A2pR6wF/JGTudofIFAaPhVW7AxWooIX9 ZSELv4hnJYA5CjQScw1rUP/jMQeCgA/gQA2ecOYzpUnQaVKzmtfM5pEkMIFpebMCtZwA/lJTBR88 YQlRcIITQBHPeNrhCEcwQhPQmM8EALEkAwnBDTBAhWYG1HukTCVMD4oJTBDBAgrNAEOnZYE/vomh 4jQk75KWyHNGrYWO0KUT1tlOWnRUCUdQQhOaoIQ12GEKsVCgEAVSAge88RIufelMxxrQal7iEkLg oCv5uFOffvOPE0XMMvjggy74IAoZ3UI8aYEEJUh1CkoggxIOUIbCbFUZyczADM4K1rI69rHVxARj kyDFtRppp9OawR8pAFQS6s6EvSuq0xZZNS444gkZ1SgVQkELWvjMr1QlQgT+pgALG+yTIDrgwAPo wFiwhtWxNZUsYxVBWYX6YAYT0CwgHwDRB0i0PNGoghTsCoQoaEIYQhCCz7ZLhCYoIAdD+ZEyQqAB C4xBEb09a3Brmt5LBE0RWYiAB/mo2EBSoJvfdG5QP3vI0JpztOgsLR8y8QTU4jUK2U2wEIagBAWU AQy3JcgIUqSF97b3wu9VhCXQwErLKpYCDvXmmygQV+UEQLpScKUPfACEFjuBCGuAhQ4gXBLxIjZa QrBEhtGL3rPyOMOWCHIiOkxfCzT0oc2lwH7J6d+lKTLAVfPIdAu8hCUAwQlCIIMBikAJCEeYIMm4 gAxmkIggB3nHOzazJcb+QIXZ6bHIIPZmT0FMYj2RyUw50EEZRIAASnzheoctSJEekIgyq/nQalaE E2QXAYHlFANx1iyILYDcJYOWqP9d4VFLi62PgEQkGAl1mI5p44HcYMxoQISqC21oIYcxDUuowOwk IAMOTDEDGAAnBR5gARyAE5Al1pMytIM5UiuEBxWwQBIOoepmO1sRd/BBBWgnMGo9a758xECmcOBr QE5Av55lMqadbNThldYjX/h0qEVyvVIDiFpEOIS85b3qOjBBBrODgL4foCZoWVsG2cZAt5fL7ToL WyAVWeAxA42QScjgAkQoRCHmrYhGgDAC+s54AjbAAQ4s4GDeFHOuvf3/ABwMQBgiUHK4L620TJP2 3J7WSEhG1MmJRKILsJzDxBfxhfLWL+MZn4AGOm5rgj2cWrJ8wAB2sAMRFEMYBtcTRUpCdXcbZDV8 sIAExoAHHuA7At2sYv3Q5PEOQmvXTE/7DlCu8kLyd6gtJzeANw3zPaRb5uwOIkoV0gY2SNsCgG+0 DFJwJFhWMbkDK7qHRcD4xjMeBxMoQAGEHYSpWz0hPlhANHxggWtyYBnMQAYIKvBwCZj+9GCHqAUc kFMdOF4EOzBAAXoA2JX3d9zAm7u5oxxzW4164doaiAM0rwwU0IAHz4hGAEDfAjH74PTQn4G0EpAA Z9HX9Y03wAEKcIAB/oDAYQc/CQkcEIBoPAMGzoDBM2KwfGa0QAMXOBLg5y8B6V/gAVNowhQogIEV 61kEDXAAPdADTVAJaKBjtgd3KCR3mrZ7nWZ36kZzx0QIV5AQGNAC5Xd+x6B+7Md8KYBN0oZkziIt E4AAKTAACtBQ8ZIA3NcBKrAMMRB+RfEAzLAM0aAMz/ACLwANyrcMyNACKXABCwA40VKEFPBwRtYE cjAHhmAEU5AAAzgFYjAHrHZmCVhODPhyvAeBtkJzNUYIs5AQNLgM5VeBV9CDoQeEIZABICADbviG FBAtRqYAzCAQAVACOSAACFACMngYFqACNRgAgiiIy+CDLQCEJCAD/yWgAV7ViHF4ATOQAFMABxI3 cWM0B6tWhQjoduIWd7nXgC20hXfHbkOBPRSYECFgAchQg4VYiMyQhikAAjdwAStgAydyIm1yARVA AQXQASvQhzYSAA2AAav4iq/4g0AYiyRwATRQAiqgAggwAxYgA7t4AAcQAjcIjBTSAgYwAySADOB4 iMkoi7uCAQuQJBYgZj3FfQOwDNpYJSnQAROAAZozjuS4AAsAfzLgAGzyACzYfXX4jlVSAmVAfQ+w MCRgAyRAAvhIMCmCXNtXAAYQAu4okHryAzaAARNgjQYJJxNAfRF5AAaQAy2QjRYpdWBQBV2QawrA gpLHfQpgAA1ggiMrYJInKWxIsRhfUAU82ZMj0Iwr8AM3qY3E9ntVV3lDWSUBAQA7 --jeyvocluzceyc Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <zsitpcx> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --jeyvocluzceyc-- --fisbftnxxngklac Content-Type: application/x-compressed; name="Q169935.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --fisbftnxxngklac-- Tag: Searching a string till eof Tag: 40513
 - 24
 - Problem with Word Merge Requirement Description: - My web application has a requirement of using a few rows of data from a .jsp page, and Merge them into an existing Word template. I have developed an application using JRun Application/web server and Struts framework. I invoke the winword.exe file from my action class and pass the command line switches as the document filename and the macro name in order to do a word merge process. Runtime rt = Runtime.getRuntime (); String[] callAndArgs = strWordExePath,strWordTempName,"/mMacroName"}; Process child = rt.exec(callAndArgs); child.waitFor(); The placeholders are in the template Word document. I have built a Macro, which contains the script for invoking the merge process with appropriate data source (.xls) file and saves the merged document in a specific folder in the server. Code for macro is as follows:- Sub AutoExec() Dim sName As String Selection.HomeKey Unit:=wdStory sName = ActiveDocument.Name sName = Left(sName, Len(sName) - 9) sPath = ActiveDocument.Path ActiveDocument.MailMerge.OpenDataSource Name:= _ sPath & "\" & sName & ".xls" _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="Entire Spreadsheet", SQLStatement _ :="", SQLStatement1:="" With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=True End With ActiveDocument.SaveAs FileName:=sPath & "\" & sName & ".doc", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False ActiveWindow.Close ActiveDocument.Save ActiveDocument.Close Application.Quit End Sub The word merge process works fine and I could see the merged document in the concerned place, provided Jrun is running as an application (Admin & Default Server would be invoked from the Start button manually by a user every time the server starts). Problem: - When the above process is repeated by making JRUN as a Service, the winword.exe hangs; instead of continuing with the request and opening the word document and running the macro for word merge process. I can see winword.exe running in the Task Manager though. We tried capturing the exception but the control never returns back and the process never gets complete. Is there some conflict happening with the two Applications (JRUN and MS Word 2000) when I start using JRUN as a service? What exactly changes when I change the Jrun from being an Application to exist as a service? Is there a better approach to achieve the above-mentioned objective? I would greatly appreciate any help in this regard. Also thanking in advance for all your time and patience in reading this. Warm Regards, Nitin Tag: Searching a string till eof Tag: 40506
 - 25
 - Make an index page with hyperlinks to the index files I want a macro to search at all documents in a dir and when finds the first empty line then copy the above paragraph and paste it in a single document. After that the macro must create a hyperlink from this paragraph to the file which contain this paragraph. I hope somebody understood wht i am trying to do. Every document in this dir starts with a single paragraph (two or three lines .The paragraph it's a sort description for the rest of the document) I want to make a file with all the first paragraphs (short descriptions) in which every paragraph will link to the apropriate file. It's vey easy to do that manually but the files in the dir is 1600 and i want a macro to do that fast. Tag: Searching a string till eof Tag: 40504
- Next
 - 1
 - Is it possible to save/restore individual Printout args? For example, in the following, I'm trying to save, then restore the Print to File option. Doesn't seem to work. With Dialogs(wdDialogFilePrint) blnPrintToFile = .printtofile .FileName = strInputFile .prtofilename = strOutputFilePath .printtofile = True .Execute .printtofile = blnPrintToFile .Update End With Is there a better way to do this in VBA? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: Searching a string till eof Tag: 40491
 - 2
 - calling the "browse" dialog from with Word Macro I have a word dialog that I wrote in Vb that displays a dialog box where user can set the path(s) to different form letters they use. Currently the dialog box has 5 textboxes that user can type paths into. What i would like to do is call the "browse" dialog and return the selected path to the textbox. Can anyone steer me to something that might help. Thanks in advance for any ideas. BRC Tag: Searching a string till eof Tag: 40486
 - 3
 - Word XP changes font in automation How do I force Word for Office XP to use the original font in pasted text rather than applying its own? Normally when you copy and paste text, the font attributes go with the text but this isn't happening in Word for Office XP. We have a Word automation process that has been running without error for many years (the documents were created in Word 95 and 97.) The process merges text under program control and then copies and pastes the modified text into a new blank document for printing. No changes are saved. Most workstations run Word 97 and a few have Word 2000. We recently added an XP workstation running Word from Office XP. On this workstation only, the automated documents print with a 12 point font rather than the 10 point font specified in the template. The 10 point font is clearly available on the machine, and we've tried every setting that seems even remotely related to try and modify this behavior. The ONLY way we can get the automation process to work on this machine is to copy the Normal.dot used to create the original documents (in Word 97 format) onto this workstation and to caution the user to NEVER, NEVER allow Word to update it to the newer format when they use Word interactively. If Normal.dot is updated, the automation no longer works properly. I thought I could simply replicate the styles used in the older Normal.dot in the version for Word XP and have the problem solved. However, when I open this older Normal.dot with my copy of Word 2000, I don't see any user defined styles at all. Tag: Searching a string till eof Tag: 40485
 - 4
 - Ruler trying to get ruler so I can use it to set tabs. can't get ruler to stay. only apperars while the mouse is pointing to the line and it drops down. As soon as I move the mouse the ruler disappears. How can I get it to stay there? Tag: Searching a string till eof Tag: 40481
 - 5
 - Change Word Viewer Startup Default? How can I change the startup defaults for WordView? Specifically, I'd like it to open a document in Zoom|Fit to Page (rather than 100%) and in Full Screen mode. Because of the way we integrate WordView with our own application, I need these defaults. Or if there's some way I can control WordView programmatically when I create an instance of it, that would be acceptable as well. Thanks for your help, - Joe Geretz - Tag: Searching a string till eof Tag: 40480
 - 6
 - Numerous links to Excel in Word Report I have a 40 or so page Word report to which I've linked about 25 charts, 10 tables (as pictures), and 75 or so cell values, using the LINK field (ie. Paste Link feature). Naturally, Word is working very hard to keep all the fields automatically updated. My question is, if I used VBA and figured out how to set the Excel file as the source, created document variables that held the values of the named ranges, then placed DocVariable fields in the Word report, would that reduce the stress on Word or would Word just have to "go somewhere else" to handle the same workload? (I know there's more required in VBA but I think this conveys the general idea.) Lesa Tag: Searching a string till eof Tag: 40479
 - 7
 - Making a doc "read-only" I am opening word documents from Access. Certain users need to be able to edit the doc while others cannot. What would be the best way to handle this? Currently I have security set up on the database so that the users cannot get into a certain menu - and am using (long to short)that to determine who can open the doc for editing. I read on the knowledge base that the VBA code doesn't work as expected and that one should use Basic - but I am not having any problems opening the doc's and editing them. I am using: oApp.ActiveDocument.ReadOnly = True where "oApp" is set to "word.application" I have also tried using ":=" versus just "=". I have something wrong here, but I cannot figure out exactly what it is?! Any pointers?? Thank you all so much for your help & time! Tag: Searching a string till eof Tag: 40475
 - 8
 - WINWORD.EXE still in Task Mgr after error? (Running Office 2000 on Win 2000) I'll test-run a macro that opens a docment, but error out the macro before it's finished and the document opens. After correcting the error, I'll restart the macro, but now get a warning that the doc is locked and can only be opened Read-Only. A check of the Task Manager shows that, even after shutting down Word, I've still got a WINWORD.EXE process running. (I'm assuming it's calling for the to-be-opened doc? which would be why Word says its locked?) Is there something I can put in my code that will prevent this by totally unloading Word if an error occurs? Ed Tag: Searching a string till eof Tag: 40473
 - 9
 - capital letter Hi I need to create a userdefined bulletpoint. That is no problem, but futhermore I need to make sure that the user starts every sentence afterwards with at capital letter. I can't use the build in autocorrection - I need to have the answer i vba-code. Thanks Tag: Searching a string till eof Tag: 40467
 - 10
 - Custom Toolbar remaining invisible Hi, I have a template which we have been using for some time without problems. It has two custom toolbars. Recently when the document has been re-opened, the custom toolbars are not visible. They can be made visible by right clicking on the toolbar area and selecting the two toolbars. But I would like them to appear at all times. I have tried adding the following code to the AutoOpen module without success. CommandBars("StdLetter").Visible = True CommandBars("Status").Visible = True Any suggestions? Thanks, John Tag: Searching a string till eof Tag: 40453
 - 11
 - turn off "password to open" feature Hi everyone, I need to disable "password to open" feature because I have a problem when some users quit the office and left word documents with "password to open". I prefer to disable the option than use a software to crack the password. Any Ideas? Thanks in advance.... Martin Tag: Searching a string till eof Tag: 40443
 - 12
 - Retrieving current user Word XP Windows 2000/XP mixed environment ChangeFileOpenDirectory "C:\Documents and Settings\%username%\Desktop\" is there a way to find the current user name that is logged into the machine? Tag: Searching a string till eof Tag: 40439
 - 13
 - changing SaveAs dialog leaves Name window blank Jay Freedman recently pointed me to this code provided at the MVPs site which opens the SaveAs dialog to the desired folder. However, it also has the effect of leaving the Name window in the dialog blank instead of putting the first several words of the document into the Name window by default. If I remove the backslash following "tests", then "tests" appears in the Name box. Is there any way I can modify this code as to get its benefits while still keeping Word's default behavior of displaying the first words of the document in the Name box? With Dialogs(wdDialogFileSaveAs) .Name = "C:\Documents\tests\" .Show End With Thanks much, Larry Tag: Searching a string till eof Tag: 40438
 - 14
 - Parsing Word To HTML using ASP.Net Hello Everyone, Can someone please provide me some advice on how to parse the contents of an html file which was originally an MS Word doc. So far, my application allows the users to upload their docs to my server and I'm able to save it as html. However, all the proprietary ms html code is included within the page. I need to know how I can parse the contents out of this page into an xml doc. Thank you in advance. Nick Tag: Searching a string till eof Tag: 40434
 - 15
 - Word as Automation Server Hi, Is there any way from a macro to determin if Word is started as an Automation Server or not, or to get the parameters sent to Word when it was started. When Word is started as an Automation Server the parameter '/Automation' is passed to the EXE when it's executed. Regards, Lars-Eric Tag: Searching a string till eof Tag: 40433
 - 16
 - Security and VBA Macros We have purchase a vba certificate and signed the dot that contains a bunch of macros. However when the dot is placed on the users machine they get an error that it is not from a trusted source. What was the point of us getting a certificate if this pops up on the users machine. Is there anything that we can do to make this process clean for the user? Thanks -- Michael Tissington http://www.tabtag.com http://www.oaklodge.com Tag: Searching a string till eof Tag: 40417
 - 17
 - How do I find the number for a numbered list programmatically I am having problems where numbered lists don't start at the number 1. I understand about how this is a feature, and don't need any information about how to restart or reset the numbering. I want to programmatically check to make sure that whenever I have a numbered list, I can confirm that the first entry in the list has the number 1, not 4 or 10. I can't find any method of doing this. Can anybody give me a hand. Thanks. Tag: Searching a string till eof Tag: 40415
 - 18
 - Macro to import macros? I've got a program that creates macros and then writes them to a text file (or .bas, doesn't matter). I also want to be able to import these macros into Word and then run them automatically. Since the macros are modified every few months, the user has to be able to just open word, import the new macro and overwrite the old one, then run it without having to go into the VB editor. Is there a way I can do this? ------------------------------------------------ ~~ Message posted from http://www.WordForums.com/ ~~ View and post usenet messages directly from http://www.WordForums.com/ Tag: Searching a string till eof Tag: 40413
 - 19
 - Macro to find file path of specific file. Can anybody please tell me how to write the macro that find the file path of file such as word.txt or notepad.exe in the computer? Tag: Searching a string till eof Tag: 40412
 - 20
 - Keystrokes for Macros Why is it that the keystrokes I assigned to my macros only work after I run them in the current document. I can not get them to work if I open a document and hit the assigned keystroke. If I go to tools then macros then run macro the macro will run. After I have done all these steps I can then hit the key storke and it will work for the macro I just ran. Is there anyway I can have the keystrokes always working? Tag: Searching a string till eof Tag: 40411
 - 21
 - How do I get the reason that a word is misspelled I am programmatically checking the spelling in a document and flagging the errors. The problem is that many times when I have two words repeated, it is being flagged as a spelling error. The exact example is in French, and is "Vous vous en servez pour indiquer ..." (where ... is just more words continuing. This is perfectly good French, and shouldn't be flagged. There has to be a way to get the reason that the word is flagged. If I do the spellcheck manually, this is flagged as "Repeated word", so there has to be a way to get the reason that a word is flagged, but I can't find it. I am specifically looping through the document, looking at individual paragraphs, and one of the checks is to look at the paragraph(i).range.spellingerrors.count, and then checking every paragraph(i).range.spellingerrors (j).range.text. Hopefully, this is clear. Can anybody tell me how to find the reason a word is rejected? Tag: Searching a string till eof Tag: 40410
 - 22
 - Protecting documents Hi, I'm new to using word other than for simple letters and I'm trying to protect a document using the Tools/Protect document method. This works fine but I need to protect only half the sections of the page and leave the rest free for alterations/overtyping. Is it possible to protect certain sections of a page in the way that excel can do it? Thanks Lee Tag: Searching a string till eof Tag: 40406
 - 23
 - when the document is loaded execute code does not run ? This is my first attempt at coding on vba and have created the following: I have a field names jsano in my document as a text field, it is a simple update and it does not execute when the document loads, any help would be greatly appreciated. Private Sub Document_Open() If jsano = "" Then Open "c:\jsa.ctrl" For Input As #1 Input #1, njsa Close #1 jsano = njsa xjsa = njsa + 1 Open "jsa.ctrl" For Output As #1 Write #1, xjsa Close #1 End If End Sub Tag: Searching a string till eof Tag: 40396
 - 24
 - Passing control names to Functions?? Hi Folks, I'm trying to pass the names of controls in a form to a Module so that I can create a generic function to handle resizing controls regardless of the form name, list name etc but don't know how to do it...... I have a form called Form1 and a listbox in the form called ListBox1. I've declared these in the form and then set them to the control names Public FormName As String Public ListName As String Public WidthofList As String FormName = Me.Name ListName = Me.lstCommName.Name WidthofList = Me.lstCommName.Width I also have an array which I set to testit() Then I pass the array into the function (which works fine) like.. testit() = MyArray ResizeList testit() All ok so far but I get an object required error when it runs in my module! here's the code.. Public Function ResizeList(testit() As String) Dim aTempArray() As String 'temp array to hold items for length check Dim iCharcount As Integer 'number of characters in the committee name Dim iHighNum As Integer 'highest number of characters so far Dim i As Integer aTempArray() = testit() iHighNum = 0 For i = 0 To UBound(aTempArray, 1) iCharcount = Len(aTempArray(i)) If iCharcount > iHighNum Then iHighNum = iCharcount Else iHighNum = iHighNum End If Next If iHighNum >= "120" Then FormName.ListName.Width = WidthofList FormName.ListName.ColumnWidths = "640" ElseIf iHighNum >= "90" And iCharcount < "120" Then FormName.ListName.Width = WidthofList FormName.ListName.ColumnWidths = "440" ElseIf iHighNum < "90" Then FormName.ListName.Width = WidthofList FormName.ListName.ColumnWidths = "328" End If End Function Any Ideas??? Cheers Tag: Searching a string till eof Tag: 40392
 - 25
 - Controlling Multipage Tab Pages Hi Guys! I need a pop up form that allows me to navigate to one of three multi-page tab pages. There are over 30 text boxes associated with my form so the multipage tab control is the only method available of presenting the information on screen. The multipage tabs relate to one of three completion / data input stages that will be carried out at different times by different individuals. Within the 1st stage there will data input into the first page of the form and then the template will be saved as a document. When the word doc is then re-opened the 2nd and 3rd stages will be completed being resaved in the same drive/folder each time. My intension is to have a form appear on the load event of the word document and using a series of buttons the appropirate page can be navigated to within the main data input form. One further element that would be very useful would be for any of the previously added data to be extracted from the form fields within the saved document and then placed within the form text boxes. Can anyone help with any of this? The two key areas of concern are: 1.) The code I need to have the stage form pop up on the open event. 2.) The code to open the data input form at the appropirate page/tab. 3.) Form field contents being carried across to the form text boxes. Thanks to anyone who contributes. Nick Tag: Searching a string till eof Tag: 40388

I want to search (through VBA) a string "ABC N.N", where n may be any
number, one by one till end of Document & simoultaneously add a unique value
to it, can this be possible?

Regards,

G Bahri

Top