microsoft.public.word.vba.general

On Tue, 1 Apr 2008 04:41:07 -0700, Cyberwolf
wrote:

>That was what I was looking for, but I do not want the value of the 1st cell
>in the copied range to be copied, or delete it once the range is copied.

I don't understand "or delete it"
>Also I want to set the check boxes in the next 3 cells to false.

Sub NextCell()
Dim rTbl As Range
Set rTbl = Selection.Tables(1).Range
If Selection.Cells(1).Range.IsEqual( _
rTbl.Cells(rTbl.Cells.Count).Range) Then
Selection.Rows(1).Range.Copy
Selection.Tables(1).Rows.Add
Selection.Tables(1).Rows.Last.Select
Selection.Paste
Selection.Rows(1).Delete
Selection.MoveUp unit:=wdLine
Selection.Rows(1).Range.FormFields(1).Result = False
' e.g. ---------------------------------------------
Selection.Rows(1).Range.FormFields(2).Result = False
Selection.Rows(1).Range.FormFields(3).Result = False
Selection.Rows(1).Range.FormFields(4).Result = False
Else
Selection.Cells(1).Next.Select
Selection.Collapse
End If
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP