If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
|
#1
|
|||
|
|||
"Find " table?
I would like to convert all my tables to text. I use
tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). |
#2
|
|||
|
|||
Something like:
Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . |
#3
|
|||
|
|||
Thanks Greg, it works!
I was now wondering if there is a way to selectively convert tables to text, as there might be a few tables which I don't like to convert. Also, I usually record macros from "Toolsmacrorecord new macro", i.e. by using keyboard shortcuts for operations, as I am not very familiar with VB etc. So, is it possible to "find" a table somehow? I can then write (..infact record) a macro to convert the selected table to text, this will give me an opportunity to skip a table found if I don't want to convert it, and go to next find. -----Original Message----- Something like: Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . . |
#4
|
|||
|
|||
Vijay,
Something like: Sub ConvertSelectiveTablesToText() Dim rngstory As Range Dim Convert As VbMsgBoxResult Dim oTbl As Table MakeHFValid For Each rngstory In ActiveDocument.StoryRanges Do For Each oTbl In rngstory.Tables oTbl.Range.Select Convert = MsgBox("Do you want to convert this table?", vbYesNo, "Table Found") If Convert = vbYes Then With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With End If Next Set rngstory = rngstory.NextStoryRange Loop Until rngstory Is Nothing Next End Sub -----Original Message----- Thanks Greg, it works! I was now wondering if there is a way to selectively convert tables to text, as there might be a few tables which I don't like to convert. Also, I usually record macros from "Toolsmacrorecord new macro", i.e. by using keyboard shortcuts for operations, as I am not very familiar with VB etc. So, is it possible to "find" a table somehow? I can then write (..infact record) a macro to convert the selected table to text, this will give me an opportunity to skip a table found if I don't want to convert it, and go to next find. -----Original Message----- Something like: Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . . . |
#5
|
|||
|
|||
Vijay,
Something like: Sub ConvertSelectiveTablesToText() Dim rngstory As Range Dim Convert As VbMsgBoxResult Dim oTbl As Table MakeHFValid For Each rngstory In ActiveDocument.StoryRanges Do For Each oTbl In rngstory.Tables oTbl.Range.Select Convert = MsgBox("Do you want to convert this table?", vbYesNo, "Table Found") If Convert = vbYes Then With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With End If Next Set rngstory = rngstory.NextStoryRange Loop Until rngstory Is Nothing Next End Sub -----Original Message----- Thanks Greg, it works! I was now wondering if there is a way to selectively convert tables to text, as there might be a few tables which I don't like to convert. Also, I usually record macros from "Toolsmacrorecord new macro", i.e. by using keyboard shortcuts for operations, as I am not very familiar with VB etc. So, is it possible to "find" a table somehow? I can then write (..infact record) a macro to convert the selected table to text, this will give me an opportunity to skip a table found if I don't want to convert it, and go to next find. -----Original Message----- Something like: Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . . . |
#6
|
|||
|
|||
Vijay,
Something like: Sub ConvertSelectiveTablesToText() Dim rngstory As Range Dim Convert As VbMsgBoxResult Dim oTbl As Table MakeHFValid For Each rngstory In ActiveDocument.StoryRanges Do For Each oTbl In rngstory.Tables oTbl.Range.Select Convert = MsgBox("Do you want to convert this table?", vbYesNo, "Table Found") If Convert = vbYes Then With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With End If Next Set rngstory = rngstory.NextStoryRange Loop Until rngstory Is Nothing Next End Sub -----Original Message----- Thanks Greg, it works! I was now wondering if there is a way to selectively convert tables to text, as there might be a few tables which I don't like to convert. Also, I usually record macros from "Toolsmacrorecord new macro", i.e. by using keyboard shortcuts for operations, as I am not very familiar with VB etc. So, is it possible to "find" a table somehow? I can then write (..infact record) a macro to convert the selected table to text, this will give me an opportunity to skip a table found if I don't want to convert it, and go to next find. -----Original Message----- Something like: Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . . . |
#7
|
|||
|
|||
Thanks Greg, it works!
I was now wondering if there is a way to selectively convert tables to text, as there might be a few tables which I don't like to convert. Also, I usually record macros from "Toolsmacrorecord new macro", i.e. by using keyboard shortcuts for operations, as I am not very familiar with VB etc. So, is it possible to "find" a table somehow? I can then write (..infact record) a macro to convert the selected table to text, this will give me an opportunity to skip a table found if I don't want to convert it, and go to next find. -----Original Message----- Something like: Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . . |
#8
|
|||
|
|||
Thanks Greg, it works!
I was now wondering if there is a way to selectively convert tables to text, as there might be a few tables which I don't like to convert. Also, I usually record macros from "Toolsmacrorecord new macro", i.e. by using keyboard shortcuts for operations, as I am not very familiar with VB etc. So, is it possible to "find" a table somehow? I can then write (..infact record) a macro to convert the selected table to text, this will give me an opportunity to skip a table found if I don't want to convert it, and go to next find. -----Original Message----- Something like: Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . . |
#9
|
|||
|
|||
Though's Greg's solutions will be more efficient, you can in fact use the
Browse function to browse by tables. Click on the small circle between the two double arrows at the bottom of the vertical scroll bar. It will produce a menu of icons, as you move over the icons, the top bar will read "browse by heading", another "browse by section", another "browse by table", etc. After setting the "browse by table," click on the double arrows for Next Table or Previous Table. You can make NextTable into one command by recording a macro of yourself doing this, then linking the macro to a shortcut key or icon. On 9/9/04 6:45 AM, "Vijay J." wrote: I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). |
#10
|
|||
|
|||
Something like:
Sub ConvertTableToText() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl .ConvertToText Separator:=wdSeparateByParagraphs End With Next End Sub -----Original Message----- I would like to convert all my tables to text. I use tables for holding Fig+caption and Equation+caption. Is there a way to "Find" tables in a document just like we normally find anything else (characters, font etc)? (If yes, then I have in mind the approach to use a macro to convert all tables to text). Or I need to manually find each table, select it and convert it to Text? (Word 2000). . |
|
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Automatic filling of fields in table two from table one | Jim Kelly | Database Design | 1 | September 27th, 2004 10:16 PM |
Newbie? Do I use Report or Query | John Egan | New Users | 11 | June 28th, 2004 08:31 PM |
resize table from A4 size to A5 | ims | New Users | 3 | June 9th, 2004 01:05 AM |
How to find the index number of the table if it is a nested table. | OlgaP | Tables | 11 | May 25th, 2004 02:51 PM |
Error Message "Corrupt table - find it and repair it" | Chris | Tables | 1 | May 15th, 2004 05:24 AM |