run-time error 91 in word 2003

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - How to add items to Right Click menu Hi, Can anybody point me to information that will help work out how to add additional items to the right click men that appears? I have the rightclick event being catpured abd can display my own tool bar I created, but then the default right click word menu still appears after the commandbar has been dismissed. What I'd like to do is add my menu items to the default right click menu that appears. I cannot find any information on how to do this so if anyboyd knows your assistance is greatly appreciated. regards Shane Parkinson Tag: run-time error 91 in word 2003 Tag: 55615
  - 2
    - icon to userform titlebar Using Word 2002 and 2003. Trying to put an icon in the titlebar of a Word userform. I got code for this that works nicely in Excel, but in Word the icon shows as an empty space, without the picture. This is the code I have: Option Explicit Private Declare Function FindWindow _ Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" _ (ByVal hWnd As Long) As Long Sub PastePictures() Dim hIcon Dim frm As Long Dim wHandle As Long On Error Resume Next If Val(Application.Version) >= 9 Then wHandle = FindWindow("ThunderDFrame", frmNotes.Caption) Else wHandle = FindWindow("ThunderXFrame", frmNotes.Caption) End If If wHandle = 0 Then Exit Sub Else hIcon = frmNotes.imgPict.Picture SendMessage wHandle, &H80, True, hIcon SendMessage wHandle, &H80, False, hIcon frm = GetWindowLong(wHandle, -20) frm = frm And Not &H1 SetWindowLong wHandle, -20, frm DrawMenuBar wHandle End If End Sub Perhaps one of the API arguments (&H80 or -20) has to be different. Thanks for any advice. RBS Tag: run-time error 91 in word 2003 Tag: 55614
  - 3
    - Help With Error Handling Please I have code that I can't work out the error handling. It is used to find text and replace with AUTOTEXT. There is an error handler that will detect an incorrect process for inserting the AUTOTEXT when the dialog opens. Basically you select the entry in the dialong and press insert. If OK or Canel is pressed the handler displays a message and then starts again at the beginning. All works well, the first time a User goons ups the insert. However, I deal will very talented goons and if the Users messes up a second time then a Run Time Error "The method or property is not available because the object is empty." I can't figure out 1) Why the existing error handler can't deal with this and 2) How to code an error handler that will. Thanks. Sub ReplaceWithAUTOTEXT() Dim FindText, ReplaceText As String FindText = InputBox("Enter the text string you want to find", Find) GetInput: On Error GoTo Oops 'Handle incorrect AutoText request 'Create scratch pad Documents.Add Dialogs(wdDialogEditAutoText).Show 'Cut the inserted entry to the clipboard Selection.HomeKey Unit:=wdStory, Extend:=wdExtend Selection.Cut 'crumple up scratch pad :-) ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 'Replace the requested text with the clipboard contents. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = FindText .Replacement.Text = "^c" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Oops: ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges MsgBox Prompt:="Reselect the autotext entry and click 'Insert'", _ Buttons:=vbExclamation, _ Title:="Incorrect autotext insertion" GoTo GetInput End Sub -- Greg Maxey A peer in "peer to peer" support Rockledge, FL To e-mail, edit out the "w...spam" in gmaxey@whamspammvps.org Tag: run-time error 91 in word 2003 Tag: 55605
  - 4
    - Overflow Error Word 2000 This question may be a little difficult to answer just from the small snippet of code that I'm posting, but I'll try to explain what is happening. I have the following code: While RecordEnd < cbDataLength AddToLocatesCollection = True FindMessageMarker RecordEnd = InStr(RecordStart, cbData, MessageMarker) + MarkerLength + 1 RecordLength = RecordEnd - RecordStart + 1 cbDataClip = Mid(cbData, RecordStart, RecordLength) GetRecordNumber CheckForClearedTag If AddToLocatesCollection Then CheckRecordExclusionsCollection If AddToLocatesCollection Then CheckLocatesCollection If AddToLocatesCollection Then CheckDocument If AddToLocatesCollection Then LocatesCollection.Add (cbDataClip) RecordStart = RecordEnd + 1 Wend Basically, the contents of cbData come from the clipboard (read in by another routine), so cbData can contain a HUGE chunk of information. So I chop up the data and feed it in pieces into cbDataClip. I then pull out a number of important pieces of information (GetRecordNumber and CheckForClearedTag), and then run several tests on the data to see if I want to add it to a collection. The collection that data gets added to is eventually processed again, and all the items in the collection are pasted into the document. It all works pretty well. Tonight, I did my first large scale test of the program, and I encountered the following error: Runtime error '6': Overflow In debugging the program I found that I had declared RecordStart as and integer, and the the value of RecordStart was exceeding the limit for an integer. I was able to fix the bug by declaring RecordStart as Long. This should work because RecordStart, in practical use, should never exceed the limit for an integer (my test was purposely the hairiest scenario I could devise, so was beyond what would be seen in normal use by a factor of probably about 100), let alone the limit for a Long data type. My test string of data was almost 45,000 character in length. In practice, the data being processed at any one time will rarely exceed 1,000 characters, and I don't know of any instances where it has ever exceeded 5,000 characters. I thought about redefining cbData each time through, so that it would throw out the data that has just been processed and, in essence, move everything remaining in cbData forward. This would prevent RecordStart from ever exceeding the limit for an integer. So here's my question. Would it be better to redefine cbData and avoid the problem of hitting the maximum for an integer, or is my solution good enough? -- Tom MT DOJ Help Desk Making the world a safer place. Tag: run-time error 91 in word 2003 Tag: 55604
  - 5
    - Can't get into Word. I had to delete everything on my hard drive about a week ago. I reloaded everything that I have but when I went into Word it asked me for my product key. I don't have this number. What do I do? Or what can I do? Thanks! Tag: run-time error 91 in word 2003 Tag: 55602
  - 6
    - Word macros failing after installing XP SP2 I just installed XP SP2 on XP Pro. A bunch of macros that I was using in Word 97 and Word 2003 immediately before the service pack install are no longer working. I don't have an exhaustive list of what's not working, but here are a couple I ran into right away: left() and mid() are gone. Error is "Can't find Project or Library," thrown during compilation phase. The statement Selection.style = ActiveDocument.Styles("Normal") gives the error "Could not open macro storage" during execution. The version of Word is Word 97 SR-2. Word 2003 11.6113.5606 was installed in a separate directory, long after installing Word 97. All was fine before XP SP2. Ironically, I'm trying to write an article about the changes people should expect to see on installing SP2. Any advice and direction on this would be greatly appreciated. Brian Tag: run-time error 91 in word 2003 Tag: 55591
  - 7
    - Flow many lines into 1 very long line I need to flow several lines together. The data looks like this, only there are over 1000 lines. 100010206116W502 100010207506W500 100010503204W502 it needs to become IN(100010206116W502,100010207506W500,100010503204W502) to be pasted into a "canned" SQL filter in another program. How can I tell VBA to go to the line end and add a comma, remove the return, repeat to the end of the file and add the ")"? Thank-you. Tag: run-time error 91 in word 2003 Tag: 55589
  - 8
    - how avoid changing of template Hello I've written a VB6-application for word-automation. The App starts word and creates a new doc which is based on a word-template. After filling out the doc with text and formfields I interrupt the reference from the VB6 to word. After saving the document and closing them I am asked if the changing of the template should be save too. What can be the reason that the template is be changed and how can I avoid the dialog? In the code there is no line which touches the content of this template. Thanks Peter Tag: run-time error 91 in word 2003 Tag: 55585
  - 9
    - form drop-down values fail to save as text Word 2003 form drop-down values fail to save as text. My "status" drop-down saves as: [status]</status> It should save as: [status]mystatus</status> The following workaround failed: Microsoft Knowledge Base Article - 212100 http://support.microsoft.com/default.aspx?scid=kb;en-us;212100 It does work if I open in Word 2000 and save from there. But my users are using Word 2003. Can't find the answer anywhere. I could use tools\options\save\"save data for forms only" but that will require me to rewrite a lot of code. Issac Tag: run-time error 91 in word 2003 Tag: 55582
  - 10
    - Best practice re list templates? Hi all I'd really appreciate some best practice advice re using VBA for setting up list templates and styles for outline/paragraph numbering. We're getting ready for a major format/style conversion and I'd like to make sure we get paragraph numbering right. We're staying with Word 2000 for the time being but working with documents that were originally created in Word 2000 as well as WordPerfect (a variety of versions) and Word 97. We have a master "Normal" template with the new formatting and new styles. I've developed a macro that uses .UpdateStyles (3 times) to try to update the styles in the documents to be converted. Unfortunately .UpdateStyles (x3) doesn't seem to update outline numbering on relevant styles reliably or correctly. I've tried using .OrganizerCopy and that seems to do a better job but even that doesn't seem to get the outline numbering right -- sometimes it copies the outline linking correctly sometimes it doesn't and there doesn't seem to be any particular pattern: it will get certain styles right in one document but not in the next. (I don't know if that's a problem with lurking legacy incompatibilities in the documents or what.) I'm thinking that the only way to make sure that outline numbering and linked styles in the styles in the converted documents are uniform and match the styles in the new Normal template is to do it through VBA, by setting up a macro (or series of macros) that define each and every style. Is that a good idea or is there another way to do it? BTW here's the code I've been using to try to get the styles copied over just in case anyone can see something wrong in what I've been doing. Thanks in advance for any advice! Chuck Sub UpdateStyles() Dim oLT As ListTemplate Dim oStyle As Style Dim sLKStyle As Variant Dim i As Integer Dim sStyleTemplate As String On Error GoTo errorhandler sStyleTemplate = "C:\Program Files\Microsoft Office\Templates\NewNormal.dot" With ActiveDocument .AttachedTemplate = sStyleTemplate .UpdateStyles .UpdateStyles .UpdateStyles End With For i = 1 To 5 Application.OrganizerCopy _ Source:=sStyleTemplate, _ Destination:=ActiveDocument.Path & "\" & ActiveDocument.Name, _ Name:="Level " & i, _ Object:=wdOrganizerObjectStyles Next i For i = 1 To 5 Application.OrganizerCopy _ Source:=sStyleTemplate, _ Destination:=ActiveDocument.Path & "\" & ActiveDocument.Name, _ Name:="NA - LEVEL " & i, _ Object:=wdOrganizerObjectStyles Next i 'And so on, going through a number of different 'defined style/numbering hierarchies 'Relink levels to styles Set oLT = ActiveDocument.Styles("Level 1").ListTemplate For i = 1 To 5 sLKStyle = "Level " & i oLT.ListLevels(i).LinkedStyle = sLKStyle Next i Set oLT = ActiveDocument.Styles("NA - LEVEL 1").ListTemplate For i = 1 To 5 sLKStyle = "NA - LEVEL " & i oLT.ListLevels(i).LinkedStyle = sLKStyle Next i 'And so on, re-linking each number level to its LinkedStyle MsgBox "Styles in this document have been updated.", _ vbOKOnly + vbInformation, "Styles Updated" Exit Sub errorhandler: Select Case Err.Number Case 91 MsgBox "Check " & sLKStyle & " to make sure " & _ "numbering and linked styles are correct.", _ vbExclamation + vbOKOnly, _ "Problem with numbering styles encountered" Case Else MsgBox Err.Number & " " & Err.Description End Select Resume Next 'Exit Sub End Sub Tag: run-time error 91 in word 2003 Tag: 55581
  - 11
    - TOC Automation problem Hi all, I have a VB6 app that creates a document based on a template. This template has a TOC on the first page and an autotext entry with various bookmarks is set up. The first field on the autotext enty (ie. the first bookmark) is a Name field and is set up to print a new page break before. The TOC is set up to use the Name bookmark instead of the heading fields. I generate the document, but the TOC is out of sync. The entry names are fine and in order but the page numbers are funny. The first is 3, for example, and the other are all 2. Do I need to configure the TOC in another way? Thanks, Ivan Tag: run-time error 91 in word 2003 Tag: 55578
  - 12
    - Word Document VBA Question Hi, I have an application that creates a report using a third party tool which has the ability to export to a RTF (Word) document. The problem I am running into is the report has lines to seperate certain sections however the export does not support lines. I am looking for a solution in where I create a Word Macro and create the lines in Word. Or I was thinking of creating a word document and use it as a template. The report is basically a quote form generated for sales and sales needs to have the ability to edit it. Basically, the lines are used to hold the line items and give it a professional look. I was thinking that the Word document could have a textbox for the line items and I just pass the info in and would shrink or grow as the data grows. I do not have alot of experience with VBA and Word so I am just looking for some suggestions or comments. Thanks Tag: run-time error 91 in word 2003 Tag: 55575
  - 13
    - Programming toolbar buttons Hi Folks, I'm using the code below to create toolbars based on toolbar settings in another template (for my own reasons) which are stored in an ini file. Everything works great (toolbars are created with all the appropriate details) except they do not execute my required styles. The buttons which have macros assigned to them work fine but the buttons I used for style shortcuts do not. I assumed that the name of the style assigned to a macro being the same as a style would be enough but it seems I'm a muppet. Any pointers?? Cheers J CustomizationContext = ActiveDocument i = 0 For x = 0 To UBound(strMainCBInfo()) - 1 Set oCMdBar = CommandBars.Add(Name:=strMainCBInfo(i, 2), Position:=msoBarFloating, Temporary:=False) j = 1 With oCMdBar .Height = strMainCBInfo(i, 0) .Left = strMainCBInfo(i, 1) .Name = strMainCBInfo(i, 2) .NameLocal = strMainCBInfo(i, 3) .Position = strMainCBInfo(i, 4) .RowIndex = strMainCBInfo(i, 5) End With y = 1 For j = 0 To UBound(strControlInfo()) - 1 If strControlInfo(j, 1, i) <> "" Then With oCMdBar .Controls.Add Type:=msoControlButton With .Controls.Item(y) .BeginGroup = strControlInfo(j, 0, i) .Caption = strControlInfo(j, 1, i) .DescriptionText = strControlInfo(j, 2, i) .Enabled = True .FaceId = strControlInfo(j, 3, i) .Height = strControlInfo(j, 4, i) '.ID = strControlInfo(j, 5, i) .OnAction = strControlInfo(j, 6, i) .Parameter = strControlInfo(j, 7, i) .Priority = strControlInfo(j, 8, i) .ShortcutText = strControlInfo(j, 9, i) .State = strControlInfo(j, 10, i) .Style = strControlInfo(j, 11, i) .Tag = strControlInfo(j, 12, i) .TooltipText = strControlInfo(j, 13, i) .Width = strControlInfo(j, 14, i) End With .Visible = True End With End If y = y + 1 Next j i = i + 1 Next x Tag: run-time error 91 in word 2003 Tag: 55570
  - 14
    - how do you copy a user form I've got a user form (in Word 2002) that has a number of controls and labels in it. I need to make several similar forms in the same document, but rather than build each of these other forms from scratch, I'd rather clone my existing form, and treak it into the copies I need. I've looked for a way to copy the form, but I can't find anything in the Project Explorer, toolbars or menus that look like a way to copy the form. Can anyone tell me how I can accomplish this? Thanks in advance. Paul Tag: run-time error 91 in word 2003 Tag: 55567
  - 15
    - Undo command? In the "Immediate" Area, I set the deletedtextmark = wdeletedtextmarkhidden and now I'd like to know how to undo what I did but have no idea where to delete this command. Help? Tag: run-time error 91 in word 2003 Tag: 55564
  - 16
    - Parsing string on clipboard Hi folks, Sorta a followon from my "on focus clipboard" message. I want to parse the data on the clipboard into textbox of a userform. The data looks like: Pers ID: 20456035839 Master RNS: 5476121 (Real) SMITH, MICHAEL JOHN (Contact Address) 8 FORD ROAD, WHITTAMS, AUCKLAND CITY 1750 I had a go myself and ended up hardcoding everyting - it was pretty ugly. lines like RNS = Mid(clipbd_string, InStr(clipbd_string, "Master RNS: ") + Len("Master RNS: "), 8) 'RNS max length is 8 Surname_name = Mid(clipbd_string, 52, (InStr(clipbd_string, ",") - 52)) Anyone have any better ideas? -Al -----= Posted via Newsfeeds.Com, Uncensored Usenet News =----- http://www.newsfeeds.com - The #1 Newsgroup Service in the World! -----== Over 100,000 Newsgroups - 19 Different Servers! =----- Tag: run-time error 91 in word 2003 Tag: 55562
  - 17
    - On focus - check clipboard Hi guys, I want a dialog box to check for data that fits a specific format when it gets focus (after the user returns to word from another application. It does not have to constantly monitor for this data - only after a user returns to word. Any idea how to do this? Cheers -Al -----= Posted via Newsfeeds.Com, Uncensored Usenet News =----- http://www.newsfeeds.com - The #1 Newsgroup Service in the World! -----== Over 100,000 Newsgroups - 19 Different Servers! =----- Tag: run-time error 91 in word 2003 Tag: 55547
  - 18
    - VB/Word - Making lines read only Hi, I'm trying to write an Visual Basic application that starts Microsoft Word to allow a user to edit a text file. However the first line is a header and the last line is a trailer and I don't want the user to delete these lines. Also when the user exits from Word (closes the file or exits Word) I want the control to be returned to the VB application so that I can update the trailer. I am new to VB with Word so please bear with me. There are not many resources on the Web to assist. What I need to know is: 1) Is there an easy way to make the line read-only? Line in this case is the same as the Sentences object. If not would I have to trap all the insert/replace/delete events and beep if the user is on the first or last line? 2) Is there some sample code showing how I can start Word in VB AND take back control when the user closes the file? Thanks for any assistance Tag: run-time error 91 in word 2003 Tag: 55542
  - 19
    - Word 2003: phantom temp files in startup folder Hi all, I have two Word add-ins that have been well-behaved for a long while on several PCs running Word 2000 or Word 2002. Today I installed them in a PC running Word 2003. They still work fine, but after closing Word, the two matching temp files ("~%restofname.dot") are still there in the Startup folder with the real files. And they stay there. Even after a reboot. Is anything wrong? It doesn't seem to affect performance, but this certainly hasn't been standard behavior in the past. The files are identical to those installed with earlier Word versions, and Outlook is *not* using Word as its email editor. All PCs are running WinXP Pro. Any ideas? -- Mark Tangard "Life is nothing if you're not obsessed." --John Waters Tag: run-time error 91 in word 2003 Tag: 55539
  - 20
    - Retrieving the Auto Number Does anybody know how I could the auto number in a selection: Example: 1. Blah 2. Blah blah. '1' and '2' are automatically inserted using the auto numbering feature in word. When I select (say) 'Blah'; I cannot, of course, select '1' along with it ('1' is an auto number). So, is there a VBA code where I can get the auto number which is associated with the text as well? Thanks & regards, vince Tag: run-time error 91 in word 2003 Tag: 55536
  - 21
    - Use IF to Loop or not? AND IF w/ error codes? I had an idea, and thought I would post it here to see if it survived scrutiny. A line in my macro errored because another process wasn't completely done. Is it possible and would it be okay to use On Error Resume Next and the error code with an IF to loop back through the missed instruction until it completes? I'm thinking something like: Do On Error Resume Next ' Do This If Err.Number <> 0 Then Loop Else Exit Do End If On Error GoTo 0 Ed Tag: run-time error 91 in word 2003 Tag: 55529
  - 22
    - ListTemplate index - how to get? Hi all I'm trying to figure out how to get the ListTemplate index/name for a specific style -- I'd like to be able to modify the style's LinkedStyle and in order to do that it seems I have to specify the Style's ListTemplate first. Just to test if I can identify it, I tried the following code Set mystyle = ActiveDocument.Styles("Level 1") MsgBox ActiveDocument.ListTemplates(mystyle.ListTemplate.Name). _ ListLevels(1).LinkedStyle I don't get an error but the result of "mystyle.ListTemplate.Name" is "" (ie nothing). Any pointers? Thanks in advance! Chuck Tag: run-time error 91 in word 2003 Tag: 55523
  - 23
    - Apply Multiple Templates? What's the right approach? I am generating word 2002 docs based on a custome template that includes a customized toolbar that runs VBA routines. Using bookmarks I've pre- populated a lot of basic info in the doc. I then need to pass off these generated docs to someone that fills in the balance of the document info. That person has a set of 50 templates that she has been using to fill in sections of the starting doc based on certain criteria. I'm pretty unfamiliar with Word templates and what I am running up against, surprisingly, is that if she applies one of her custom dot files to what I pass her, her access to the custom toolbar in my original dot is lost. I'm not sure how to deal with this. As far as I can tell, a word doc can only be attached to one dot at a time. This would seem to imply that I'd have to add my VBA code and toolbar to all of her 50 specail dot files for her to retain access to the them. I could do this but the maint seems onerous. Is there an alternate approach? For instance, another way that the second stage text mods could be implemented besides using the 50 custom dot files? Tag: run-time error 91 in word 2003 Tag: 55516
  - 24
    - Excel Has anyone tried to open a Excel file from Word ? I know that in the 2000 Word program you were able to open Excel from that location .In Office 2003 Professional Edition you have to go outside of Word and into Excel to copy or transfer information . How about in the same area does Word update if a change was made in the Excel files / if the two are linked togather as it did in the 2000 version ? Tag: run-time error 91 in word 2003 Tag: 55513
  - 25
    - Storing large amounts of (hidden) data within a single word document? Hi all- thanks in advance for your help; using Word97 on Win98SE... I'm looking for the best way to store this large amounts of information (essentially several manually-built flat file database tables) in a word document without it being accessable to the user; I remember reading (but can't find) a post talking about this subject, and I think Custom DocProperties were the suggested solution... however, in my tests, the document properties (including custom ones) are available to any user via the document property interface, which is undesirable for me. Does anyone have other ideas on how to handle this? Can I suppress the custom docproperties information from showing in the user interface? What about (noting: Word97/ Win98SE) saving the information in some sort of low level encryption to avoid the property 'value' from being read, even if the user looks at the property dialog? Essentially I need to store data (away from user's eyes) without putting the data in the document or in a separate file. I am thinking that maybe I could do this by writing the data in XML format (using whatever XML command is available for encryption?) and that might also make it easier to work with the data, but I haven't messed with XML yet, so I'll wait to hear if that is possible/desirable in Word97 before I start a whole new learning curve... Many thanks, Keith -- The enclosed questions or comments are entirely mine and don't represent the thoughts, views, or policy of my employer. Any errors or omissions are my own. Tag: run-time error 91 in word 2003 Tag: 55512
- Next
  - 1
    - create section break after a table hi, i'm trying to create a section break with the type wdSectionBreakContinuous after a table. how can i do that in vba for word xp? thank you. william -- Tag: run-time error 91 in word 2003 Tag: 55507
  - 2
    - Why is there no color on monitor I have Office '03 (I think). While it will print in color, it will not show any colors on the monitor. Does anyone know why? Tag: run-time error 91 in word 2003 Tag: 55500
  - 3
    - Why doesn't the Table object have an Index property Hi, I'm wondering why the Table object does not have an Index property? This object belongs to a collection (Tables), so it should have one. What is the reason this object, just like Document or Paragraph does not have that property? Thanks in advance. Raph Tag: run-time error 91 in word 2003 Tag: 55498
  - 4
    - Emailing Word Document Using Macro Hi All, I hope someone can help me, We have a word document for requesting a courier service, the user currently has to open the document from our Intranet, enters the data then sends it as an attachment to our stores dept. I am trying to set-up a macro that will do this automatically, when I try to record a new macro it gets as far as opening the new message window with the attachment but it does not populate the To: field and does not send the e-mail. Could anybody point me in the right direction of any websites etc.. Many Thanks Paul Tag: run-time error 91 in word 2003 Tag: 55495
  - 5
    - Automation error Hello, I use VBScript Regular expression (VBScript.dll\3) for 'pattern matching and replacements' concepts in my "Word to XML" tool. the code... Function RExpReplace(ptrn As String, Sstr As String, rStr As String, iCase As Boolean, gCase As Boolean) As String Set regEx = New RegExp ' Create regular expression. regEx.Pattern = ptrn ' Set pattern. regEx.IgnoreCase = iCase ' Set case sensitivity. regEx.Global = gCase ' Set Global search regEx.MultiLine = True RExpReplace = regEx.Replace(Sstr, rStr) ' Make replacement. End Function On my machine this function works fine. But with other machines, it invoke the following error.. Automation error The object invoked has disconnected from its clients. Its works fine, when i changed the code in debug mode, by using breakpoint at 'RExpReplace = regEx.Replace(Sstr, rStr)' the code... Dim temp as String temp = regEx.Replace(Sstr, rStr) ' Make replacement. RExpReplace = temp I find, Microsoft Knowledge Base Article - 813120 relates to my problem, but not exactly. please let me know where is the problem. regards, senthil Tag: run-time error 91 in word 2003 Tag: 55494
  - 6
    - Which formfield has the focus Hello, in an template which creates various numbers of formfields (automaticly) each field has got the same EntryMacro and ExitMacro (named Got_Focus and Lost_Focus). When the EntryMacro or ExitMacro - event occurs and for example the Got_Focus routine is called, how can I determine which FormField has got the focus (and for the Lost_Focus which FormField lost the focus)? Thanks Peter Tag: run-time error 91 in word 2003 Tag: 55483
  - 7
    - Remove Leading Spaces Hi I have a txt document that has been opened in Word that has a series of leading spaces. These leading spaces (always seven of them) are scattered throughout the document. How do I remove these quickly. Look forward to any assistance. -- Regards mg Tag: run-time error 91 in word 2003 Tag: 55482
  - 8
    - Grabbing specific text using vba How can i retrieve a specific text from an opened word document starting from a specific position and moving to the right until a specific character is found,using vba? Pls, its urgent!!!!!!! --- Message posted from http://www.ExcelForum.com/ Tag: run-time error 91 in word 2003 Tag: 55480
  - 9
    - ByRef question Hello all, Here's my scenario. I have an Access app that needs to grab data from an Excel worksheet. What I've done is create a function in Access that simply calls excel.run(myproc(arg1, arg2)). The excel proc needs to return a bunch of numbers so I pass ByRef. I can't think of a cleaner way of doing this without updating the db in excel itself. My question: In Access, when I declare my excel object as an object, the byref works, but if I declare it as Excel.Application then it doesn't work. Why? In both tests, I use set xlsApp = new excel.application, the only difference is in the actualy dim statement. Am I missing something here, cause I'd really like to bind early, it's just cleaner. Thx, Bodi Tag: run-time error 91 in word 2003 Tag: 55479
  - 10
    - Check for Bookmark then run userform I want to write some code that will check to see if a bookmark exists and if it does, run a userform. Once the user has filled in the userform and clicked OK, I want the code to find the bookmark and delete it. If the bookmark doesn't exist, then I don't want the code to run... I have the following code: Sub Autonew() If ActiveDocument.Bookmarks.Exists("new") = True Then FrmOutwardLetter.Show End If End Sub and within the userform code I have the following code to delete the bookmark: ActiveDocument.Bookmarks("new").Select Selection.Delete BUT nothing seems to be working! The userform doesn't show anymore - What am I doing wrong? (It's probably all wrong!). I was trying to create a custom boolean property, set its value to false and change it to true once the userform runs. Then always check for the value of the said property when document is opened, and if it is true, do not run the code. Wasn't sure how to do this as this is all new to me... :o( Thanks in advance Lee Tag: run-time error 91 in word 2003 Tag: 55476
  - 11
    - Extracting Endnotes Number Hi all, I am required to get the number of an endnote and check if it is present in the main document. To elaborate further, assuming I have something like: 3 For a historical description of the... 3 being the superscripted end note number that word automatically assigns. I will need to extract the text '3' out of the end note. When I copy and paste any endnote, I get '[1]' instead of '3'. Also, when I just do a msgbox(selection.text), I get a funny character instead of the endnote number. Is there anyway, I can retreive the endnote number? After I reetrieve it, I will have to check if it is present in the main document which is fairly easy. It's the text extracting part that's eating my brain (however limited!) away. Hope someone can help me out. Thanks & Regards, Vince Tag: run-time error 91 in word 2003 Tag: 55475
  - 12
    - Certificate of Security Hi As my security settings are medium, I am always being asked if I want to activate my macros. So I installed SelfCert.exe and run it (apparently successfully according to a window) But it didn't make any difference and my name didn't not appear in the security window as a reliable source. I've also tried running it with my main macro document open and with .dot open but nothing gives. What is the procedure for running SelfCert.exe please? Thanks Tag: run-time error 91 in word 2003 Tag: 55468
  - 13
    - How to Lock links (programatically) without incurring an update I have found several past posts on locking links in VBA. (Cribbed code is included at the footer of the message.) I would like to discover the programmatic equivalent of the manual method of locking links: Edit--->Links (Opens dialogue); Select all links, check 'Locked' box; click OK. Problems with my current VBA method: a) the original linked source file needs to be present for my code to even work. (Not the case with locking links manually.) Running code sans source file returns: "Run-time error '6083' Objects in this document contain links to files that cannot be found. The linked information will not be updated," leading to the next issue... b) With the code, Word first updates the links before setting them to Locked. Not desirable, timewise (manual locks instantaneously, vba takes 1.5 min+) & the updates are likely irrelevant to the current doc. c) The other thing that is so darn snazzy about the manual method is that it doesn't care if it is a field, shape, inline shape; it just locks the bugger. In code, I need separate processes to deal with each type of link (Probably unavoidable). Any help is greatly appreciated. Thanks! Taylor P.S. I had high hopes of running the macro recorder during the above manual process; alas, it registers nothing (results in blank macro code). Here's the code: Dim i As Long For i = 1 To ActiveDocument.Shapes.Count If Not ActiveDocument.Shapes(i).LinkFormat Is Nothing Then If Not ActiveDocument.Shapes(i).LinkFormat.Locked Then ActiveDocument.Shapes(i).LinkFormat.Locked = True End If End If Next i Tag: run-time error 91 in word 2003 Tag: 55464
  - 14
    - Macro Conversion Hi, I hope you can help me out. I had a macro to control which printer tray is used. When I upgraded from Word2000 to Word2003, the macro doesn't select the proper tray. Any Suggestions would be appreciated. The code is below. Sub MyPrint() Dim sCurrentPrinter As String aa = InputBox("How many copies would you like?", "Carrie's Macro", 3) If aa = "" Or aa = 0 Then Exit Sub sCurrentPrinter = ActivePrinter Rem ActivePrinter = "Tektronix Phaser 860DP by Xerox" With Options .DefaultTray = "Tray 2" End With Application.PrintOut FileName:="", Copies:=aa With Options .DefaultTray = "Use printer settings" End With ActivePrinter = sCurrentPrinter End Sub Tag: run-time error 91 in word 2003 Tag: 55463
  - 15
    - Soft and Hard Return Chars and Paragraph Count I'm having trouble getting the correct paragraph count for a document after stripping it of the soft return/vertical tab character (Chr(11)) and replacing it with the carriage return character (Chr(13)). Even after saving, closing and reopening the target file to ensure that ActiveDocument has been refreshed, the paragraph count still turns out to be incorrect. The following code demonstrates this bug: '*************************************************************** Sub Test() 'Create file Documents.Add 'Add 9 vert tab chars to the initial carriage return char For i = 1 To 9 Selection.TypeText Chr(11) Next i 'Set breakpoint here, verify that CountBefore = 1 CountBefore = ActiveDocument.Paragraphs.Count 'Replace vertical tab chars with paragraph chars ActiveDocument.Range.Find.Execute FindText:=Chr(11), _ ReplaceWith:=Chr(13), _ Replace:=wdReplaceAll 'Set breakpoint here, verify that CountAfter = 1, although I want 'this to be 10 CountAfter = ActiveDocument.Paragraphs.Count End Sub '*************************************************************** The Paragraphs Collection doesn't get updated and Word behaves as if it knows that the replaced characters used to be soft return characters (Chr(11)). Thanks in advance, Boram Tag: run-time error 91 in word 2003 Tag: 55456
  - 16
    - passing array to function to pick up values Hi all, I am trying to sort out the fijner points of passing arrays between functions. I simply do not understand how this works. Of course I get it all to work with a global array, which I can modify anytime, but I'd rather learn to do it by passing arguments. I have already found to use ByRef while digging in the archive. If I run the function UseArray I get as result: , bla instead of <some character> , bla what's wrong? code follows ------- Function MakeArray(ByRef myArray As Variant) Dim teller As Long For teller = 1 To 10 'assign some random alphanumeric stuff to array myArray(teller) = Chr(teller * 10) Next teller End Function Function UseArray() Dim varArr As Variant Dim i As Long 'give a large dimension here because can't redim preserve inside other function 'can be shrunk afterwards if I ever get this to work 'this code is just a tryout for other stuff I'm doing in a project where I don't know 'how many items I pick up along the way. ReDim varArr(100) MakeArray (varArr) For i = 1 To 10 Debug.Print varArr(i) & " , bla" Next i End Function Tag: run-time error 91 in word 2003 Tag: 55438
  - 17
    - creating Toolbar on Word 2000 using built-in Visual Basic Editor Hi All, I have some queries. I am creating Toolbar on Word 2000 using built-in Visual Basic Editor. First query is regarding CommandBarButtons Click event not firing using WithEvents keyword. Also since the CommandBar is created dynamically I dont know how to take the values entered in its various controls at runtime. When I enter something into ComboBox and I shift to another control the value entered in the comboBox is lost. How to prevent this. My Code is as follows: Public WithEvents cbcCommandBarButton As Office.CommandBarButton Dim cbrCommandBar As CommandBar Public cbcCommandBarListBox As CommandBarComboBox Public cbcCommandBarCategoryListBox As CommandBarComboBox Public cbcCommandBarSearchCriteriaListBox As CommandBarComboBox Dim m_IE As InternetExplorer Sub NewToolBar() ' If the command bar exits, remove it. On Error Resume Next Application.CommandBars("Marsh Knowledge Exchange").Delete ' Add the command bar to the application's ' CommandBars collection. Set cbrCommandBar = _ Application.CommandBars.Add cbrCommandBar.Name = "Knowledge Exchange" ' Add command button control to the control's ' collection of CommandBar objects. With cbrCommandBar.Controls Set cbcCommandBarButton = _ .Add(msoControlLabel) ' ' Set properties of the command button. 'Add the following lines of code just below the block of 'code beginning with the comment "Set properties of the command button." ' Set properties of the drop-down list box. Set cbcCommandBarListBox = _ .Add(Type:=msoControlDropdown) With cbcCommandBarListBox .AddItem " Knowledge Exchange Home" .AddItem " Practice Home" .AddItem " Research Centre" .AddItem " My KX" .AddItem " My Assignments" .Width = 138 .ListIndex = 5 .Caption = " Knowledge Exchange Home " .Style = msoComboLabel .BeginGroup = True .OnAction = "DisplayMessage" .Tag = "lstPractice" End With 'Code to create the Search Criteria Combo-box Set cbcCommandBarSearchCriteriaListBox = _ .Add(Type:=msoControlComboBox) 'Code to create the Search Criteria Combo-box 'Code to create the Search Categories Combo-box Set cbcCommandBarCategoryListBox = _ .Add(Type:=msoControlComboBox) With cbcCommandBarCategoryListBox .AddItem " Search Knowledge Exchange Home" .AddItem " Search Google" .Width = 138 '.ListIndex = 6 '.Caption = " " .Style = msoComboNormal .BeginGroup = True .OnAction = "Message" .Tag = "lstCategory" End With ' Set cbcCommandBarButton = _ ' .Add(Type:=msoControlButton) ' ' ' Set properties of the command button. ' With cbcCommandBarButton ' .Style = msoButtonIconAndCaption ' .Caption = "My Big Button" ' .FaceId = 19 ' .OnAction = "Message" ' .Tag = "My Big Button" ' End With End With cbrCommandBar.Visible = True End Sub Could you please tell me how these problems are solved. Can you send me the code if possible. Regards, Sagar Gadre. Tag: run-time error 91 in word 2003 Tag: 55437
  - 18
    - KeyPress Event in Word 2000 using VBA Hi All, I have created combo-boxes dynamically in VBA. I want to handle keypress and Mouse events on the combo- boxes. How should I go about it? This is because when I enter text in combo-box and click on another control the entered text vanishes. However if I navigate to another control using TAB key then the text does not disappear. Please help it is urgent. Regards, Sagar Tag: run-time error 91 in word 2003 Tag: 55436
  - 19
    - creating Toolbar on Word 2000 using built-in Visual Basic Editor Hi All, I have some queries. I am creating Toolbar on Word 2000 using built-in Visual Basic Editor. First query is regarding CommandBarButtons Click event not firing using WithEvents keyword. Also since the CommandBar is created dynamically I dont know how to take the values entered in its various controls at runtime. When I enter something into ComboBox and I shift to another control the value entered in the comboBox is lost. How to prevent this. My Code is as follows: Public WithEvents cbcCommandBarButton As Office.CommandBarButton Dim cbrCommandBar As CommandBar Public cbcCommandBarListBox As CommandBarComboBox Public cbcCommandBarCategoryListBox As CommandBarComboBox Public cbcCommandBarSearchCriteriaListBox As CommandBarComboBox Dim m_IE As InternetExplorer Sub NewToolBar() ' If the command bar exits, remove it. On Error Resume Next Application.CommandBars("Marsh Knowledge Exchange").Delete ' Add the command bar to the application's ' CommandBars collection. Set cbrCommandBar = _ Application.CommandBars.Add cbrCommandBar.Name = "Knowledge Exchange" ' Add command button control to the control's ' collection of CommandBar objects. With cbrCommandBar.Controls Set cbcCommandBarButton = _ .Add(msoControlLabel) ' ' Set properties of the command button. 'Add the following lines of code just below the block of 'code beginning with the comment "Set properties of the command button." ' Set properties of the drop-down list box. Set cbcCommandBarListBox = _ .Add(Type:=msoControlDropdown) With cbcCommandBarListBox .AddItem " Knowledge Exchange Home" .AddItem " Practice Home" .AddItem " Research Centre" .AddItem " My KX" .AddItem " My Assignments" .Width = 138 .ListIndex = 5 .Caption = " Knowledge Exchange Home " .Style = msoComboLabel .BeginGroup = True .OnAction = "DisplayMessage" .Tag = "lstPractice" End With 'Code to create the Search Criteria Combo-box Set cbcCommandBarSearchCriteriaListBox = _ .Add(Type:=msoControlComboBox) 'Code to create the Search Criteria Combo-box 'Code to create the Search Categories Combo-box Set cbcCommandBarCategoryListBox = _ .Add(Type:=msoControlComboBox) With cbcCommandBarCategoryListBox .AddItem " Search Knowledge Exchange Home" .AddItem " Search Google" .Width = 138 '.ListIndex = 6 '.Caption = " " .Style = msoComboNormal .BeginGroup = True .OnAction = "Message" .Tag = "lstCategory" End With ' Set cbcCommandBarButton = _ ' .Add(Type:=msoControlButton) ' ' ' Set properties of the command button. ' With cbcCommandBarButton ' .Style = msoButtonIconAndCaption ' .Caption = "My Big Button" ' .FaceId = 19 ' .OnAction = "Message" ' .Tag = "My Big Button" ' End With End With cbrCommandBar.Visible = True End Sub Could you please tell me how these problems are solved. Can you send me the code if possible. Regards, Sagar Gadre. Tag: run-time error 91 in word 2003 Tag: 55434
  - 20
    - KeyPress Event in Word 2000 using VBA Hi All, I have created combo-boxes dynamically in VBA. I want to handle keypress and Mouse events on the combo- boxes. How should I go about it? This is because when I enter text in combo-box and click on another control the entered text vanishes. However if I navigate to another control using TAB key then the text does not disappear. Please help it is urgent. Regards, Sagar Tag: run-time error 91 in word 2003 Tag: 55433
  - 21
    - Conditional Compilation question Hi, Is there a way to identify the version of Word using conditional compilation statements? I have a macro which requires a slight modification for Word 2003 using a command newly available in 2003 but the macro needs to be compatible with earlier versions. I don't want to run two different versions of this macro so I would prefer to use an #If statement which contains my version checking and modifications in order to be able to compile the macro on different versions of Word. I know there is the VBA6 constant which helps determine whether I am using Word 97 or other but there doesn't seem to be a way to determine whether I am using 2000 or 2003 (for example) while still allowing me to compile. Cheers, John Tag: run-time error 91 in word 2003 Tag: 55423
  - 22
    - Monitor Clipbaord Hi Folks, I have a dialog box that prompts a user for some information. Unfortunately I can'nt get my dialog box to query the database so users are having to manually re-enter the data. Now I have the option to copy a record set from the database to the clipboard. I need the dialog box to monitor the clipboard for data of a given format, ie: Name=SMITH/John James DOB=01/08/80 And if data of the specified format it detected, upon focus I guess, to populate the appropriate text boxes. Anyone got any idea how to do this? Cheers -Al Tag: run-time error 91 in word 2003 Tag: 55422
  - 23
    - Returning NumberFormat from a bullet Hi, I have developed a utility in VB which analyses a Word template and generates the VBA code required to recreate any outline numbering list templates which exist (useful when copying outline numbered styles from one document to another). This works a charm EXCEPT when the outline "numbers" are bullets. In most cases the NumberFormat property of the ListLevel object returns "?". What I need is to be able to retrieve the ascii value for the bullet character. Using asc(myListLevel.NumberFormat) returns 63 with is the ascii value of a question mark - not very useful :) Is there a way that I can return the correct bullet via code? I can determine the ascii values manually and slot that into the code that my utility generates but it would be nice for my program to be able to do this - after all that is what it is for! Cheers, John Tag: run-time error 91 in word 2003 Tag: 55417
  - 24
    - How to use vb to print a Word Document? I am using vb6 to control Word and use the Printout method for the document, but after this I want to quit Word. The problem is that Word is still printing when it wants to quit and then there is a Word process stil running. Any suggestion on how to get around this timing problem? Thanks in advance WayneM Tag: run-time error 91 in word 2003 Tag: 55416
  - 25
    - Update Reference Field I have a userform that fills in formfields in a document. In several places, the same information is inserted, so I cross-referenced those formfields with ref field. The problem is that I can't figure out how to update those ref fields without also clearing the formfields. When I update all the fields in the document, the form fields clear and the ref fields update, I suppose, but since the form fields are now blank so are the ref fields. I need a way to update only the ref fields but I am not sure how to do this. Thanks for any help. Tag: run-time error 91 in word 2003 Tag: 55410

Re: run-time error 91 in word 2003 by Word

Word
Sun Aug 29 18:36:36 CDT 2004

G'day "gaileem" <gaileem@discussions.microsoft.com>,

Need a touch more info please

Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)

gaileem reckoned:

Top