[skbenlc]

On Mar 23, 10:48*pm, "Doug Robbins - Word MVP on news.microsoft.com"
wrote:
the

the
Table

are intended to be part of the comment on the previous row. *Move them to
the end of the line of code

*' automatically on exit from the last cell in the present last row of

so that it reads

*' automatically on exit from the last cell in the present last row of the
Table
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"skbenlc" wrote in message

...
On Mar 23, 6:04 pm, "Doug Robbins - Word MVP on news.microsoft.com"





wrote:
The End Sub is of course required. However look a bit close and you will
see that I also altered the lines

ActiveDocument.FormFields.Add Range:=.Cell(rownum,
i).Range,

and

.Cell(.Rows.Count, .Columns.Count).Range.FormFields
(1).ExitMacro
= "addRow"

to

ActiveDocument.FormFields.Add Range:=.Cell(rownum, _
i).Range,

.Cell(.Rows.Count, .Columns.Count).Range.FormFields _
(1).ExitMacro = "addRow"

If you click on Debug, what line of code is highlighted.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"skbenlc" wrote in message

....
On Mar 23, 3:16 am, "Doug Robbins - Word MVP on news.microsoft.com"

wrote:
The problem will be caused by line breaks inserted by the mail program.
In
the following copy of the code, I have inserted linebreaks that will be
recognised by the Visual Basic Editor, which should overcome the
problem.

' Macro created 02/02/03 by Doug Robbins
' To add a new row to a table containing formfields in every column
' automatically on exit from the last cell in the present last row of
the
Table
Dim rownum As Long, i As Long
Dim Response
Response = MsgBox("Do you need to add another row to the table?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Add another Row")
If Response = vbYes Then ' User chose Yes.
With ActiveDocument
.Unprotect
With Selection.Tables(1)
.Rows.Add
rownum = .Rows.Count
For i = 1 To .Columns.Count
ActiveDocument.FormFields.Add Range:=.Cell(rownum, _
i).Range,
Type:=wdFieldFormTextInput
Next i
.Cell(.Rows.Count, .Columns.Count).Range.FormFields _
(1).ExitMacro = "addRow"
.Cell(.Rows.Count, 1).Range.FormFields(1).Select
End With
.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End With
Else ' User chose No.
Exit Sub
End If

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"skbenlc" wrote in message

....

Need assistance:

I'm working with a basic table generated using 2003 ms word forms.

Each cell of the table has a text form fill cell - table has one row,
and five cols.

The document has been saved as a template with the following macro
entered into the last cell.

Protection enabled.

Intent is for the last cell to be used to prompt the user on exit if
an additional row is needed.

If yes - another row is added - if not then allowed to move on to the
next section of the form which is unprotected.

I found this macro -- labled to add a table row using word forms.

I get the following error message: "Compile Error - Sub or Function
not defined"

Do I need to book mark the first cell in the table?

The macro is named as Macro6 and set for exit -- bookmark is filled in
as text5

Sub Macro6()

' Macro created 02/02/03 by Doug Robbins
' To add a new row to a table containing formfields in every column
' automatically on exit from the last cell in the present last row of
the
Table
Dim rownum As Long, i As Long
Dim Response
Response = MsgBox("Do you need to add another row to the table?",
vbYesNo +
vbQuestion + vbDefaultButton2, "Add another Row")
If Response = vbYes Then ' User chose Yes.
With ActiveDocument
.Unprotect
With Selection.Tables(1)
.Rows.Add
rownum = .Rows.Count
For i = 1 To .Columns.Count
ActiveDocument.FormFields.Add Range:=.Cell(rownum,
i).Range,
Type:=wdFieldFormTextInput
Next i
.Cell(.Rows.Count, .Columns.Count).Range.FormFields
(1).ExitMacro
= "addRow"
.Cell(.Rows.Count, 1).Range.FormFields(1).Select
End With
.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End With
Else ' User chose No.
Exit Sub
End If

End Sub- Hide quoted text -

- Show quoted text -

Entered the above macro: The only editing change I'm seeing is the _
located on the Response Line Questionf "Do you need to add another row
to the table?", _

Also noted that the End Sub was omitted -- ran the macro both ways --
with, and without the End Sub.: received the same "Compile Error -
Sub or Function not defined"

Thanks- Hide quoted text -

- Show quoted text -

In clicking on debug -- Quickwatch: *obtained the following:

Normal.newmacros.macro6

Expression * * * * * * * the

Value * * * * * * can't compile module

I rechecked the text form field options: *have the following
settings: *Reg. text, *Max. Length - Unlimited
Exit Macro6 * * *bookmark * * * * Text 7 * * * *Fill in enabled box is
checked * * * * Calculate on exit is unchecked:

also tried to run with Calculate on exit checked -- same error.

Using Debug -- Step Intro

cursor stops on "the"

Thanks for your review, and comments.- Hide quoted text -

- Show quoted text -

Edits completed for the comment line moving "the Table"

Macro now runs about to mid way generating a Syntax error

The line starting with Active is highlighted: the following line
begining with Type is in red text.

ActiveDocument.FormFields.Add Range:=.Cell(rownum, _
i).Range,

Type:=wdFieldFormTextInput

Thanks for the commens.