使用 VBA 下载嵌入式 PDF 文件

Question

我有包含 hyperlinked 文本的 word 文档。我想转到该页面并检查是否有任何嵌入式 pdf。如果有我要下载PDF

Hyperlink 看起来像这样

http://pdfaiw.uspto.gov/.aiw?PageNum=0&docid=20150299141&homeurl=http\appft.uspto.gov

大部分时间link包含

<embed src="http://pimg-faiw.uspto.gov/fdd/41/2015/91/029/0.pdf"
       width="100%" height="850" type=application/pdf></embed>

有什么办法吗？我在VBA.

完全是新手

Answer 1

终于成功了。

HttpReq.Open "GET", myURL, False
HttpReq.send
StrTxt = HttpReq.responseText
i = InStr(StrTxt, "http://pimg-faiw.uspto.gov/fdd")
If i > 0 Then
StrTxt = Mid(StrTxt, i, Len(StrTxt) - i)
i = InStr(StrTxt, ".pdf")
If i > 0 Then
myURL = Left(StrTxt, i + 3)
WinHttpReq.Open "GET", myURL, False
WinHttpReq.send
myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SaveToFile "C:\file.Pdf", 2
    oStream.Close
End If

使用 VBA 下载嵌入式 PDF 文件

Download Embeded PDF file using VBA

html

vba

winhttp