If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
A Bug I Think in Word 2000
Enter a simple table and add a bit of text to a few cells.
Put a check in: ToolOptionsEditUse smart cut and paste Type a few words after the table and copy it to the clipboard. Now run: Sub Test() Dim tbl As Word.Table Dim cel As Word.Cell Dim rng As Word.Range Set tbl = ActiveDocument.Tables(1) For Each cel In tbl.Range.Cells Set rng = cel.Range rng.MoveEnd wdCharacter, -1 rng.Collapse wdCollapseEnd rng.Paste Next End Sub This has interesting results. 1. If you selected and copied a complete word or phrase (without the leading space). The result is the text is pasted to all cells as expected, but a run time error is generated. Run Time Error '5825' Object has been deleted. :-( 2. If you copied only part of a word or a word/phase including a leading space, all is well. I have discovered that the cause of this behaviour is ToolsOptionsEditUse smart cut and paste. With that option off, the procedure works as expected with no run time error. That is the cause, but I don't really understand the why. I suppose that knowing this you could use an error handler: Sub Test() Dim tbl As Word.Table Dim cel As Word.Cell Dim rng As Word.Range Set tbl = ActiveDocument.Tables(1) On Error GoTo Handler For Each cel In tbl.Range.Cells Set rng = cel.Range rng.MoveEnd wdCharacter, -1 rng.Collapse wdCollapseEnd rng.Paste Next Exit Sub Handler: End Sub Does anyone know if this bug, as I have called it, is documented, why it happends, or a more appropriate workaround? Thanks. |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
hard space between words. | Sandy L | General Discussion | 7 | May 5th, 2006 08:25 PM |
Word 97 in Windows XP to maintain formatting | Charlie''s Word VBA questions | General Discussion | 21 | October 24th, 2005 09:49 PM |
How do I get rid of page numbers. The page number virus | flamestar | General Discussion | 3 | August 19th, 2005 02:31 AM |
How to change merge forms from Word Perfect to Microsoft Word | Charles Kenyon | General Discussion | 1 | December 30th, 2004 03:35 PM |
Word 2000 DDE Speed | Stefan German | General Discussion | 0 | May 17th, 2004 04:14 PM |