Question

我的word文档包含超链接文字。我想转到该页面并检查是否有嵌入式pdf。如果有我想下载PDF

超链接看起来像这样

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

大多数时候链接包含

<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文件

1 个答案: