在 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