Moving between Word Table Rows

bitex · August 16th, 2011, 01:48 PM

Hello,
I am trying to move between word table rows to retrieve data back into the userform, but so far, it's only retrieving one row of record when I click the next button. Here is the code and please tell me what I am doing wrong...

HTML Code:

  Dim i As Integer
    With ActiveDocument.Tables(6)
    For i = 3 To .Rows.Count - 1
        With .Rows(i)
        txtCName.Text = Left(.Cells(1).Range.Text, Len(.Cells(1).Range.Text) - 2)
        txtMembrane.Text = Left(.Cells(2).Range.Text, Len(.Cells(2).Range.Text) - 2)
        txtPore.Text = Left(.Cells(3).Range.Text, Len(.Cells(3).Range.Text) - 2)
        txtFilter.Text = Left(.Cells(4).Range.Text, Len(.Cells(4).Range.Text) - 2)
        txtVendorPure.Text = Left(.Cells(5).Range.Text, Len(.Cells(5).Range.Text) - 2)
        txtVendorNoPure.Text = Left(.Cells(6).Range.Text, Len(.Cells(6).Range.Text) - 2)
        txtMEDIPure.Text = Left(.Cells(7).Range.Text, Len(.Cells(7).Range.Text) - 2)
        End With
    Next i
    End With

Thanks in advance

Shasur · August 22nd, 2011, 11:24 PM

Since you are looping through the rows and assigning the values to the textbox , the textbox gets filled up with the last value at the end

Instead of this statement

For i = 3 To .Rows.Count - 1

You need to pass the actual row you want to take data from

i = iRowIWanted ' This can be a static variable that you can pass from the user form

With .Rows(i)

End With

Cheers
Shasur