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
0 comentarii