VBAWORD获取网页全部代码，并打印

Sub 获取网页代码()

Dim http
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "POST", "http://网址, False
http.send ""

If http.Status = 200 Then
    Selection.Text = http.responseText
End If

End Sub