摘要：
最后，我在网上看到，单词分为32位和64位的方法只能在32位单词中使用，但不能在64位单词中实现，所以我在网上找到了各种解决方案。最后，找到一个方法并重写方法实现：'读取json格式的文件。Convert FunctionReadJsonDimoSCAsObjectSetoSC=CreateObjectx86'createActiveXviax86mshtahostDebug PrintTypeName'ScriptControl'定义通过变量加载DimJSONAsStringJSON=aWithoSC'操作oSC获得的json字符串。Language=“Javascript”。超时=-1.AddCode“varjson=”&JSON&“；”Eval'MsgBox.EvalReadJson=。EvalEndWithCreateObjectx86，True'在EndFunctionFunctionCreateObjectx86StaticWndAsObjectDimbRunningAsBoolean#IfWin64ThenbRunning=InStr˃0IfbCloseTheIfbRunningThenoWnd.CloseExitFunctionEndIfNotbRunningtheSettoWnd=CreateWindow（）oWnd处关闭后窗口。execScript“FunctionCreateObjectx86:SetCreateObjectx86=CreateObject:EndFunction”，“VBScript”EndIfSetCreateObjectx86=oWnd。CreateObjectx86#ElseSetCreateObjectx86=CreateObject#EndIfEndFunctionFunctionCreateWindow（）DimsSignature，oShellWnd，oProcOnErrorResumeTextSignature=LeftCreateObject.运行“%systemroot%syswow64mshta.exeabout:”“关于：moveTo；document.title='x86Host'shell.putproperty；”“，0，FalseDoForEachoShellWndInCreateObject.WindowsSetCreateWindow=oShellWnd.GetPropertyIfErr.Number=0TheExitFunctionErr。ClearNextLoopEndFunction已分别在32位和64位字上试用。您可以卸载json数据。
这几天在word里面写宏，想解析服务器传过来的json串。但是Set oSC = CreateObjectx86("MSScriptControl.ScriptControl")这个方法一直创建不了对象。
最后再网上看到说，word分为32位的和64位的这个方法只有在32位的word里面才可以使用，在64位的里面是实现不了的（不能创建对象）
于是在网上找各种的方案解决。最后找到一个方法，自己重写这个方法实现：（代码如下）
'读取json格式的文件。做转化 Function ReadJson(Optional a As String) Dim oSC As Object Set oSC = CreateObjectx86("MSScriptControl.ScriptControl") ' create ActiveX via x86 mshta host Debug.Print TypeName(oSC) ' ScriptControl '定义变量装获取到的json串 Dim JSON As String JSON = a With oSC '操作oSC .Language = "Javascript" .Timeout = -1 .AddCode "var json = " & JSON & ";" .Eval ("json.item[0].delist_time") 'MsgBox .Eval("json.item[0].delist_time") ReadJson = .Eval("json.item[0].delist_time") End With CreateObjectx86 , True ' close mshta host window at the end End Function Function CreateObjectx86(Optional sProgID, Optional bClose = False) Static oWnd As Object Dim bRunning As Boolean #If Win64 Then bRunning = InStr(TypeName(oWnd), "HTMLWindow") > 0 If bClose Then If bRunning Then oWnd.Close Exit Function End If If Not bRunning Then Set oWnd = CreateWindow() oWnd.execScript "Function CreateObjectx86(sProgID): Set CreateObjectx86 = CreateObject(sProgID): End Function", "VBScript" End If Set CreateObjectx86 = oWnd.CreateObjectx86(sProgID) #Else Set CreateObjectx86 = CreateObject("MSScriptControl.ScriptControl") #End If End Function Function CreateWindow() Dim sSignature, oShellWnd, oProc On Error Resume Next sSignature = Left(CreateObject("Scriptlet.TypeLib").GUID, 38) CreateObject("WScript.Shell").Run "%systemroot%syswow64mshta.exe about:""about:<head><script>moveTo(-32000,-32000);document.title='x86Host'</script><hta:application showintaskbar=no /><object classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'><param name=RegisterAsBrowser value=1></object><script>shell.putproperty('" & sSignature & "',document.parentWindow);</script></head>""", 0, False Do For Each oShellWnd In CreateObject("Shell.Application").Windows Set CreateWindow = oShellWnd.GetProperty(sSignature) If Err.Number = 0 Then Exit Function Err.Clear Next Loop End Function
然后分别在32位和64位的word上面都试过了。可以接卸json数据。至此问题解决。