Să nu fiu înţeles greşit: tabelele din Word sunt excelente. Există totuşi un scenariu când ele sunt groaznic de enervante: când includ text ce nu e justificat să fie într-un tabel, dar în urma unei convertiri din PDF în Word totuşi aşa a ieşit. Cine a trecut prin acest proces ştie că aproape orice convertor, când dă de o structurare mai ciudată a textului recurge la tabele. Chiar şi Word 2013, care ştie citi şi converti frumos PDF-uri apelează la tabele când sunt formatări speciale.

Aşa se face deci că m-am trezit – nu pentru prima oară – cu un fişier Word, rezultatul unei convertiri din PDF, cu zeci de tabele înăuntru. Pe fiecare ar fi trebuit să dau click (pe acel semn din colţul stânga-sus) şi să aleg Convert to Text din tabul Layout. Sau să folosesc un macro! Da. E mult mai simplu. Puteţi crea un macro fictiv şi apoi insera codul de mai jos. Oricum ar fi, codul de mai jos face minuni: un efort de poate o jumătate de oră a devenit un click.

For Each unTabel In ActiveDocument.Tables
    unTabel.ConvertToText wdSeparateByParagraphs, True
Next unTabel

De reţinut că wdSeparateByParagraphs poate fi înlocuit cu wdSeparateByCommas sau wdSeparateByTabs, după dorinţă.

Pentru eliminat imagini mi-a mers următorul macro:

Dim i As Integer
With ActiveDocument
    For i = 1 To .InlineShapes.Count
        .InlineShapes(i).ConvertToShape
    Next i
    .Shapes.SelectAll
    Selection.Delete
End With