MSWord 2000 menu bar

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Macro breaks but works when breakpoint used I'm pulling my hair out on this one. I've got a document w/ several protected sections. In the event that the text in one of the unprotected sections is accidently deleted, I've written a macro to replace the text and tag it with some required character and paragraph styles. Here's the catch: when I execute the macro, I get a Runtime error 4605 - "This method or property is not available because the object refers to a protected area of the document." Yet, when I set a breakpoint on and step through the "Selection.Style = ActiveDocument.Styles" line, it all works as expected. Here's all i'm trying to do: Selection.MoveRight unit:=wdCharacter, Count:=17, Extend:=wdExtend Selection.Style = ActiveDocument.Styles ("IntelinkSummaryTitle") Selection.MoveRight unit:=wdCharacter, Count:=7 Tag: MSWord 2000 menu bar Tag: 40657
 - 2
 - Word VBA Problem Hello I've been maintaining a set of Word VBA macros for a few years at the office, and have a routine which prints the current document to a pre-set printer and tray(s). The pre-sets have been saved in the Registry, so the routine pulls these out and uses them to reset the ActivePrinter, print the document and then reset the ActivePrinter from saved data. This works fine for Word 97 (on Win 98 & 2000) and Word 2000 (Win2000 & XP). Word 2002 (Win XP) crashes completely (not just a VBA error, but Word itself) when it reaches the line which alters the DefaultTray to the saved setting. I have pasted the essential elements of the routine below. I'm hoping someone will be able to tell me why this is happening with the "new and improved" Word, when the old versions work quite happily with it. Any help is greatly appreciated. Best wishes Peter Kessler Kessler Associates E: digital@kessler-web.co.uk W: http://www.digital.kessler-web.co.uk Public PrintDocument() Dim SelectedComboBox As String 'Get the saved printer and tray settings from the Registry cboCInvPrint1 = System.PrivateProfileString("", lsection, "CInvPrint1") cboCInvPrint2 = System.PrivateProfileString("", lsection, "CInvPrint2") cboCInvTray1 = System.PrivateProfileString("", lsection, "CInvTray1") cboCInvTray2 = System.PrivateProfileString("", lsection, "CInvTray2") SelectedComboBox = cboInvPrint1 ComboBoxChange ' Set Tray 1 for Page 1 If cboInvTray1 <> "" Then With Options .DefaultTray = cboInvTray1 '******************** Word crashes here End With 'Routine then prints page 1... End Sub Public ComboBoxChange() With Dialogs(wdDialogFilePrintSetup) .Printer = SelectedComboBox .DoNotSetAsSysDefault = True .Execute End With End Sub Tag: MSWord 2000 menu bar Tag: 40652
 - 3
 - Can VBA in Office v.x do interprocess communication? I am in the process of designing a solution for the following requirement: We need to allow users to create a "template" in word (not necessary a word template, but a word document that will be used to create other word documents via parsing). The template will be dynamically populated with data from the active document in our application which is running in another process. The solution must work on PC and Mac. On Windows, the obvious route is to use COM to pull data from our app into VBA and then push it into the template. My question is this: is there any equivalent to that using VBA in Mac Office v.x? Does Apple Script provide the same capability as COM does on windows? I'm pretty new to Mac development, so pardon my ignorance. Other solutions we are considering are using RTF and writing our own parser/template engine...not sure which would be easier. Any feedback would be extrement appreciated. Greg Tag: MSWord 2000 menu bar Tag: 40650
 - 4
 - styling references using wildcards/find-replace I am trying to style references with macros/wildcards, using the find/replace function, like 140 Vogler BK, Pittler MH, Ernst E. Feverfew as a preventive treatment for migraine: a systematic review. -Cephalagia- 1998; *18:* 704?08. I managed to bold the volume numbers, since nowhere else in references there are digits followed by a colon. However, I don't know how to specify the place where the publications sit: they are followed by the publication date, and the semi-colon, but the space before is not specific enough (there are many other occurrences of a full stop followed by a space), so that any find/replace function I created selected more text than I wanted. Any solutions? ------------------------------------------------ ~~ Message posted from http://www.WordForums.com/ ~~ View and post usenet messages directly from http://www.WordForums.com/ Tag: MSWord 2000 menu bar Tag: 40649
 - 5
 - Problem with VBA runtime efficiency I have a VB standard exe program as following: Dim app as new Word.Application app.Visible = False Dim doc as Word.Document Set doc = app.Documents.Open("some word document") Dim str As Word.Range StartTime = Time For i = 1 To 10000 Set str = doc.Range Next i EndTime = Time MsgBox DatedDiff("s",StartTime,EndTime) doc.Close Set doc = nothing app.Quit Set app = Nothing It takes 25 senconds to execute this program,o my god,I don't know why,because if i use macro to run this program in word document,it takes less than 1 sencond.why the execution efficiency is so slow?Could anybody tell me how can i improve the efficiency or what's wrong with my program.thank you very much Tag: MSWord 2000 menu bar Tag: 40647
 - 6
 - Find and Replace macro Hi everyone, I have a very simple macro that all it does is search and replace for text in the document. The problem is that it doesn´t find nor replace the text inside footers and headers. However, if I use Find and Replace from the Edit menu... works ok. It's weird, since I irecorded the macro using that menu. Any ideas? Thanks, from Spain. Juan Tag: MSWord 2000 menu bar Tag: 40646
 - 7
 - escape codes can anyone help me with an example code of how to sent an Escape code to the printer in VBA. For instance I want to sent the code <esc>&I3G to an OCE printer. regards, mario Tag: MSWord 2000 menu bar Tag: 40641
 - 8
 - DocumentOpen event does not run We use a DocumentOpen event procedure to carry out a set of checks/actions whenever a document is opened. This works fine, as a rule. But if in a Word session any other procedure is stopped for whatever reason (this seems to be one of the reasons we 'lose' it but there may be others), after that the event procedure does not kick in until Word is restarted, unless the application object is re-initialised. But no error/message is displayed to hint that anything gone wrong. Can duplicate the 'error' by stepping through and stopping any procedure. After doing so the event procedure doesn't run. Is there a way to stop this happening, or to automatically re-initialise the application object if it does? Any help appreciated. Caroline Tag: MSWord 2000 menu bar Tag: 40639
 - 9
 - Tooltips in listbox? Hi Folks, Does anyone know how I can get tooltips for Listbox items in VBA? I know how to do this in VB (Have code) but the same process does not work in VBA! Are the activeX controls different? If anyone knows how to do this I'd be mighty grateful! Cheers J Tag: MSWord 2000 menu bar Tag: 40638
 - 10
 - Moving macro's from Template to Document I have a template from which users can create a document. When they then send the document to someone else (that does not have the template), the macro's have disappeared. Is there a possibility to copy the macro's and modules from the template to the document, each time a new document is created from the template ? Tag: MSWord 2000 menu bar Tag: 40637
 - 11
 - programatically setting the footer of a word document Hi, I am new to VBA, so would appretiate some help. I am trying to programatically create many word documents from VB. I have a word template with a few form fields in it, which I open and substitute whatever I want to into the form fields and save the doc. (all this i do in a loop) 1. I am not being able to put a form field in the footer. 2. Alternatively, I would also like to set the footer of the word document. But I am not being able to do that too. Can anyone pls. tell me how to set the footer of a word document from a VB code ? I tried doing some recording which gave me the foll. code 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 Selection.TypeText Text:="Header that I want to set" Selection.MoveDown Unit:=wdScreen, Count:=3 Selection.TypeText Text:="Footer Left text" & vbTab & "Footer center" & vbTab NormalTemplate.AutoTextEntries("Page X of Y").Insert Where:=Selection. _ Range, RichText:=True ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument On putting this code in the VB form, I am getting an error saying that Command not available since no word document is open ! (in the vb code, the word application instance is set to NOT visible) Thanks in advance Darshan Tag: MSWord 2000 menu bar Tag: 40634
 - 12
 - ! Referencing Bookmarks from Code ! Hi, I have set up bookmarks and other merged fields in a word DOT file and want to use code to perform some calculations to populate certain bookmarked fields. I was wondering if it was possible to reference a bookmark from a Word doc, and if so, how it is written? E.g. The GrossAmount is the bookmark in Word. And the Datafields "Dollar1/2/3" are referencing "Documents ("filename.DOT").mailmerge.datasource" GrossAmount = .DataFields("Dollar1").Value _ + .DataFields("Dollar2").Value _ + .DataFields("Dollar3").Value If there is a way to reference bookmarks, which event do I put this in so that Word knows when to sum it after the fields have been merged (because prior to merge, there is no data there for it to sum). Thanks Wembly. Tag: MSWord 2000 menu bar Tag: 40630
 - 13
 - Opening Excel Workbook from Word using VBA - Always Read Only Hi All, I wasn't sure whether this should be a Word or Excel query so I have cross-posted. Apologies if anyone objects! I am using the following code in a module in Word to open an existing Excel document: Sub Open_Plan() Dim xls As Object Dim wrk As Object Dim xlfilename As String xlfilename = "F:\Alan\Plan.xls" Set xls = CreateObject("Excel.Application") xls.Visible = True Set wrk = xls.workbooks.Open(FileName:=xlfilename, Updatelinks:=0, ReadOnly:=False, Password:="password") End Sub This works fine, except that it seems to skip or ignore the 'ReadOnly = FALSE' argument, and the file still opens as Read Only every time. I am stumped as to how to get around this. Thanks in advance for any help you can provide. Alan. Tag: MSWord 2000 menu bar Tag: 40627
 - 14
 - fonts Is there a way when choosing a font [in Word 97] to return to the previously used font? It always goes back to the default font. Thanks, Eileen Tag: MSWord 2000 menu bar Tag: 40625
 - 15
 - Repeated consecutive words This is a multi-part message in MIME format. ------=_NextPart_000_000B_01C3A32A.AFA81CD0 Content-Type: multipart/alternative; boundary="----=_NextPart_001_000C_01C3A32A.AFA81CD0" ------=_NextPart_001_000C_01C3A32A.AFA81CD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blanco HI: I need a macro that find any repeated consecutive word in a Word = document. I'm working with large document and sometimes it have (wrong) = consecutive repeated words, and sometimes it pass the manual revision = and the final document goes with that repeated words. I don't need that the macro eliminates the word, just mark it and we = decide if eliminate it or not. Any help will be so much apreciated. Thanks in advance, Omar ------=_NextPart_001_000C_01C3A32A.AFA81CD0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE id=3DridTitle>En blanco</TITLE><BASE=20 href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft = Shared\Stationery\"> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <STYLE>BODY { MARGIN-TOP: 25px; FONT-SIZE: 10pt; MARGIN-LEFT: 25px; COLOR: #000000; = FONT-FAMILY: Arial, Helvetica } P.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } LI.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } </STYLE> <META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD> <BODY id=3DridBody bgColor=3D#ffffff=20 background=3Dcid:000601c3a343$d4f2e3d0$7ef82bc8@mipcxt400> <DIV> </DIV>   HI:   I need a macro that find any repeated consecutive word in a Word = document.=20 I'm working with large document and sometimes it have (wrong) = consecutive=20 repeated words, and sometimes it pass the manual revision and the final = document=20 goes with that repeated words. I don't need that the macro eliminates the word, just mark it = and we=20 decide if eliminate it or not. Any help will be so much apreciated.   Thanks in advance,     Omar  </BODY></HTML> ------=_NextPart_001_000C_01C3A32A.AFA81CD0-- ------=_NextPart_000_000B_01C3A32A.AFA81CD0 Content-Type: application/octet-stream; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <000601c3a343$d4f2e3d0$7ef82bc8@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_000B_01C3A32A.AFA81CD0-- Tag: MSWord 2000 menu bar Tag: 40624
 - 16
 - format problems when cut/paste on letterhead doc I have a "letterhead" document (not a template) which I use to create letters by copying and pasting the body of the letter onto it. With the exception of the letterhead portion, it is blank until I copy/paste the body or substance of the letter onto it. But when I do so, the part that I copied requires alot of cleaning up: incorrect font, messed up paragraphs, spacing, bold, margins, etc. Can anyone help me so that when I copy onto my letterhead, it will not require all this cleaning up? Thank you very much for your assistance. (I tried to create a template, but copying and pasting created the same problem.) attymusic Tag: MSWord 2000 menu bar Tag: 40621
 - 17
 - Bring Word to the front (ZOrder 0) Hi, I have an application which outputs RTF files to Word, which in turn runs a macro on the open document. The problem is sometimes Word does not open in the foreground, I need to manually select it in the task bar to bring it to the front. How can I bring the active window in Word to the foreground (using VBA). I've tried using the Activate method on the document's window but it only makes it the active window in Word, it does not bring it to the foreground. I've looked at the SetWindowPos API call but I need to pass it the hwnd of the active window, something which to my knowledge VBA does not provide for. I am using Word 2000/2002 on Windows 2000. Cheers, John Tag: MSWord 2000 menu bar Tag: 40620
 - 18
 - Macros on a protected document I have a global template that is loaded when Word starts up. It contains some macros that used to work for some protected documents that have form fields. On exiting one of the form fields, I used to run a macro, but today that all stopped?!? I don't understand what happened. Now when I open the template I can no longer access the macros let alone even run one. Any ideas what I may have done? Thanks in advance, Chris Tag: MSWord 2000 menu bar Tag: 40619
 - 19
 - Form Fields I am using the following code to protect a form. Is it possible that protecting a form can set a checkbox to true? ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True, Password:=FORM_PASSWORD Mark Baird Tag: MSWord 2000 menu bar Tag: 40615
 - 20
 - Merging documents I am trying to open a series of Word documents and then merge them into one larger document. Allis going well until I get to a document that as a Header....this does not get merged into the one larger document. The process I am using is: objDoc = Documents.Open(FileName:=strDocumentName, _ ReadOnly:=False, _ PasswordDocument:="xxx", _ WritePasswordDocument:="xxx") objWordApp.Selection.WholeStory ' *** this is not getting the Header objWordApp.Selection.Copy objWordDoc.ActiveWindow.Activate ' activate new document objWordApp.Selection.MoveDown Unit:=wdScreen, Count:=2 objWordApp.Selection.InsertBreak Type:=wdPageBreak objWordApp.Selection.Paste Can anyone please help me? Thanks, Barry Tag: MSWord 2000 menu bar Tag: 40612
 - 21
 - Word Form-Field Capitalization Is it possible to set up a Word 2002 form field such that sentences beyond the first one entered into the field begin with a capital letter? I use fields that contain multiple sentences not infrquently and the first letter issue is easily tackled with the "First Capital" setting for the first sentence only. The setting appears not to be carried through to subsequent settings, however. Any help or pointers appreciated. Tag: MSWord 2000 menu bar Tag: 40604
 - 22
 - Invoke a macro using the last-typed word as a macro name? I've previously asked about using an AutoCorrect entry to open a UserForm or invoke some code. I have a feeling that this may not be possible, but have an idea that would simulate it. Could someone please sketch out the code for: As I'm typing a document, instead of typing the next word in the sentence, I type the name of a macro. After the last character of the macro name I just typed, I press a function key, or an Alt+SomeLetter combination. At that time, Word deletes the previously-typed macro name from the document and invokes a macro having the same name as the previously-typed-but-now-erased word. (This would either insert text at the cursor, or open a userform. The fields in the userform would then be put into a string that would insert some canned text at the cursor.) If you can make any sense out of what I just wrote, please head me in the right direction ... TIA Tag: MSWord 2000 menu bar Tag: 40598
 - 23
 - Can I "Get *this* table and put *here*"? I hope I can word this intelligently. I get a range from an Excel spreadsheet and paste it as a table into Word. The Word table is then broken into several smaller tables, based on a code group in the last column - this is saved as its own document. Could be anywhere from 20-40 smaller tables, each of which needs to go in its corresponding place in a report. There are actually about a hundred possible code groups. Is there any way I can write some code for the report that will: (A) find the code group mentioned in the paragraph preceeding the table's place, (B) open the document with the tables, find the right one, and paste it in, and (C) automatically update the report upon opening with the latest saved tables? Ed Tag: MSWord 2000 menu bar Tag: 40597
 - 24
 - Can an Autocorrect entry open a Userform or run VB code? I have a situation in which the use of AutoCorrect entries are a great advantage in typing reports. It would be even more useful if an AutoCorrect entry could open a UserForm and data entered in that form could be inserted into the document. Is that possible? Could anyone supply, or tell me where to find some code to do that? TIA Tag: MSWord 2000 menu bar Tag: 40591
 - 25
 - Word Save Document Macro Hi, i have create a Word Makro with has Events for SaveAs, SaveAll, DocumentClose. I don't want that the user saves the Document. That works fine. But my question is the following: How can i call a Makro with Events like onClose, onSave from another Word Document? That means i have Doc1.doc and MacroDoc.doc. Now i want to run Doc1.doc and on Startup or CommandLine i want to call the Macros of MacroDoc.doc. Or otherwise: How can i add a Macro to a Word Document wich is stored in a .bas File via CommandLine???? Thank you Yavuz Bogazci Tag: MSWord 2000 menu bar Tag: 40590
