1. Error 4609- String Too Long
Anybody know anything about the string too long error message. I'm copying
form field text from one doc to another using the following line of code:
CurrentDoc.Range.FormFields("ScopeOfRegistration").Result =
OldReport.Range.FormFields("ScopeOfRegistration").Result
And I get the error if the text is too long. The formfields are set to
unlimited text, and I can manually copy from one to the other, so I know it's
not a table row size limitation, but I can't figure out why I am getting this
message. Any words of wisdom would be much appreciated.
2. Userform -> Formfield error 4609: "String too long"
3. Why "String too long" (error 4609)?
Context: WinXP pro, Office 2003 Busy filling a Word form from an Outlook VbaProject module. The error occurs when assigning a 300-byte string value to a Text Form Field with a declared max length of 400 Extract from code: Dim WDApp As Word.Application Dim nam As String, val As String ' nam and val get a value WDApp.ActiveDocument.FormFields(nam).Result = val Why the error? -- Peter J. Veger, Best Netherlands
4. Event ID: 4609 - Microsoft Office
5. Word crashes. EventSystem 4609
My computer shuts down every so often as I am typing. Sometimes every ten minutes sometimes not for a number of days. I went onto a computer forum where I was told to right-click on the My Computer icon on your desktop and choose Properties from the menu. Click the Advanced tab, and then click the Settings button in the "Startup and Recovery" section. In the "System Failure" section, untick the "Automatically Restart" option, click OK, Apply and OK to exit. Now when your computer encounters the same problem again, rather than shutting down, it will give an error message. I right-clicked on the My Computer icon on my desktop and choose Properties from the menu. Click the Advanced tab, then clicked the Settings button in the "Startup and Recovery" section. In the "System Failure" section, unticked the "Automatically Restart" option, clicked OK and exited. The only problem is that there is no Apply button and when the computer crashed again there was no error message to be seen. I was then told to select 'Manage' then 'Event Viewer' which would allow me to view 'Application' & 'System' which may indicate what is causing the problem ;) I did this and looked at the pplication folder where I noted a series of red circles where the computer had crashed. On the line where there was a red circle with a white cross running from corner to corner there were a series of columns. Under the column ourceit stated, ventSystem Under the Category column it stated, 0 Under the Event column it stated 609 I opened the ystem folder and noted a group of red circles with the white cross running from corner to corner. Under the ourcecolumn it stated DCOM I was then told to look in event viewer and to double click the event 4609, and see what the description said. I did this and it said the following. Event Type: Error Event Source: EventSystem Event Category: (50) Event ID: 4609 Date: 26/07/2006 Time: 12:36:45 User: N/A Computer: 654FF476EC3543F Description: The COM+ Event System detected a bad return code during its internal processing. HRESULT was 8007041F from line 44 of d:\qxp_slp\com\com1x\src\events\tier1\eventsystemobj.cpp. Please contact Microsoft Product Support Services to report this error. By then my helper had got fed up and told me to look at the Microsoft for Help and Support Centre. I have to say that I have been having problems ever since I asked so called computer expert to sort out some problems. I am inclined to copy all my files to DVDs and format the computer and reload all the hardware discs.
6. Compare two strings and find longest common sub-string - Word VBA
7. How to convert extra long strings into their equivalent Hex Strings in VBA (Word 2K)
In article <aad67719-4c38-44ba-a577-feeadc36269c@ 27g2000hsf.googlegroups.com>, XXXX@XXXXX.COM says... > Hi there, > > I have an interesting problem. I am trying to write code in VBA (Word > 2K) wherein I have to convert a string-representation of really large > numbers (upto 18 digits max) into its equivalent Hex String > representation > > e.g. ConvertNumberToHex( "999999999999999999" ) => "DE0B6B3A763FFFF" > > I have no problems as long as the number being passed to the function > is less than the max allowed by the Long Type in VBA (Word 2K) viz. > &h7FFF FFFF = 2147483647. But, when the input is larger than this > number, I get overflows. > > Trying the Hex() or Val() also results in overflows when the input > number exceeds &h7FFF FFFF > > Any ideas how to perform this function easily in VBA (Word 2K)? This would probably be better answered in a VBA forum rather than a classic VB forum, but I doubt you'll be able to get this to work with any of the built-in functions if your values exceed the max limits for those functions; I think you'll have to write it yourself or find a 3rd party library. I don't think either of those options will meet your "easily" criterium, though. -- Remove the ns_ from if replying by e-mail (but keep posts in the newsgroups if possible).