RE: Converting Word Tables to Text

["Jonathan West" <jwest -at- mvps -dot- org>]

> -----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


Regards
Jonathan West

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

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- 

To unsubscribe send a blank email to 
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40infoinfocus.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to admin -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/techwhirl/ for more resources and info.