Usunięcie pustych tabel w dokumencie Word
by vbatools on May.19, 2011, under Porady, Word
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
Przy takich operacjach należy pamiętać iż ważne jest przygotowanie kopii zapasowej edytowanego dokumentu.
(c) Shon Oskar – www.VBATools.pl
Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.