- Next
 - 1
 - Mail Merge I have a HP9000 with a saddle stich option which allows me to make booklets. The limitation for a booklet is 40 pages. Currently I have a 36 page booklet that I wish to use in a mail merge for 20 unique people. When the mail merge is complete I end up with a document of 720 pages (36 x 20). Now my printer will not make the booklets because it thinks there are too many pages. How can I do a mail merge like this and instruct the printer to start a booklet after each 36th page?? Help. Tag: MSWord 2000 menu bar Tag: 40588
 - 2
 - Filesearch... How can'I search the files what are including a string? (+ Filesearch) Tank Juan Carlos Biancotti jcbiancotti@QUITAESTOiespana.es Tag: MSWord 2000 menu bar Tag: 40587
 - 3
 - Merging two cells into one I have a short macro that selects the current cell of a table, and the one below it, and merges them both into one cell: Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Cells.Merge However this macro does not work when the current cell contains text of more than one line (because of the 'Unit:=wdLine' bit, presumably). Is there a parameter I can use instead of wdLine? It does not seem to accept wdParagraph or wdTableCell or anything like that... Steve Wylie Tag: MSWord 2000 menu bar Tag: 40586
 - 4
 - 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: MSWord 2000 menu bar Tag: 40577
 - 5
 - 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: MSWord 2000 menu bar Tag: 40576
 - 6
 - 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: MSWord 2000 menu bar Tag: 40575
 - 7
 - 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: MSWord 2000 menu bar Tag: 40571
 - 8
 - 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: MSWord 2000 menu bar Tag: 40566
 - 9
 - 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: MSWord 2000 menu bar Tag: 40561
 - 10
 - 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: MSWord 2000 menu bar Tag: 40560
 - 11
 - 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: MSWord 2000 menu bar Tag: 40558
 - 12
 - 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: MSWord 2000 menu bar Tag: 40557
 - 13
 - 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: MSWord 2000 menu bar Tag: 40556
 - 14
 - 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: MSWord 2000 menu bar Tag: 40554
 - 15
 - 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: MSWord 2000 menu bar Tag: 40550
 - 16
 - 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: MSWord 2000 menu bar Tag: 40544
 - 17
 - ! 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: MSWord 2000 menu bar Tag: 40540
 - 18
 - 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: MSWord 2000 menu bar Tag: 40539
 - 19
 - 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: MSWord 2000 menu bar Tag: 40536
 - 20
 - 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: MSWord 2000 menu bar Tag: 40531
 - 21
 - Thanks for the good advice... ...Not being a frequent visitor, I didn't appreciate the sense of what you've written. Many thanks! Tag: MSWord 2000 menu bar Tag: 40530
 - 22
 - 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: MSWord 2000 menu bar Tag: 40529
 - 23
 - 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: MSWord 2000 menu bar Tag: 40527
 - 24
 - Using Word 97 on Win 98 Forgot to mention that I'm using Using Word 97 on Win 98. Thanks Tag: MSWord 2000 menu bar Tag: 40524
 - 25
 - 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: MSWord 2000 menu bar Tag: 40522

I need to modify the Word menus that were created by
another staff person who is not available for assistance.
I have searched for the code and have not been successful.

Top

Re: MSWord 2000 menu bar by Jonathan

Jonathan
Thu Nov 06 04:18:30 CST 2003

The Customize item on the Tools menu brings up the dialog that allows you
modify menus and toolbars.

--
Regards
Jonathan West - Word MVP
http://www.multilinker.com
Please reply to the newsgroup

"jrlindsa@co.riverside.ca.us" <anonymous@discussions.microsoft.com> wrote in
message news:115701c3a3ca$bfbe0ad0$a601280a@phx.gbl...
> I need to modify the Word menus that were created by
> another staff person who is not available for assistance.
> I have searched for the code and have not been successful.

Top