1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Dim WordApp As Word.Application
Sub LoadData()
Set WordApp = New Word.Application
WordApp.Visible = False
WordApp.FileDialog(msoFileDialogOpen).AllowMultiSelect = True
WordApp.ChangeFileOpenDirectory (Options.DefaultFilePath(wdDocumentsPath))
Count = 4
If WordApp.FileDialog(msoFileDialogOpen).Show = -1 Then
WordApp.WindowState = wdWindowStateMinimize
For Each objFile In WordApp.FileDialog(msoFileDialogOpen).SelectedItems
GetDataFromForms objFile, Count
Count = Count + 1
Next
End If
WordApp.Application.Quit
End Sub
Private Sub GetDataFromForms(ByVal FileName As String, ByVal Row As Integer)
Dim Sheet As Worksheet
Dim WordDoc As Word.Document
Set Sheet = ThisWorkbook.Sheets("Extraction")
Set WordDoc = WordApp.Documents.Open(FileName, ReadOnly:=True)
Sheet.Range("A" & Row).Value = WordDoc.FormFields("BO1").Result
Sheet.Range("B" & Row).Value = WordDoc.FormFields("num1").Result
Sheet.Range("C" & Row).Value = WordDoc.FormFields("refdos").Result
Sheet.Range("D" & Row).Value = WordDoc.FormFields("refclea1").Result
End sub |
Partager