Добрый день,  
 
Помогите пожалуйста доделать макрос, мозга не хватает. Суть такова что есть папка, в ней сложены файлы от Por1.doc .....Por48.doc. В каждом файле есть таблицы, которые необходимо все перенести в эксель. Второй день мучаюсь не могу цикл правильно дописать. То есть у меня получилось считать 1 файл, ну а чтобы считать по порядку все никак не получается, ну и перенести их в 1 столбец все таблицы попорядку.  
 
Sub Get_Data_From_WORD()  
   Dim oWrd As Object, oWrdDoc As Object  
   Dim l_FilePath As String  
     
   Set oWrd = CreateObject("Word.Application")  
     
     
   l_FilePath = "d:\work\roma\20121217\dir\"  
   l_file = Dir(l_FilePath)  
   Do While l_file <> ""  
       If l_file <> "." And l_file <> ".." Then  
           If l_file Like "*.doc" Then                  
               With oWrd  
                   .Visible = True  
                   Set oWrdDoc = .Documents.Open(l_FilePath & l_file)  
                   .Selection.WholeStory  
                   .Selection.Copy  
                   Application.Wait (Now + TimeValue("00:00:01"))  
                   ThisWorkbook.Sheets(1).Paste  
                   oWrdDoc.Close False: .Quit  
               End With  
              Set oWrdDoc = Nothing: Set oWrd = Nothing  
                 
           End If  
       End If  
       l_file = Dir  
   Loop  
End Sub