VBATools

Usunięcie pustych tabel w dokumencie Word

by 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.
:, , , , ,

Leave a Reply