Извлечение ключевых слов из pdf-файла с помощью Python

У меня есть pdf файл (ссылка ниже).

Мне нужно извлечь из него ключевые слова, а также узнать их частоту в pdf файле. Например, 'Java':42, 'наследование':3.

Мне нужно сохранить ключевые слова с их весами в excel таблице.

Не могли бы вы подсказать, как это сделать на python.

https://drive.google.com/file/d/1gZCnlhwVMBIE0SugUUxDIgQrfVz-cDQR/view

Это интересный вопрос! Давайте конвертируем все ваши PDF файлы в текстовые документы, чтобы вы могли пройтись по каждому из них, прочитать все содержимое и затем отчитаться об этом в MS Excel.

Sub OpenAndReadWordDoc()

Rows("2:1000000").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A1").Select

    ' предполагается, что предыдущая процедура была выполнена
    Dim oWordApp As Word.Application
    Dim oWordDoc As Word.Document
    Dim blnStart As Boolean
    Dim r As Long
    Dim sFolder As String
    Dim strFilePattern As String
    Dim strFileName As String
    Dim sFileName As String
    Dim ws As Worksheet
    Dim c As Long
    Dim n As Long
    Dim iCount As Long
    Dim strSearch As String

    '~~> Создайте объект приложения Word
    On Error Resume Next
    Set oWordApp = GetObject(, "Word.Application")
    If Err Then
        Set oWordApp = CreateObject("Word.Application")
        ' Мы начали Word для этого макроса
        blnStart = True
    End If
    On Error GoTo ErrHandler

    Set ws = ActiveSheet
    r = 1 ' начальная строка для скопированного текста из документа Word
    ' Последний столбец
    n = ws.Range("A1").End(xlToRight).Column

    sFolder = "C:\Users\Excel\Desktop\test\"

    '~~> Это расширение, с которым вы хотите работать
    strFilePattern = "*.doc*"
    '~~> Проходите по папке, чтобы получить файлы word
    strFileName = Dir(sFolder & strFilePattern)
    Do Until strFileName = ""
        sFileName = sFolder & strFileName

        '~~> Откройте документ word
        Set oWordDoc = oWordApp.Documents.Open(sFileName)
        ' Увеличьте номер строки
        r = r + 1
        ' Введите имя файла в столбец A
        ws.Cells(r, 1).Value = sFileName

        ActiveCell.Offset(1, 0).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Sheet1").Range("A" & r), Address:=sFileName, _
        SubAddress:="A" & r, TextToDisplay:=sFileName

        ' Перебирайте столбцы
        For c = 2 To n
            If oWordDoc.Content.Find.Execute(FindText:=Trim(ws.Cells(1, c).Value), _
                    MatchWholeWord:=True, MatchCase:=False) Then

                    strSearch = ws.Cells(1, c).Value
                    iCount = 0

                    With ActiveDocument.Content.Find
                        .Text = strSearch
                        .Format = False
                        .Wrap = wdFindStop
                        Do While .Execute
                            iCount = iCount + 1
                        Loop
                    End With

            ws.Cells(r, c).Value = iCount
            End If
        Next c
        oWordDoc.Close SaveChanges:=False

        '~~> Найдите следующий файл
        strFileName = Dir
    Loop

ExitHandler:
    On Error Resume Next
    ' закройте приложение Word
    Set oWordDoc = Nothing
    If blnStart Then
        ' Мы начали Word, так что мы закрываем его
        oWordApp.Quit
    End If
    Set oWordApp = Nothing
    Exit Sub

ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub

Function GetDirectory(path)
   GetDirectory = Left(path, InStrRev(path, "\"))
End Function

Проверьте приведенный выше код и дайте обратную связь. Моя настройка выглядит, как на изображении ниже.