Envío de solicitudes HTTP con VBA desde Word

Question

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 me sale "Error de compilación, el 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 

Answer 1

Una posible alternativa para evitar tener que seleccionar la biblioteca es el uso de 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 

Answer 2

Usted tendrá que cambiar sus referencias (Herramientas => Referencias en la ventana de código). 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 comandos como administrador y pegue:

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

Debería decir si funciona.

Answer 3

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

Esto es lo que se vería así:

Además, se puede leer más acerca de Microsoft WinHTTP Servicios, versión 5.1 here.