excel - 在 Excel 中打开带有 word vba 的 pdf

Question

我是 vba 的新手我一直在尝试使用 MS word 打开 PDF 文件2016 为了复制数据并填充 Excel 中的单元格，我已经能够打开 PDF 并复制数据，但我发现获取所需数据并填充 Excel 中的单元格很棘手.我想知道这是否可以通过 excel 在 VBA 中编码.

谢谢

Answer 1

此解决方案需要在 Excel 中设置对 Word 库的引用(工具、引用)

Sub test()
Dim s As String
Dim t As Excel.Range
s = "\\my path\my file.pdf"
Dim wd As New Word.Application
Dim mydoc As Word.Document
Set mydoc = Word.Documents.Open(Filename:=s, Format:="PDF Files", ConfirmConversions:=False)
Dim wr As Word.Range
Set wr = mydoc.Paragraphs(1).Range
wr.WholeStory   
Set t = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
wr.Copy
t.PasteSpecial xlPasteValues
mydoc.Close False
wd.Quit

End Sub