运行时错误'1004'方法'粘贴'_worksheet'失败

Question

这工作得很好，只是有时候我会收到此错误，但是这种情况越来越多。就像它可以处理一组发票一样，我会尝试将其更改为agian，下次再使用其中的一半。它在.Paste处中断，只是无法说明它是什么。我正在将PDF转换为Excel。这种方法给了我最好的结果，因此对于我在输出中起作用的所有其他代码，都已经被破坏了

Sub PDF_To_Excel()


Dim automate_sh As Worksheet
Set automate_sh = ThisWorkbook.Sheets("Automate")

Dim pdf_path As String
Dim excel_path As String

pdf_path = automate_sh.Range("E11").Value
excel_path = automate_sh.Range("E12").Value

Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File

Set fo = fso.GetFolder(pdf_path)

Dim wa As Object
Dim doc As Object
Dim wr As Object

Set wa = CreateObject("word.application")

wa.Visible = True

Dim nwb As Workbook
Dim nsh As Worksheet




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

wa.Quit



MsgBox "Done"

End Sub