[Word] Macro o.i.d. voor verwijderen tabel belijning?

[[J.d.I.] DirtyHarry]

Mijn vriendin heeft een document vol met statistische tabellen, een stuk of 50 in totaal. Nou is ze erachter gekomen dat in statistische tabellen eigenlijk geen vertikale lijnen horen te staan.

Om al die tabellen handmatig aan te passen en met zo'n 'potloodje' de vertikale belijning te verwijderen kost handenvol tijd. Ik dacht dat het wel makkelijker moet kunnen m.b.v. een macro oid. Na enig speurwerk met google ben ik er niet achter kunnen komen of dat kan of niet.

Weet iemand of het mogelijk is om op een makkelijke manier van alle tabellen in het Word document de vertikale lijnen te verwijderen? Mijn dank is groot.

Ps. Ze gebruikt MS Office Mac 2004

[Lustucru]

Geen mac hier en geen flauw idee of het objectmodel veel uitmaakt, maar anyway:

macrorecorder levert

code:

    Selection.Tables(1).Select
    Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone

Dat vreselijke selection eruit en een loopje eromheen:

code:

    Dim t As Table
    For Each t In ActiveDocument.Tables
        t.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    Next t

Het antwoord is dus ja.

[[J.d.I.] DirtyHarry]

Het werkt in zoverre, dat alle verticale border lijnen verdwijnen behalve de twee buitenste borders. Maar das verder niet erg geloof ik Scheelt in ieder geval al heel veel werk!

Muchos gracias!