Question

我正在尝试移植我们在Windows上使用MS Word工作的宏，该宏使用网站生成方程图像并返回该图像以插入到文档中。当前（在Windows上工作）调用如下。当我在OSX中使用相同的调用时，我收到错误429，指出“ActiveX组件无法创建对象”。

' Create an xmlhttp object.
Set w_page = CreateObject("Microsoft.XMLHTTP")

' Open the connection to the remote server.
w_page.Open "POST", WebAdd, False

' Indicate that the body of the request contains form data
w_page.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

' Actually send the request and return the data:
Font_Size = ComboFontSize.Value
w_page.Send "formula=" & Font_Size & "." & Latex_Str

在Set w_page = CreateObject("Microsoft.XMLHTTP")语句中生成错误。我尝试了几种替代方法，例如：

Set w_page = CreateObject("MSXML2.ServerXMLHTTP")

和

Set w_page = CreateObject("WinHttp.WinHttpRequest.5.1")

但是会产生同样的错误。请帮我找到在OSX Word 2011中发送POST的正确方法。

对于任何感兴趣的人，该项目可在GitHub上找到。

非常感谢！

编辑：我发现this post详细说明了与OSX Excel一起使用的选项，但我无法找到OSX Word的模拟版本。有没有人知道一个Word相当于Excel ActiveSheet.QueryTables，它可以用于在OSX中发送POST？

编辑：我取得了一些进展。看起来您可以通过VBA调用外部程序，并且所有Mac都安装了Python，因此我编写了一个Python脚本，使用urllib和urllib2将请求发送到服务器。 Python文件还使用argparse从命令行解析公式字符串，fontsize和Web地址。

现在我的宏可以调用我的python脚本，例如：

sCmd = "python " & pyPath & "getURL.py --formula " & Latex_Str & " --fontsize "_
    & Font_Size & " " & WebAdd
sResult = Shell(sCmd, vbNormalFocus)

用户通过应用输入Latex_Str时，Font_Size同样由用户定义，WebAdd是两个地址之一，具体取决于我们是否生成等式或清理临时文件。

我无法弄清楚的是如何让VBA从我的Python脚本中读取返回值（一个带有我的服务器返回值的字符串，以便以后检索图像文件）。 Shell命令似乎只返回一个PID号。有人可以帮忙吗？

解决方案：我想通了！我能够编写一个Python脚本来处理对服务器的POST请求并将其响应打印到stdout。在社区的帮助和大量在线文档的帮助下，我可以使用result = vba.MacScript(command)方法从VBA使用AppleScript调用此Python脚本。这使我能够从我的Python脚本中读取stdout到VBA中的字符串变量。我的Python脚本如下：

# Import the required libraries
from urllib import urlencode
from urllib2 import Request, urlopen, URLError, ProxyHandler, build_opener, install_opener
import argparse

# Set up our argument parser
parser = argparse.ArgumentParser(description='Sends LaTeX string to web server and returns meta data used by LaTeX in Word project')
parser.add_argument('webAddr', type=str, help='Web address of LaTeX in Word server')
parser.add_argument('--formula', metavar='FRML', type=str, help='A LaTeX formula string')
parser.add_argument('--fontsize', metavar='SIZE', type=int, default=10, help='Integer representing font size (can be 10, 11, or 12. Default 10)')
parser.add_argument('--proxServ', metavar='SERV', type=str, help='Web address of proxy server, i.e. http://proxy.server.com:80')
parser.add_argument('--proxType', metavar='TYPE', type=str, default='http', help='Type of proxy server, i.e. http')

# Get the arguments from the parser
args = parser.parse_args()

# Define formula string if input
if args.formula:
    values = {'formula': str(args.fontsize) + '.' + args.formula}   # generate formula from args
else:
    values = {}

# Define proxy settings if proxy server is input.
if args.proxServ:       # set up the proxy server support
    proxySupport = ProxyHandler({args.proxType: args.proxServ})
    opener = build_opener(proxySupport)
    install_opener(opener)

# Set up the data object
data = urlencode(values)
data = data.encode('utf-8')

# Send request to the server and receive response, with error handling!
try:
    req = Request(args.webAddr, data)

    # Read the response and print to a file
    response = urlopen(req)
    print response.read()

except URLError, e:
    if hasattr(e, 'reason'):    # URL error case
        # a tuple containing error code and text error message
        print 'Error: Failed to reach a server.'
        print 'Reason: ', e.reason
    elif hasattr(e, 'code'):    # HTTP error case
        # HTTP error code, see section 10 of RFC 2616 for details
        print 'Error: The server could not fulfill the request.'
        print 'Error code: ', e.code
        # print e.read()

我最近开始的

This related thread指向我MacScript命令的方向，用于调用我的函数并获取字符串返回，@ CuberChase让我开始编写外部函数的路径处理对服务器的调用。非常感谢！

Answer 1

不幸的是，没有能力通过Mac Office从VBA直接执行直接的HTTP Post请求。

您当前收到错误429，指出“ActiveX组件无法创建对象”，因为OS X中没有XMLHTTP对象模型（或MSXML2或WinHttp），这些对象模型仅适用于Windows。这意味着它们不适用于任何Office程序，而不仅仅是Word。

你必须找到一个可能使用AppleScript的工作（不确定是否可能）或在外部程序（例如curl）上发出shell命令。 This SO answer uses Curl for an HTTP Get request and is probably the best starting place

通过Microsoft Word 2011 for OSX中的POST发送和接收数据

1 个答案: