Tables and Formulas in Forms
You could use a modification of the following code to accomplish what you
are after. It will however take a bit more code than is provided he
' 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 Integer, i As Integer
ActiveDocument.Unprotect
ActiveDocument.Tables(1).Rows.Add
rownum = ActiveDocument.Tables(1).Rows.Count
For i = 1 To ActiveDocument.Tables(1).Columns.Count
ActiveDocument.FormFields.Add
Range:=ActiveDocument.Tables(1).Cell(rownum, i).Range,
Type:=wdFieldFormTextInput
Next i
ActiveDocument.Tables(1).Cell(ActiveDocument.Table s(1).Rows.Count,
ActiveDocument.Tables(1).Columns.Count).Range.Form Fields(1).ExitMacro =
"addrow"
ActiveDocument.Tables(1).Cell(ActiveDocument.Table s(1).Rows.Count,
1).Range.FormFields(1).Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
--
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
"Bert0529" wrote in message
...
Hello All,
I am creating a commercial invoice form and in that form I have a table
with
the following fields:
Item Number, Quantity, Unit, Description, Unit Price, Total Price
The way I'd like the form to work is that the user can enter information
under the various headings for as many Items as there are using one row
for
each item. In other words a row would be added when needed for each new
line
item and the calculations would be performed automatically (including the
totalling the the Total Price column). Any suggestions for how to
accomplish
this?
In my tinkering I once came across a means of entering data into the
fields
of the table by a means that used a yellow-ish shaded text area. I cannot
seem to refind that function. If this sounds familiar please tell me the
name
of this feature.
Thank you,
Bert
|