Vba word pdf table to excel

Sub ImportPDFTable()
Dim wdDoc As Object
Dim wdFileName As Variant
Dim wrd As Object
Dim ApplicationIsRunning As Object
Dim IsWordRunning As Boolean
Dim TableNo As Integer
Dim iRow As Long, iCol As Integer, iCount As Integer

    wdFileName = Application.GetOpenFilename("PDF files,*.pdf,Word files,*.doc*", , _
    "Browse for file containing table to be imported")

    If wdFileName = False Then Exit Sub '(user cancelled import file browser)
    Set wrd = CreateObject("Word.Application")
    Set wdDoc = wrd.Documents.Open(wdFileName) 'open PDF file in Word
    wrd.Visible = False

    wrd.Selection.WholeStory
    wrd.Selection.Copy
    ActiveSheet.PasteSpecial Format:="Text" 'optional - pastes whole document for easy checking
    Range("A1").Select

    With wdDoc
        TableNo = wdDoc.tables.Count
        If TableNo = 0 Then MsgBox "This document contains no tables", vbExclamation, "Import Word Table"

        For iCount = 1 To TableNo
            Worksheets.Add
            'Range("A:M").NumberFormat = "@"
            TableNo = iCount
            With .tables(TableNo)
            'copy cell contents from Word table cells to Excel cells
                For iRow = 1 To .Rows.Count
                    For iCol = 1 To .Columns.Count
                        On Error Resume Next
                        Cells(iRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
                    Next iCol
                Next iRow
            End With
        Next iCount
    End With

    Set wdDoc = Nothing
    wrd.Quit
    Set wrd = Nothing

End Sub

Source: stackoverflow.com

Similar codes

1 vote142 views1 answer
Vba compile error object required
VBA
0 vote153 views1 answer
Vb net show lines for all axis labels in chart
VBA
1 vote146 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
6 votes171 views1 answer
Excel vba get the path of current workbook
VBA
0 vote172 views1 answer
Vba clear collection
VBA
0 vote169 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote167 views1 answer
Regex numeric digits
VBA
0 vote162 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
5 votes175 views1 answer
Vba low byte from INTEGER
VBA
0 vote160 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA