"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).

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

.

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

.

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

.

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

.

.

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

.

.

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

.

.

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

.

.

.

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

.

.

.

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

.

.

.