TechWhirl (TECHWR-L) is a resource for technical writing and technical communications professionals of all experience levels and in all industries to share their experiences and acquire information.
For two decades, technical communicators have turned to TechWhirl to ask and answer questions about the always-changing world of technical communications, such as tools, skills, career paths, methodologies, and emerging industries. The TechWhirl Archives and magazine, created for, by and about technical writers, offer a wealth of knowledge to everyone with an interest in any aspect of technical communications.
Subject:RE: Converting Word Tables to Text From:"Jonathan West" <jwest -at- mvps -dot- org> To:<techwr-l -at- lists -dot- techwr-l -dot- com> Date:Thu, 21 Dec 2006 17:21:22 -0000
> -----Original Message-----
> From: techwr-l-bounces+jwest=mvps -dot- org -at- lists -dot- techwr-l -dot- com
> [mailto:techwr-l-bounces+jwest=mvps -dot- org -at- lists -dot- techwr-l -dot- com]On Behalf Of
> Keith Hansen
> Sent: Thursday, December 21, 2006 5:09 PM
> To: techwr-l -at- lists -dot- techwr-l -dot- com
> Subject: Converting Word Tables to Text
>
>
>
> Hello all,
>
> I have an MS Word question. I have Word documents with dozens of tables
> in them. I want to convert all the tables to text. I go to the Table
> menu, then choose "Convert" and "Table to Text." Voila! The table turns
> to text.
>
> However, I have to select EACH table (one at a time), go up to the menu,
> etc., to do this.
>
> Is there some way to convert ALL tables in a document to text at once?
>
> Better yet, any way to write a macro to convert every single table in
> the doc to text?
>
> Thanks for any input!
>
Sub ConvertAllTablesToText()
Dim n As Long
For n = 1 to ActiveDocument.Tables.Count
ActiveDocument.Tables(1).ConvertToText
Next n
End Sub
A little bit of VBA is a very useful skill in such situations. A very
similar common requirement is to convert all hyperlinks to plain text
Sub DeleteAllHyperlinks()
Dim n As Long
For n = 1 to ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next n
End Sub
WebWorks ePublisher Pro for Word features support for every major Help
format plus PDF, HTML and more. Flexible, precise, and efficient content
delivery. Try it today! http://www.webworks.com/techwr-l
Create HTML or Microsoft Word content and convert to Help file formats or
printed documentation. Features include single source authoring, team authoring,
Web-based technology, and PDF output. http://www.DocToHelp.com/TechwrlList
---
You are currently subscribed to TECHWR-L as archive -at- infoinfocus -dot- com -dot-