在 Excel 中打开带有 word vba 的 pdf

Question

我是vba新手，我一直在尝试使用MS word 2016 打开 PDF 文件，以便复制数据并填充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