Rename multiple PDF file names, based on its content

Question

I am trying to rename PDF files that are in the folder C: \ ... I need to rename all the files based on its content in Page 1

I have a code that I researched but it extracts all the data from the pdf and pastes it into an excel. How can i use it to rename the name of the pdf file from where it was extracted?

Also, this code works for a single file, how to write the macros for multiple files?

Private Sub CommandButton3_Click()  '(load pdf)


Dim o As Variant
Set appWord = CreateObject("Word.Application")
o = Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe C:\Users\80030655\Desktop\101448.pdf", vbNormalFocus)
Application.Wait (Now + TimeSerial(0, 0, 2))

SendKeys ("^a")
SendKeys ("^c")
SendKeys "%{F4}"
Application.Wait Now + TimeValue("00:00:01")
Set appWord = CreateObject("Word.Application")
appWord.Visible = False
appWord.Documents.Add.Content.Paste
With appWord

   .Selection.WholeStory
   .Selection.Copy
   .ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
   .Quit
End With

MsgBox " Paste to EXCEL "


Set wkSheet = ActiveSheet
wkSheet.Range("A1").Select
wkSheet.Paste

End Sub