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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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). . . . |
#9
|
|||
|
|||
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). . . . |
#10
|
|||
|
|||
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). . . . |
|
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 |