This site uses cookies.
Some of these cookies are essential to the operation of the site,
while others help to improve your experience by providing insights into how the site is being used.
For more information, please see the ProZ.com privacy policy.
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.
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Tony M France Local time: 19:20 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?
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Samuel Murray Netherlands Local time: 19:20 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)
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Translate faster & easier, using a sophisticated CAT tool built by a translator / developer.
Accept jobs from clients who use Trados, MemoQ, Wordfast & major CAT tools.
Download and start using CafeTran Espresso -- for free
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.