Can't exit design mode because Control 'Commandbutton1' can not be cre

[YACHTIE]

Hello,
I keep getting messages (error) that don't make sense,like the one in the subject line. Tried same code in another document (also with forms) but don't get that message but code won't run. am running Word 2002 with office SP3 have used macro recorder to get the following code.
Anything wrong with this code ?

Selection.MoveRight Unit:=wdCharacter, Count:=9, Extend:=wdExtend
Selection.Copy
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.PasteAppendTable

Basically all I am trying to accomplish is when user presses a commandbutton on the form, this code adds a new row in a table.

TIA

 

[calculus]

Try this:
ActiveDocument.Tables(1).Rows.Add

calculus

 

[YACHTIE]

Thanks calculus, however I have solved the problem as follows since the table is formatted with formfields I felt is simpler (from my limited VBA capability anyway)to do the copy and paste routine, see below and this particular error was related to some corrupted document porblem as I have this working in another(same) document, with one minor deficiency. Whic is that after the user actually fills in the data into the formfields, they are also copied over now I need a simple method to clear those entries after the paste command.
Any suggestions???

    ActiveDocument.Unprotect
'Position cursor in table
' Created bookmark (Text32) in last row first cell
    ActiveDocument.Bookmarks("Text32").Range.Fields(1).Result.Select
    Selection.MoveRight Unit:=wdCharacter, Count:=9, Extend:=wdExtend
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAppendTable
   ' ActiveDocument.FormFields(1).TextInput.Clear

     ' Lock the document
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub