ppt引用Word的计算

dongdonggege · 发表于 2023-5-13 09:29

各位网友、各位老师好，请问：ppt字符串想借用Word的计算，怎么处理？我在ppt里计算"24/(3+2)*(5+3)-12+3.6"算式的值，想借用Word计算。并且把这个值保存下来。

这是我的程序，请高手指教，谢谢。

Sub ppttoword()
'工具——引用——Microsoft Word 11.0 Object Library
On Error Resume Next
Dim Wdapp As Object
Dim Wddoc As Object
Set Wdapp = CreateObject("Word.Application")
Wdapp.Visible = 0
Set Wddoc = Wdapp.Documents.Add(DocumentType:=wdNewBlankDocument)
With Wddoc
Wdapp.Selection.TypeText Text:="24/(3+2)*(5+3)-12+3.6"
Wdapp.Selection.HomeKey unit:=wdLine, Extend:=wdExtend
x = Wdapp.Selection.Calculate
End With
Wddoc.Close
Wdapp.Quit
Set wddcoc = Nothing
Set Wdapp = Nothing
End Sub

复制代码

请问怎么更改？我就不上传附件了。

dongdonggege · 发表于 2023-5-13 09:58

这个x的值，一直为0

batmanbbs · 发表于 2023-5-13 13:10

既然你要调用WORD，为啥不直接调用EXCEL呢，调用后直接用Evaluate(<表达式文本>)就直接计算出来了

batmanbbs · 发表于 2023-5-13 13:26

本帖最后由 batmanbbs 于 2023-5-13 14:11 编辑

只要能计算出结果就行呗，我用的是range，不喜欢用selection，还要建立选区，太麻烦
另外，关闭语句我增加了一个 false （不保存WORD临时文档），避免弹窗问题；最后有一处应该是你的笔误

batmanbbs · 发表于 2023-5-13 13:35

本帖最后由 batmanbbs 于 2023-5-13 14:12 编辑

调用EXCEL一句即可，还不用建立EXCEL文档
BTW：测试了一下，别说在我电脑上调用WORD比调用EXCEL快，不知道是不是和我安装EXCEL插件多有关

dongdonggege · 发表于 2023-5-15 07:51

batmanbbs 发表于 2023-5-13 13:35
调用EXCEL一句即可，还不用建立EXCEL文档
BTW：测试了一下，别说在我电脑上调用WORD比调用EXCEL快，不知道 ...

谢谢老师，这两天在外面有事。

dongdonggege · 发表于 2023-5-24 09:57

batmanbbs 发表于 2023-5-13 13:26
只要能计算出结果就行呗，我用的是range，不喜欢用selection，还要建立选区，太麻烦
另外，关闭语句我增加 ...

之前没注意你的程序，今天反复试验，还是不成功。计算结果为0。

zpy2 · 发表于 2023-5-24 10:49

dongdonggege 发表于 2023-5-24 09:57
之前没注意你的程序，今天反复试验，还是不成功。计算结果为0。

Public Function GetInfo(str As String) As String
'创建对象
Dim xmlHttp As Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
'发送请求
xmlHttp.Open "GET", "http://e.anyoupin.cn/eh3/?my_calc~" & str, False
xmlHttp.Send

'等待响应
Do While xmlHttp.ReadyState <> 4

DoEvents
Loop
'得到请求数据
Dim strReturn As String
strReturn = xmlHttp.ResponseText
GetInfo = strReturn
End Function
立即窗口
debug.print GetInfo("24/(3+2)*(5+3)-12+3.6")

batmanbbs · 发表于 2023-5-24 12:53

我测试真没有问题啊（PS：加或者不加你那句selection都可以取得结果=30）
是不是其他原因造成的？

dongdonggege · 发表于 2023-5-24 12:57

batmanbbs 发表于 2023-5-24 12:53
我测试真没有问题啊（PS：加或者不加你那句selection都可以取得结果=30）
是不是其他原因造成的？

难道是版本2003问题，我这是0，谢谢了。

		自动登录	找回密码
密码			免费注册

[求助] ppt引用Word的计算

评分