Exporting MS Word tables column #7
Thread poster: DZiW (X)
DZiW (X)
DZiW (X)
Ukraine
English to Russian
+ ...
Oct 5, 2019

I've got a few pretty long DOCX documents where many tables of the same format are inserted into the text.

How one could export column #7 from ALL the tables to a new file?

Some VBA or an offline tool, perhaps?

Thank you.


 
Tony M
Tony M
France
Local time: 09:01
Member
French to English
+ ...
SITE LOCALIZER
Quick and dirty solution! Oct 6, 2019

How about extracting all the tables (I believe there are utilities that can do this), then doing 'Convert table to text' followed by 'Convert text to table' in order to concatenate them all into one big table; and then simply select columns 1–6 and delete?

 
Samuel Murray
Samuel Murray  Identity Verified
Netherlands
Local time: 09:01
Member (2006)
English to Afrikaans
+ ...
@DZiW Oct 6, 2019

DZiW wrote:
How one could export column #7 from ALL the tables to a new file?


A temporary solution until something better comes along. Add this macro, then add a keyboard shortcut to it, then visit each table (click anywhere in it) and press the shortcut. When you've done all tables, delete all non-highlighted text.

Sub temporarysolution()
Selection.Tables(1).Columns(7).Select
Selection.Range.HighlightColorIndex = wdBrightGreen
End Sub

The macro quits with an error if a table has fewer than 7 columns, which makes it difficult for me personally to simply tell the macro "do this for all tables", because the macro will exit if it encounters a table with fewer than 7 columns.

Another solution is to copy/paste everything into Excel and then grabbing just the 7th column. Or, if that doesn't work, here's a macro that converts all tables to tabs, so you could try to run it, then copy everything to Excel:

Sub tablesconvert_tab()
For Each aTable In ActiveDocument.Tables
aTable.ConvertToText wdSeparateByTabs, True
Next aTable
End Sub


DZiW (X)
 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Exporting MS Word tables column #7






Protemos translation business management system
Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!

The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.

More info »
Anycount & Translation Office 3000
Translation Office 3000

Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.

More info »