如果你需要到网上下载图片到Word文档,下面的代码可以帮到你
首先添加引用 "Microsoft WinHTTP Services,vesion
Sub htmlCopyLoadPicture()
Dim WinHttpReg As WinHttp.WinHttpRequest
' Dim myArr() As String
'Dim i As Long
Dim d() As Byte
Set WinHttpReg = New WinHttp.WinHttpRequest
WinHttpReg.Option(WinHttpRequestOption_EnableRedirects) = 3
WinHttpReg.Open "GET", "http://www.microsoft.com/library/homepage/images/ms-banner.gif", False
WinHttpReg.Send
Open "temp.gif" For Binary As #1
d() = WinHttpReg.ResponseBody
Put #1, 1, d()
Close
Selection.InlineShapes.AddPicture FileName:= _
"temp.gif" _
, LinkToFile:=False, SaveWithDocument:=True