Envío de solicitudes HTTP con VBA desde Word

Estoy tratando de enviar datos desde un documento de Word a una página web. Encontré un código, lo pegué en un nuevo módulo y lo guardé. Cuando lo ejecuto obtengo “error de comstackción, tipo definido por el usuario no definido”

Mi código:

Sub http() Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://www.google.com" ' Send Request. MyRequest.Send 'And we get this response MsgBox MyRequest.ResponseText End Sub 

Una alternativa potencial para evitar tener que seleccionar la biblioteca es usar un objeto, es decir,

 Sub http() Dim MyRequest As Object Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1") MyRequest.Open "GET", _ "http://www.google.com" ' Send Request. MyRequest.Send 'And we get this response MsgBox MyRequest.ResponseText End Sub 

Debe establecer una referencia a los Servicios WinHTTP de Microsoft en su Proyecto VBA (Herramientas -> Referencias).

Esto es lo que se vería:

Además, puede leer más sobre los Servicios WinHTTP de Microsoft, versión 5.1 aquí .

Deberá cambiar sus referencias (Herramientas => Referencias en la ventana de códigos). Busque Microsoft WinHTTP Services, version 5.1 (o más reciente) y marque la casilla. Si está usando Vista y Office 2007, es posible que también deba registrarlo primero. Abra una ventana de comando como administrador y pegue:

 >regsvr32.exe "c:\windows\system32\winhttp.dll" 

Debería decir si funciona.