Hi,
Thanks so much for the code but for me even though I select the folder
(which currently contains two filled in Word forms), it only transfers the
headings and "Please enter text" for each field even though text has been
filled in. Could this be because I used plain text content controls?
Hi, I know I'm a bit late to this so might not get answer but your code is
exactly what I need to do but I get a runtime error on the line Dim appWord
As Word.Application with the error "User-defined type not defined", do you
have any idea why? Thanks so much for the code.
On Wednesday, Octobe
Ashish - You are a very talented star! The code works perfectly. Thank
you so much. Michael
On Sat, Mar 29, 2014 at 12:47 PM, ashish koul wrote:
> Sub test()
> Dim filenm As String, folderpath As String
> folderpath = "C:\Documents and Settings\Ashish Koul\Desktop\sample
> files\"
>
Sub test()
Dim filenm As String, folderpath As String
folderpath = "C:\Documents and Settings\Ashish Koul\Desktop\sample
files\"
filenm = Dir(folderpath)
While (filenm <> "")
If InStr(filenm, ".doc") > 0 Then
Call copytables(folderpath & filenm)
End If
filenm = Dir
Ashish,
The code works great!!! How could it be modified to create a new Excel
document for each Word table discovered? Kindly advise. Thank you,
Michael
On Wednesday, October 2, 2013 1:09:44 AM UTC-4, ashish wrote:
>
> try this
>
> Sub import_word_table_to_excel()
> Application.DisplayAlert
Dear Ashish,
Any further help in this matter please.
Regards
Nasir Khan
On Fri, Oct 4, 2013 at 12:38 AM, Nasir Khan wrote:
> Yes I did.
> But as mentioned in my reply I need the code to
> 1) run on all the files in the given Path = Your code run a single folder
> at a time...there are several fo
Yes I did.
But as mentioned in my reply I need the code to
1) run on all the files in the given Path = Your code run a single folder
at a time...there are several folder in the given path.
2) Each table should come on a separate sheet - Your code bring in the
table one below other
3) The sheet nam
have you tried the code which i shared
On Thu, Oct 3, 2013 at 1:34 PM, Nasir Khan wrote:
> Dear Ashish,
> Thanks for the code.
> My requirement is to import all the word tables from all the sub-folder in
> the given path.
> I got the following code from the net which obviously is not working.
>
Dear Ashish,
Thanks for the code.
My requirement is to import all the word tables from all the sub-folder in
the given path.
I got the following code from the net which obviously is not working.
Sub DoItNow()
Dim file
Dim path As String
' the path to the folder
' make SURE you include the terminat
try this
Sub import_word_table_to_excel()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim fldpath
Dim fld, fil As Object
Dim appWord As Word.Application
Dim docWord As Word.Document
Dim tableWord As Word.Table
Dim sdoc As String
' use to choose the folder having word doc
Hello All,
I have got lot of MS Word files in a folder eg. C:\Test\
I wish to copy and paste the Tables from all the word documents in the
above mentioned folder to excel.
I found Macro1 (see below) which copy and paste the Table in Excel.
My requirement is to get the tables from all the docume
11 matches
Mail list logo
