HELP!!- Object or class does not support set of events

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Some method to have allways 'macro' docs ? Hello again : I know all the conditions regarding macro security, but I really want a corporate system to avoid that somebody can't open a doc without use it's autoopen macro. I know about server solutions, but my ask is the next : If user have top level of security set, is it possible to force to user to execute corporate macros ? Thanks and excuse my bad english Antonio Pérez Tag: HELP!!- Object or class does not support set of events Tag: 72665
  - 2
    - Find method rebound sometimes Hello : I have a document with paragraphs and tables, in some cases I have nothing ( only a carriage return symbol ), but ( because many people worked in the docs ) it has a style I want to change. I have a macro to find all these cases but my 'do... loop macro' rebound eternally when find those cases. I fix the problem making : Selection.MoveRight(Unit:=wdCharacter, Count:=1) Selection.MoveDown(Unit:=wdLine, Count:=1) but it is not the solution ( in addition it fails ) Some idea ??? Antonio Pérez Tag: HELP!!- Object or class does not support set of events Tag: 72664
  - 3
    - Print Directly To PDF What line of code would I use in word to print a document directly to a PDF without getting in information form the user. The variables that I would want to set in code would be: For the PDF to be saved in the same location as the original document. I want to set the name of the PDF in code The name of my PDF printer is: "Adobe PDF" I just want to put a button on a word document that prints the current to a PDF storing it in the same location as the original document and with a file name that I set in code. Thankyou in advance for your help. Tag: HELP!!- Object or class does not support set of events Tag: 72660
  - 4
    - Word should have a dumb mode Word should have a mode that turns off all the auto-formatting to that you can write a document in free format. I'm thinking of a simple toggle button rather than having to go into a menu and uncheck a bunch of boxes. Recent versions of Word have become too damn helpful..... ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=f76929cd-0b91-4043-bcb1-22c087f0e219&dg=microsoft.public.word.vba.general Tag: HELP!!- Object or class does not support set of events Tag: 72658
  - 5
    - document object prompt unexpected save as dialog In my VB6 DLL, I create a word document object, and some mailmerge and save to a file. It works well before but now (No any change to this DLL) it prompt an unexpected save as dialog, and after I save the document, dll raise error "you cann't insert the selection into table". In vb code I called document.saveas funcion. Can anyone help? Tag: HELP!!- Object or class does not support set of events Tag: 72650
  - 6
    - Display Print Dialog Thankyou in advance. I have the bellow code capturing the print event. But what I would like to do is still display the Print Dialog so the user can change which Printer they wish to print to instead of just the default. Sub FilePrint() ActiveDocument.txtBox = "Job File Copy" ActiveDocument.PrintOut ActiveDocument.txtBox = "Client Copy" ActiveDocument.PrintOut ActiveDocument.Save End Sub The requirement for the document is that it prints out in duplicate and the heading needs to be different on each print out. The above code achieves the printing in duplicate and changing the headings but only to the default printer. I would like to display the Print Dialog so that they can change the printer. Thankyou again. Tag: HELP!!- Object or class does not support set of events Tag: 72648
  - 7
    - .Next feature In the following code why does the line MsgBox aWord.Next return just the first letter of the next word rather than the complete word? Thanks Sub Testing() Dim aWord For Each aWord In ActiveDocument.Range.Words MsgBox aWord MsgBox aWord.Next Next aWord End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: HELP!!- Object or class does not support set of events Tag: 72647
  - 8
    - Programatically adding new autotext entries to a global template I'm in the process of (hopefully) improving the overall use of Word XP in our small office. Being a self-taught newbie to VBA, I've found this newsgroup to be of real value as a source of info and tips. As part of the process, I've created a global template ( called RI_Global.dot) which will hold, amongst other things, all our generic autotext entries, ie - ones we want to be available all the time in any document. What I'm seeking guidance about concerns the way a new user-created autotext entry is "saved" to a template. My understanding is that the default choice is the normal.dot template, whereas I want the entry to be saved into RI_Global.dot. Is it possible to "force" a newly created AutoText entry to be saved into RI_Global.dot, rather than relying on the users to remember to choose this template when they access the Insert/AutoText/AutoText command? Also, can I intercept the "Alt+F3" shortcut to again force the entry to be saved to my global template? I've found the appropriate(?) dialog which might be interceptable [ie: Dialogs(wdDialogEditAutoText)], but I can't see how any of the options can be manipulated through VBA. Using the macro recorder and selecting the global template from the "Look in:" drop-down box doesn't shed any light on the steps involved when I look at the resulting code. Thanks in anticipation. Regards, Gavin Tag: HELP!!- Object or class does not support set of events Tag: 72645
  - 9
    - Amending the File Open dialog Since upgrading to Word2003 I notice that the "Look in" box in File/Open dialog always seems to point to the last directory I used. Whilst this is sometimes convenient, most of the time I want to open files in the specific directory, "DirName", which I have created to contain my most used files, with its own tree substructure. I therefore wish to ensure that "Look in" always defaults to that given directory. Could (or should) this be achieved by modifying the following module already installed which ensures that the "Files of type" box always shows "All Files":- Sub FileOpen() With Dialogs(wdDialogFileOpen) .Name = "*.*" .Show End With End Sub Or should a separate new module be used. Being not too familiar with the Visual Basic codes, can someone kindly advise how to do this. Thanks Jack Sadie Tag: HELP!!- Object or class does not support set of events Tag: 72643
  - 10
    - drag & drop to word Hi, how to enable drop function(have a drag icon displaying, like drag something from outlook to Word) when I drag files in my application(VB application) into MS word document. Please help. Thanks. Tag: HELP!!- Object or class does not support set of events Tag: 72638
  - 11
    - Creating documents with a serial number I'm trying to figure out how to serialize documents when printing. For example, if I want to print 30 copies, I'd like each copy to have a different serial number for each one from 01-30. This would ideally be placed in a document footer, and would reset (or not reset) each time the document is openedAny help would be greatly appreciated. Tag: HELP!!- Object or class does not support set of events Tag: 72637
  - 12
    - How to Add Hyperlink to Protected Word Form Not sure if this is possible but I have a protected Word form where I need the following to happen: I have a checkbox where if it is unchecked then TextBox1 should be "N/A". However if the checkbox is clicked, I need Textbox1 to populate with Null, and Textbox2 to populate with a hyperlink. Anyone have any ideas how to do this? BTW I'm a beginner when it comes to programming so layman's terms would be great! Tag: HELP!!- Object or class does not support set of events Tag: 72636
  - 13
    - Clean Up for Merge Code Dear All, I have a template that is creating a new document using data from an access query that is merged into a Word template. All Office 2003 apps on Win2K and XP pro workstations. The document is created -- but there is also an additional "Document 1" that is created every time that has to be deleted -- a copy of the template with no data in it. If anyone can point out how I can eliminate that extra clutter, I would appreciate it. Additionally, my code is messy, since a lot of it was generated by recording. I'd appreciate gentle recommendations for cleaning it up. Right now, it says" Sub autonew() ' Perform Merge using CatalogTextSource.txt ActiveDocument.MailMerge.MainDocumentType = wdFormLetters ActiveDocument.MailMerge.OpenDataSource Name:= _ "C:\TEMP\MtgNoticeSource.txt", ConfirmConversions:=False, _ ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _ WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=True End With ' Save New Merge Document as NewMeetingNotice.doc ChangeFileOpenDirectory "C:\My Documents\" ActiveDocument.SaveAs FileName:="\\cpa_comp\chapters\_chapter Programs\-Chapter Notice E-Form\__Current\NewMeetingNotice.doc", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False Followed by code to clean up and format the document Thnak you in advance for any assistance. Sincerely, Ridge (in New Joisey) Tag: HELP!!- Object or class does not support set of events Tag: 72631
  - 14
    - Identifying Pictures and Drawing Objects I've done some work with a template that shows and hides graphic images -- allowing a user to fax a document (show image of logo) or print the document on letterhead (hiding image of logo). I found that the picures came in as "Picture 11" and "Picture 22" and so on. I was able to identify them by using the recorder and selecting them and then looking at the code. But I was wondering if there is any, more efficient way, to identify image and drawing objects? Ridge (in New Joisey) Tag: HELP!!- Object or class does not support set of events Tag: 72628
  - 15
    - PrivateProfileString I have been using this method to store user defaults for client templates. In probably 8 years I've never had a problem with it. Now, I've had two testers run into problems where the .ini file doesn't seem to be storing, or if it does, it's not where I expect it to be. Since the client is in another city, I can't just sit at their PCs and figure out what's going on, so wonder if anyone here might have experienced any problems with this method. Word 2003. System.PrivateProfileString _ ("c:\" + vUser, "CHRTemplates", Key) = Value sGetProfile = System.PrivateProfileString _ ("c:\" + vUser, "CHRTemplates", Key) vUser is Application.UserName -- Colleen Tag: HELP!!- Object or class does not support set of events Tag: 72627
  - 16
    - Previous bookmark I'm using code to check to make sure an entry was made in a bookmarked field. After the message box prompts the user that the field requires an entry, how do I get back to the original bookmark, so that the user cannot go any further until an entry is made? Thanks. Amy Tag: HELP!!- Object or class does not support set of events Tag: 72625
  - 17
    - Strange toolbar behavior I have several toolbars with macros assigned to them. Two macros, for no apparent reason I can figure, rearranges the toolbars when I run them. The macros themsleves don't appear to have anything in them that would affect toolbar positions. They are both used to convert fill-in form fields to plain text -- one does the whole document, the other just does whatever is selected. When either macro runs, it moves two of the custom toolbars from one location to another. One toolbar has these macro assigned to it, the other is a custom toolbar with other macros, but not these particular ones. None of the other macros move toolbars around. The macros appears below, for what it's worth. Anyone have any ideas what might be causing this? Macro 1 ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview Selection.WholeStory Selection.Fields.Unlink Selection.HomeKey Unit:=wdStory Macro 2 ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview Selection.Fields.Unlink Selection.MoveLeft Unit:=wdCharacter, Count:=1 Tag: HELP!!- Object or class does not support set of events Tag: 72623
  - 18
    - Incorrect page numbers after inserting files MS XP / Word 2000 â?? 2003 Page Numbering Woes â?? I am having a hard time getting my document to correctly number pages, any help greatly appreciated. I am working on a macro that allows users to apply formatting to a document, add table of contents and insert other documents (called boilerplates) to the beginning of the original (after TOC). I am able to insert the requested documents using the following code: Note: at the time of inserting the documents the table of contents has already been inserted. Sub _Boilerplates() 'add selected boilerplates to current document Dim iCnt As Integer For iCnt = 0 To frmSpecMain.lbBoilerplates.ListCount - 1 If frmSpecMain.lbBoilerplates.Selected(iCnt) Then Selection.HomeKey Unit:=wdStory ActiveWindow.ActivePane.View.Type = wdPageView ' Go to second section Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=2, Name:="" Selection.InsertFile FileName:=gstrDocFullPath & _ frmSpecMain.lbBoilerplates.List(iCnt), _ Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False Selection.InsertBreak Type:=wdSectionBreakContinuous End If Next ActiveDocument.Save End Sub After inserting the boilerplates I run the following code to number the pages: Sub _PageNumbers() ' ' Add page numbers to the final document ' Dim i As Integer i = Selection.Sections.Count ' go to top of document and clear find area Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.HomeKey Unit:=wdStory With Selection.Sections(1).Headers(1).PageNumbers .NumberStyle = wdPageNumberStyleLowercaseRoman .HeadingLevelForChapter = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen .RestartNumberingAtSection = True .StartingNumber = 1 End With Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True For i = 1 To Selection.Sections.Count + 1 ' Skip to Next Section and number those pages Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Count:=1, Name:="" Selection.Sections(1).Footers(1).LinkToPrevious = False ' Now number body With Selection.Sections(1).Headers(1).PageNumbers .NumberStyle = wdPageNumberStyleArabic .HeadingLevelForChapter = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen .RestartNumberingAtSection = True .StartingNumber = i - 1 End With Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True Next End Sub What happens is that the newly inserted boilerplates all have the page number 1, as well as the beginning of the original document. Harrumph. Again any suggestions greatly appreciated, thank you all from Sunny Central Florida. Tag: HELP!!- Object or class does not support set of events Tag: 72622
  - 19
    - How to insert a field in a table cell I use "ActiveDocument.Fields.Add Range:=..." all over the document and it works fine. When the range is myTbl.Columns(1).Cells(1).Range I get "Runtime error '4605' This command is not available". What am I doing wrong please? Tag: HELP!!- Object or class does not support set of events Tag: 72619
  - 20
    - Replacing Bookmark Text - Userforms (FYI - I posted this on the beginners, general, and userforms boards.) I have created a template where I created a userform with 2 "fields" (ProjectName and TaskName). Each field corresponds w/a bookmark. I'm using REF commands to link/repeat the bookmarks in the footer of the report. It is all working well except that the data that is input through the userform is getting added to the (default) bookmark text instead of replacing it. I found a MVP document that gives me a general idea of what I need to do (set a bookmark range variable) {MVP Doc: Inserting text at a bookmark without deleting the bookmark}. It includes a subroutine when using a macros/userform, but I'm not sure where to put it. Can anyone help me with this??? THANK YOU! Wendy Now, template bookmarks look like: [ProjectName] and [TaskName]. If I input a 1 (for project name) and a 2 (for task name) in the userform when I open a new document, the bookmark data changes to: [1ProjectName] and [2TaskName]. I need it to change to [1] and [2] (but keep the bookmarks). My VBA code has: AUTONEW MODULE Sub AutoNew() ' ' AutoNew Macro ' Macro created 8/16/2005 by wdaniels ' UserForm1.Show End Sub USERFORM - Commandbutton1 Private Sub CommandButton1_Click() With ActiveDocument .Bookmarks("ProjectName").Range _ .InsertBefore TextBox1 .Bookmarks("TaskName").Range _ .InsertBefore TextBox2 End With UserForm1.Hide End Sub Tag: HELP!!- Object or class does not support set of events Tag: 72617
  - 21
    - How to open an embedded Word doc using VBA? I have an embedded Word document within an open Word document. I would like to create a macro that opens the desired embedded Word document and goes to a predefined bookmark within it. Does anyone know how to do this programmatically? I'm using Word 2000 but the doc will be used by Word 2000 & 2003 users. Thanks for your help! -- JoAnn Tag: HELP!!- Object or class does not support set of events Tag: 72616
  - 22
    - Duplex Printing In Word Greetings, I found a macro that is suppose to manually print duplex for printers that don't have the duplex option. The code is suppose to print the current page in the active document, open a messagebox so the user can manually flip the page, and then print the second (or even) page after the user presses ok. The macro does print, but only after the code finishes running. For some reason, it only spools the the first print current page command, and then prints it when the code finishes running. Any help would be great! Thank you! Here's the code: Sub PrintBothSides() ' ' PrintBothSides Macro ' Dim iTemp As Integer ActiveDocument.PrintOut (ManualDuplexPrint), Copies:=1, Range:=wdPrintCurrentPage iTemp = MsgBox("Switch paper to continue", vbOKCancel, "PrintBothSides") If iTemp = vbOK Then ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly End If End Sub Tag: HELP!!- Object or class does not support set of events Tag: 72615
  - 23
    - Access Database Update I have an Access database which contains information for a form. I use the database for merging with a Word template which is then sent out to customers via email. I also have text form fields for the customer to fill out in response to the original information. These transactions happen 5 or 6 times a day and cutting and pasting just doesn't cut it since the returned information is lengthy. Everything is working beautifully, except I don't have an easy way to import the data from the text form field back into the database. I would like the returned form to be able to be attached to the Access database much the same way that it works the other way around. Is that possible? The users of this system need a button to be able to do this. If I got hit by a gasoline tanker tomorrow, they wouldn't have a clue as to what to do with the returned info from the Word form. Tag: HELP!!- Object or class does not support set of events Tag: 72614
  - 24
    - Outlook type Library not available as a reference I am using MIcrosoft Office Word 2003 SP1. I am trying to use code contributed by Astrid Zeelenberg in the article "How to send an email from Word using VBA." The article says I need to set a reference to the Outlook type library under Tools-References. I can not find a reference to Outlook type library. Is this something I need to install seperately? If so, could someone please tell me what I need to do to have access to this reference. Thanks Tag: HELP!!- Object or class does not support set of events Tag: 72613
  - 25
    - CreateButton - EraseButton Hi, I have created a new button in CommandBar: Sub CreateButton() Dim nBtn As Office.CommandBarButton Dim cBar As Office.CommandBar Dim BtnExists As Boolean Dim Pos As Integer Dim i As Integer On Error GoTo eh Set cBar = Application.CommandBars("File") Let BtnExists = False For i = 1 To cBar.Controls.Count If cBar.Controls(i).Caption = "MyButton" Then Let BtnExists = True End If If cBar.Controls(i).Caption = "Save &As..." Then Let Pos = i + 1 End If Next If BtnExists Then Set nBtn = cBar.Controls("MyButton") Else Set nBtn = cBar.Controls.Add(msoControlButton) Let nBtn.Caption = "MyButton" End If Call nBtn.Move(Before:=Pos) Let nBtn.OnAction = "RunAPI" Exit Sub eh: MsgBox ("Error " & CStr(Err.Number) & ": " & Error) End Sub Then I need to erase that button while closing document. I tried either to reset CommandBar (cBar.Reset) or call Delete method (Call nBtn.Delete(False)) on that button. Works fine, but only for current session. After that, when I open Word, button is still there. Any suggestion? I need to erase the button permanently. Thanks in advance. Jiri Tag: HELP!!- Object or class does not support set of events Tag: 72612
- Next
  - 1
    - Add a record to an Access table from Word I have a document database in Access. When I create a new document in Word I would like a new record added to Access. When the record is created, Access generates a simple sequential number for the document. Word then retrieves the number. How do I have Word instruct Access to make a new record? -- Stephenc Tag: HELP!!- Object or class does not support set of events Tag: 72600
  - 2
    - Undo event Hello All, 1/ Is it possible that we somehow restrict word to add entries in Undo stack. else 2/ Is it possible that we group some events as one Undo event. Please help as i am making a addin for office in vb.net GS Tag: HELP!!- Object or class does not support set of events Tag: 72589
  - 3
    - Wildcard Search and "OR" Hello, using wildcards can I search for one word OR another? For example I would like something like the following to work: "apple|pear", but I can't seem to find out what the Word wildcard equivalent of the regular expression symbol "|" is, to mean "OR". Thanks Tag: HELP!!- Object or class does not support set of events Tag: 72578
  - 4
    - DocumentBeforeClose problems Hello, The DocumentBeforeClose event gives me grief. The problem is that I have to perform a certain cleanup operation when a = document is closed. Unfortunately, DocumentBeforeClose is called before the user is = presented with the "Document changed, do you want to save?" dialog, = which can cancel the close. So, I do not know whether the document was actually closed. Is there a way around it? Thanks. Best wishes, Alex. --=20 Address email to user "response" at domain "alexoren" with suffix "com" Tag: HELP!!- Object or class does not support set of events Tag: 72573
  - 5
    - Remembering document-specific window position Certain of my editing tasks involve having multiple open docs in Word. Given limited screen real estate, I carefully size the windows before setting to work, which is a pain. I'd like to write up or find a macro that would, on a document-by-document basis (very important), save the window size/position for that particular document on closing, then, on reopening, have Word get the window properties from the individual doc template or information and restore to the saved position. Ideally, I'd load this in Normal.dot and invoke it with a keystroke combo as an alternative way to close docs. Is there a way to do this? I've searched high and low, but can't find anything on how to do it with VBA (I'm in Word 2002 on WinXP, with VB 6.3). I know it's possible because so many apps do it (including WordPerfect back in the day when I used it), but I don't know if it's doable in VBA. The only thing I find in online VBA resources is discussion of saving the /application/'s main window position and writing to the registry to do so -- but that's not what I'm seeking. Any ideas? TIA, Ed ed [at] coherenow.com Tag: HELP!!- Object or class does not support set of events Tag: 72564
  - 6
    - Conditional format a table cell (background colour) Hello all, Very little experience with Macros but I have created a project plan template containing various form fields and any number of macros (mainly via the recorder with a bit of code tweaking). One of the text fields in the table is a due date. Via VBA is there any way to highlight the date cell or even the entire row by changing the background colour red when the date is overdue? I guess this would be quite straight forward in Excel via Conditional formating but I would really like to do it in Word. Any help appreciated. Thanks. Paul. Tag: HELP!!- Object or class does not support set of events Tag: 72559
  - 7
    - maintaining the formatting of a string I used to know this but forget--If a text selection has character formatting such as underlining, and I'm turning the selection into a string and then inserting that string elsewhere, how do I maintain the formatting of the string? Tag: HELP!!- Object or class does not support set of events Tag: 72558
  - 8
    - Real and curious problems with vba office2000 et office2003 on a computer Since some days, I have some problems with VBA (with Access as well as Word). All these problems exist in Office 2000 as well as in 2003 Some VBA functions do not vork anymore. ========================================================== So the function 'Kill' is completly unefficient. I mean that 'Kill' doesn't kill files, but, worse, give no error message if I ask to 'Kill' a file which does not exists (for example with a bad path). So the line : ----------- Kill "c:\program files\internet explorer\iexplore.exe" ----------- does not give a message. Just the program quit the function where is the line without executing the lines after. There is no error treatment un function. If I put a Rem or a "'" at the begining of the line, the lines after are executed. If the path of the program to kill is bad (for example "c:\progr files\internet explorer\iexplore.exe" , there is no error message! ========================================================== The function 'Mkdir' does not work anymore. So the line : ----------- MkDir "c:\xxxxx" ----------- doen't create the dirextory 'xxxxx'. ========================================================== The procedure : ----------- Sub Test () Dim FileNumber as integer FileNumber = FreeFile Open "c:\TEST" For Output As #FileNumber Write #FileNumber, "Ceci est un exemple" Close #FileNumber End Sub ----------- does'nt create the file and the error message says that the file does not exist ! It do not accept to create it... ========================================================== The function 'Shell' does not work anymore. So the line ----------- Shell "c:\program files\internet explorer\iexplore.exe", vbMaximizedFocus ----------- does'nt launch Internet Explorer. If the path given in string is bad, there is no error message. ========================================================== I don't know if the following problem is bound to there others problems, but now I cannot use the function "Export in Word" or "Export in Excel" or "Export in 'presse-papier'" for exportations of preview of report. No problem if I export to Word a preview of a form or of a table or of a query. But it is now impossible to export a report preview towards Word. =========================================================== I have Windows XP PRO. I have Office 2000 developer, and Office 2003. All these problems can be observed VBA 2000 AND VBA 2003 (in Accesss 2003). ============================================================ I have uninstalled and reinstalled twice both Office 2003 and Office 2000. No results. ============================================================ On my second computer, all is good. To replace filesystem functions I use 'Scripting.FileSystemObject', which works PERFECTLY. ============================================================ The functions that does not work on my pricipal computer work on the second computer. Which can be ABOVE VBA in the first computer which can cause this kind of problems ? HOW CAN I REPLACE the 'Shell' function ? Thanks for responses. And excuses for my english. I am french... Tag: HELP!!- Object or class does not support set of events Tag: 72557
  - 9
    - Command Button in Word I want put a button on 15 pages this button the next commando must carry out, if I click on the button he the page where this button on state must remove. there is someone who can me give the complete code to let work to this button Tag: HELP!!- Object or class does not support set of events Tag: 72556
  - 10
    - Writing neat VBA I have a document with Odd and Even pages headers and footers. At this point I insert a new section and which I have to remove the header and footer linking to the previous section. I create a temporary bookmark, add a page break, unlink the primary and even headers and footers, remove the bookmark and then the page break. Everything works as it should and there is no problem. However, below is the code which does all the unlinking and I just wanted to say the same thing but with a little more elegance and finesse. Could somebody therefore, please show me how these few lines might be written in properly coded VBA? ====================== ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ======================== You might wonder why all the backwards and forwards between the headers, main document and back to the footers with the selection of the temp bookmark in between? Well, I found that Word "got lost"(i.e. didn't go to where I expected it to go) if I told it to unlink the odd and even headers and then do the same with the odd and even footers. It somehow got confused and went and did things either in the previous section or the one following the new section. I created some explicit actions and that did the trick!! Regards Roderick Tag: HELP!!- Object or class does not support set of events Tag: 72551
  - 11
    - Macro Style Replace Word2000. I record a macro to SearchAndReplace a custom style. During the recording, the SearchAndReplace works fine. When running the macro, it doesn't work. Calling up the SearchAndReplace dialog box shows why: instead of searching for the stylename, it search for a stylename plus border attributes plus other things. Can this be fixed? -- JohnTheTemp Tag: HELP!!- Object or class does not support set of events Tag: 72549
  - 12
    - VBA macro to create an index I wrote a macro that creates an index. Here is an explanation: I have a text and a file c:\boss_info_index.txt that have a keywords I want to index in the text file. Keywords in the file have no duplicates and are in descending orders - I am not sure if the order is relevant, but there should be no duplicates. Here is the macro: Sub CreateIndex() ' ' CreateIndex Macro With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.8) .BottomMargin = InchesToPoints(0.8) .LeftMargin = InchesToPoints(0.8) .RightMargin = InchesToPoints(0.8) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(8.5) .PageHeight = InchesToPoints(11) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .GutterPos = wdGutterPosLeft End With Selection.Sections(1).Headers(1).pageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True Dim quote As String Dim Keyword As String Dim j As Integer quote = """" Dim found_key As Boolean Dim startSearch As Long Dim endSearch As Long Close #1 Open "c:\boss_info_index.txt" For Input As #1 Set myRange = ActiveDocument.Content j = 0 Do While Not EOF(1) ' Loop until end of file. Set myRange = ActiveDocument.Content endSearch = myRange.End Input #1, Keyword j = 0 With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With While myRange.Find.Execute myRange.Collapse wdCollapseEnd Set myIndexEntry = myRange.Fields.Add(myRange, Type:=wdFieldIndexEntry, _ Text:=quote & Keyword & quote) startSearch = myRange.End startSearch = startSearch + 7 Set myRange = ActiveDocument.Content myRange.Start = startSearch If startSearch > endSearch - 1 Then GoTo skip_while End If With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With ' this code is because I had a loop here j = j + 1 If j > 300 Then myRange.Bold = True Exit Do End If Wend skip_while: Loop Close #1 ' Close file. myRange.Start = 0 myRange.End = 0 With ActiveDocument .Indexes.Add Range:=myRange, HeadingSeparator:= _ wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _ True, NumberOfColumns:=1, IndexLanguage:=wdEnglishUS .Indexes(1).TabLeader = wdTabLeaderDots End With End Sub Tag: HELP!!- Object or class does not support set of events Tag: 72547
  - 13
    - Few Question about Line Numbers Hi all, how can I find 1) current line numbers? 2) total line numers? Thanks Regards Tag: HELP!!- Object or class does not support set of events Tag: 72546
  - 14
    - Working with Stylized Quotes Hi Everyone, Does anyone know of a function that will convert Stylized Quotes to a normal quote? Here is the application; I am comparing one string to another. In some cases the strings do not match when they should. The issue is that use of Stylized Quotes. One string may use a slightly different version of a single quote causing the string comparison function to fail. I would like to convert all single quotes to a simple quote for comparing. Thanks, George Tag: HELP!!- Object or class does not support set of events Tag: 72545
  - 15
    - Add documents via listbox I need to insert documents, at either the front or end of the open document, from either a network drive or user hard drive. I would like to make these files available to users via a listbox on a form. I have been able to use file scripting object to browse to the files and add them to the list box using the following code: Sub GetFiles() Dim fs, f, f1, fc, fn, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("C:\Documents") Set fc = f.Files For Each f1 In fc ' fn = f1.FileName If InStr(1, f1.Name, "boilerplate", vbTextCompare) Then Set fn = fs.GetFile(f1) lbBoilerplates.AddItem (fn) End If Next Set fs = Nothing End Sub This is all good, however: The list box is populated with the entire path and file name. What I would like to do is list only the file name. When the user selects desired documents (could be 1 or many) I would then insert the files into the document. Question: How do I get only the filename without the path for populating the listbox? I have been unable to retrieve only the filename without performing string functions to strip out the file name. Any suggestions greatly appreciated. Thank you. Tag: HELP!!- Object or class does not support set of events Tag: 72542
  - 16
    - VBA - Insertion point Could you let me know what VBA to use to determine whether the insertion point is in a Field. Many thanks Mike Tag: HELP!!- Object or class does not support set of events Tag: 72538
  - 17
    - = (rand) - how does this function work Tag: HELP!!- Object or class does not support set of events Tag: 72530
  - 18
    - Error when changing Table I get the following error when trying to alter the value of a table:- "Cannot Access individual rows in this collection because the table has vertically merged cells" This is the code that causes the problem With oAppWD.ActiveDocument.Tables(1).rows(1).cells(2) = "V4.0" (oAppWD = CreateObject("Word.Application") ) How do I change the value of cells within a table where there are vertically merged cells? Ta Andi Tag: HELP!!- Object or class does not support set of events Tag: 72525
  - 19
    - Which menu item activated - how? Hi I'd like to be able to identify if a menu item (any menu item) has been activated both by click and by accelerator key. I found a message on google groups that kind of provides a solution but I'm having trouble figuring it out and I was wondering if anyone might be able to explain how to use it? The text of the post is below. I understand steps 1-3 but I get lost at step 4: How would I call the sub in step 4? Would I just put it in a regular module? What would be an example of an "Ctrl" argument for the sub in step 4? Also, I note that the sub is called "MyControl_Click". Would that work even if the user activated the menu item using an accelerator key, not the mouse? The post says that code needs to be written to instantiate the class object. Does that mean a Property Get statement? Lastly, in step 3 the SaveAs button ID is specified. How would that Set statement be written if I wanted to get the id number for whatever menu item was activated? Many thanks for any help! Here's the original post: "You can do it by trapping the click event for the control. 1. Add a class module to the VBA project. 2. Declare a variable to trap the events: Public WithEvents MyControl As Office.CommandBarButton 3. In the module's initialize event, find the control you want to monitor. Private Sub Class_Initialize() Set MyControl = Application.CommandBars.FindCoÂntrol(ID:=748) End Sub (748 is the ID of SaveAs option on the File menu). 4. Write an event procedure for when the control is clicked: Private Sub MyControl _Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) MsgBox "FileSave Clicked" End Sub The click event is fired before the built-in command is run. Set CancelDefault = TRUE to prevent the built-in command running. 5. Write some code (eg in AutoExec) to instantiate your class object. You'll need to re-run this code if you do anything that resets the VBA project, like editing any code." (The original post I'm quoting from is http://groups-beta.google.com/group/microsoft.public.word.vba.general/msg/5c81f19b8c21b4b5?hl=en&) Thanks again Mike Tag: HELP!!- Object or class does not support set of events Tag: 72524
  - 20
    - Control of dialog boxes Hello All, Is it possible that we get the control of any dialog box that is opened when we click any menu item. e.g. File->Page Setup opens a dialog box, format->Autocorrect options open a dialog box,etc. I am coding in vb.net and want to get handle of these windows. Please help. GS Tag: HELP!!- Object or class does not support set of events Tag: 72520
  - 21
    - General Question About Userforms and Properties Hi, I am using WORD 2000 and I have a general question about Userforms and Properties. Userform-1 displays a custom dialog, Userform-2. Userform-1 has to know which command button(s) were pressed in Userform-2. Arguments are "passed" between the forms by property statements. Userform-2 sets properties in Userform-1 by using the CallByName statement. Userform-1 object and property names set in Userform-2 via property statements. Has anybody had any problems using the above described scenario? That is, are there problems using property statements in Userforms and using the CallByName statement? It does seem to work but I would just like to know if there are any "gotchas". Thanks in advance for any help, advice and tips. Jerry Bodoff Tag: HELP!!- Object or class does not support set of events Tag: 72518
  - 22
    - Insert Row Beneath Last Row in Table Hi There, I have some code that I have to run from within Excel. I have worked out how to locate a table and then manipulate the contents, but I can't work-out how to insert a new row below the last row of the table? Thanks Andy Tag: HELP!!- Object or class does not support set of events Tag: 72512
  - 23
    - Help on Excel-Word project I have to take an excel spreadsheet that has contact info and a brief bio and format them in a word document. The columns in the spreadsheet are lastname, firstname, address1, address2, city, state, zip, phone, email, bio, awards (among others) I would like to selectively place these into the word document like this: lastname, firstname address1 [address2] (if non-blank) city, state, zip [phone] (if ok to release) [email] (if ok to release) bio awards I don't want the blank lines to show if it's not anything in it, or if they've not authorized us to release the info. There are other columns in the spreadsheet (as to what classification they'd fall into) that I may not want printed in the word document. We're wanting to update just the Excel document with the data, and have it formatted in the word document when we open it (I am sure we will tweak the word document formatting some), but we don't want to do any data entry into the word document - only in excel. Can anyone help, or perhaps guide me to a source that I can learn quickly on? BC Tag: HELP!!- Object or class does not support set of events Tag: 72506
  - 24
    - Word printing slow when called from Access I'm calling Word 2003 from Access 2000, late bound. Here is a routine that till very recently printed light duty word docs pretty fast (shorthand) Set objWord = CreateObject("Word.Application") ' Open a doc so the selections can print, need a loaded doc... objWord.Documents.Add strSomeDoc objWord.PrintOut Background:=False, FileName:="c:\mydoc.doc" For some reason it jams up word for about a minute before anything starts to print. I can't think of anything that's changed recently on this pc, other than I've applied winxp sp2. Not sure how to approach this...in task manager, word never goes over 2% of cpu. Tag: HELP!!- Object or class does not support set of events Tag: 72502
  - 25
    - Controls in a form Hi I currently have a userform that has about 4dozen mixed controls in it in a page Control. At present i have to reference every control like txtName1.value. the controls have not been put onto the form in the way that i want to access them. Is there an easy way to access them, like using a number and if yes can i change the orders of the numbers to the order i want to access the controls. My file is 1.5mb in size, any ideas why. David Tag: HELP!!- Object or class does not support set of events Tag: 72501

Hi. I'm trying to run a mailmerge from VB6(sp6) which produces a set of
labels. It works fine from my development machine but when I install the app
anywhere else I get the error above.

I'm not even sure where to start in trying to solve this error. Any help at
all would be greatly appreciated.

I'm developing on XP and the project references Microsoft Word 11.0 Onject
library...if that helps.

Thanks

Top

Re: HELP!!- Object or class does not support set of events by Cindy

Cindy
Fri Aug 19 04:31:52 CDT 2005

Hi Lisa,

> Hi. I'm trying to run a mailmerge from VB6(sp6) which produces a set of
> labels. It works fine from my development machine but when I install the app
> anywhere else I get the error above.
>
> I'm not even sure where to start in trying to solve this error. Any help at
> all would be greatly appreciated.
>
> I'm developing on XP and the project references Microsoft Word 11.0 Onject
> library...if that helps.
>
which version of Word is on the target machine where you're seeing the error?

If you can't debug on the target machine, setup a "debug" version that either
shows a message box at every step, or writes to a log file, so that you can
isolate the line of code causing the error.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Top