table_http.bas

Sub test_set_table()

ActiveDocument.Tables(4).Cell(1, 1).Range.Text = "Blah"

End Sub

Sub test_get_http()

Dim result As String
Dim myURL As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myURL = "http://www.google.com"

winHttpReq.Open "GET", myURL, False
winHttpReq.Send
 
result = winHttpReq.responseText
Debug.Print result

End Sub