Het omzetten van tabellen naar tekst

Tafels zijn een grote zegen voor de gebruikers van Word. Wanneer u werkt met documenten die zijn gemaakt in een andere tekstverwerker, echter, tafels kunnen hinder. Bijvoorbeeld, een WordTips lezer klaagde dat zijn twee kolommen tekst gemaakt in WordPerfect werd omgezet in Word tabellen. Als hij een manier om alle tabellen automatisch converteren naar tekst, zonder de noodzaak om elke tafel handmatig verwerken.

De volgende macro, AllTablesToText, zal het lukken. Het stappen door elke tabel in het huidige document en zet ze allemaal om tekst, met tabs tussen de kolommen:

Sub AllTablesToText ()
Dim eetlepels As Long
Dim J As Long

Eetlepels = ActiveDocument.Tables.Count
Voor J = eetlepels Om 1 Step -1
ActiveDocument.Tables (J) .ConvertToText Separator: = wdSeparateByTabs
Volgende J
End Sub

Als je niet tabbladen tussen de kolommen wilt, alles wat je hoeft te doen is het veranderen van de waarde die aan de parameter Separator. U kunt wdSeparateByCommas, wdSeparateByDefaultListSeparator, of wdSeparateByParagraphs gebruiken.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (866) van toepassing op Microsoft Word 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van het Woord (Word 2007 en later) hier: Het omzetten van tabellen naar tekst.


© 2020 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com