;
> ** **
>
> Regards.
>
> ** **
>
> Daniel
>
> ** **
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Shrinivas Shevde
> *Envoyé :* jeudi 18 août 2011 08:53
>
> *À :* excel-macros@go
You forgot the attachment ;-)
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Shrinivas Shevde
Envoyé : mercredi 17 août 2011 11:04
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros$$ From Word to Excel
Dear Daniel
t;
> ** **
>
> Daniel
>
> ** **
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Shrinivas Shevde
> *Envoyé :* mardi 16 août 2011 10:46
>
> *À :* excel-macros@googlegroups.com
> *Objet :* Re: $$Excel-Ma
10:46
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros$$ From Word to Excel
Dear Daniel
Very very thanks for kind help
There is some problem at following line
For j = 3 To myTable.Columns(i).Cells.Count
Run Time ERROR 5992
Can not access indivsual columns in this
Dear Daniel
Very very thanks for kind help
There is some problem at following line
For j = 3 To myTable.Columns(i).Cells.Count
Run Time ERROR 5992
Can not access indivsual columns in this collection because the table has
mixed cell width
Please Help
Shrinivas
On Sat, Aug 13, 2011 at 4:10 PM, D
Test the below macro :
Sub WordToExcel()
Dim strFolder As String, F As Object, strRootFolder As String
Dim FSO As Object, SF As Object, WordApp As Object
Dim WordDoc As Object, Ctr As Long, strFile As String, myTable As Object
Application.ScreenUpdating = False
Set Word
