VBA Tools

Kopiując dane ze strony HTML, z pliku PDF lub importując z innego medium możemy otrzymujemy puste tabele. ich usunięcie jest na tyle problematyczne iż mogą one sąsiadować ze sobą oraz wystawać poza dokument (ich obróbka jest pracochłonna).

Aby usunąć takie wpisy możemy zrealizować zadanie poniższym kodem VBA:

Sub Usuniecie_pustych_tabel()
'MVP OShon from VBATools.pl
Dim ce As Cell, rng As Range, puste As Boolean, x&
Application.ScreenUpdating = False
On Error Resume Next
For x = 1 To ThisDocument.Tables.Count
puste = True
For Each ce In ThisDocument.Tables(x).Range.Cells
 Set rng = ce.Range
 If Len(Trim(Replace(rng.Text, Chr(13), vbNullString))) > 1 Then
 puste = False
 Exit For
 End If
Next ce
If puste = True Then ThisDocument.Tables(x).Delete
Next x
Set rng = Nothing
Application.ScreenUpdating = True
End Sub