converting pdf files to excel using microsoft word as the convertor

[DarkGlobus1OO]

i heard it is possible,sadly i didnt manage to achieve this function(the code either gives me an object error or goes to an infinite loop)
anyone done that before and can share his knowledge?
the code i tried:

Sub pdf_To_Excel_early_Binding()




Dim myWorksheet As Worksheet
Dim wordApp As Word.Application
Dim myWshShell As WshShell
Dim pathAndFileName As String
Dim registryKey As String
Dim wordVersion As String


Set myWorsheet = ActiveWorkbook.ActiveSheet


Set wordApp = New Word.Application
Set myWshShell = New WshShell


pathAndFileName = "the address of the pdf file"


wordVersion = wordApp.Version
registryKey = "HKCU\SOFTWARE\Microsoft\Office" & wordVersion & "\Word\Options"


myWshShell.RegWrite registryKey & "DisableConvertPdfWarning", 1, "REG_DWORD"


wordApp.Documents.Open _
 Filename:=pathAndFileName, _
 ConfirmConversions:=False
 
myWshShell.RegWrite registryKey & "DisableConvertPdfWarning", 0, "REG_DWORD"


wordApp.ActiveDocument.Content.Copy


With myWorksheet
 .Range("B4").Select
 .PasteSpecial Format:="Text"
End With


wordApp.Quit SaveChanges:=wdDoNotSaveChanges


Set wordApp = Nothing
Set myWshShell = Nothing


End Sub

 

[Macropod]

It's not at all apparent why you're using Word for this or why you're messing with Registry values.

 

[DarkGlobus1OO]

im using word because its the only option i have, i need to write this code in a computer that has no access to the internet and pretty much only has microsoft office installed on it, from my understanding word 2013+ can convert pdf files to word,
im messing with the registery so i wont see the convertion alert, help would be much appreciated

 

[Macropod]

Did you try it with just:
wordApp.Documents.Open FileName:=pathAndFileName, ConfirmConversions:=False
or, alternatively, with:

Sub pdf_To_Excel_early_Binding()
Dim myWorksheet As Worksheet, wordApp As New Word.Application
Set myWorsheet = ActiveWorkbook.ActiveSheet
pathAndFileName = "the name & address of the pdf file"
With wordApp
  .DisplayAlerts = wdAlertsNone
  .Documents.Open FileName:=pathAndFileName, ConfirmConversions:=False
  With .ActiveDocument
    .Content.Copy
    myWorksheet.Range("B4").PasteSpecial Format:="Text"
    .Close False
  End With
  .DisplayAlerts = wdAlertsAll
  .Quit
End With
End Sub

 

[DarkGlobus1OO]

the code you have provided does not work