Eerste lege regel in een tabel van Word

[Hans Gorter]

Ik zoek een macro die de eerste lege regel in een wordtabel kan opzoeken. Iemand een idee? Vast bedankt!

 

[OctaFish]

Met deze macro kom je een heel eind...

Sub LegeRegel()
Dim aTabel As Table
Dim aCel As Cell
Dim aKol As Column
Dim sTekst As String
Dim iLeeg As Integer
For Each aTabel In ActiveDocument.Tables
    For Each aKol In aTabel.Columns
        For Each aCel In aKol.Cells
            sTekst = aCel.Range.Text
            If Len(sTekst) = 2 Then
                iLeeg = Asc(Left(sTekst, 1)) + Asc(Mid(sTekst, 2, 1))
                If iLeeg = 20 Then
                    aCel.Select
                    Exit For
                End If
            End If
        Next aCel
    Next aKol
Next aTabel
End Sub

Het zal nog wel wat makkelijker kunnen, maar dat weet ik zo gauw niet...

 

[Hans Gorter]

Super, ik ga het proberen!