VBA to save results to existing workbook instead of new workbook.

[Akbarov]

Hello Dear community,

I have a VBA workbook which copy data from Word document and saves it to new excel file.
Can anybody help me to save it to existing workbook instead of new workbook?

For Each f In fo.Files
    Set doc = wa.documents.Open(f.Path, False, Format:="PDF Files")
    Set wr = doc.Paragraphs(1).Range
    wr.WholeStory
    
    
    Set nwb = Workbooks.Add
    Set nsh = nwb.Sheets(1)
    wr.Copy
    
    nsh.Paste
    nwb.SaveAs (excel_path & "\" & Replace(f.Name, ".pdf", ".xlsx"))
    
    doc.Close False
    nwb.Close False
Next

Thank you.

 

[Akbarov]

Hello Fluff and Georgiboy,

Your code worked perfectly , but I think Word couldn't handle my task. Results had a lot of mistakes.
I downloaded Adobe Acrobat and trying convert with help of it.

But I get error in this line

Set av_doc = CreateObject("AcroEaxh.AVDoc")

Error message:
Run-time error '429'
ActiveX component can't create object.

Any help please?

Option Explicit
Sub convert_pdf_doc()

Dim aApp As Acrobat.AcroApp
Dim av_doc As CAcroAVDoc
Dim pdf_doc As CAcroPDDoc
Dim jso_obj As Object

Dim sfile As String
Dim dfile As String
Dim ext As String

ext = "xlsx"

sfile = "C:\Users\Mac\Downloads\Fiverr\Order\Order for Edgar\Input\20220227-statements-1226-.pdf"
dfile = Replace(sfile, "." & ext, 1)

Set aApp = CreateObject("AcroExch.App")
Set av_doc = CreateObject("AcroEaxh.AVDoc")

If av_doc.Open(sfile, vbNull) = True Then

Set pdf_doc = av_doc.getPDDoc
Set jso_obj = pdf_doc.GetJSObject

jso_obj.SaveAs dfile, "com.adobe.acrobat." & ext

End If

av_doc.Close False

End Sub