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 ฝรั่งเศส Local time: 14:15 ภาษาฝรั่งเศส เป็น ภาษาอังกฤษ + ...
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 เนเธอร์แลนด์ Local time: 14:15 สมาชิก (2006) ภาษาอังกฤษ เป็น ภาษาอาฟริกา + ...
@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)
The underlying LLM technology of LinguaCore offers AI translations of unprecedented quality. Quick and simple. Add a human linguistic review at the end for expert-level quality at a fraction of the cost and time.
Pastey is an innovative desktop application that bridges the gap between human expertise and artificial intelligence. With intuitive keyboard shortcuts, Pastey transforms your source text into AI-powered draft translations.