在一台电脑上运行没有问题
在另一台电脑上运行就报错1004，应用程序定义或对象定义错误
逐步核对发现出错代码是
Application.Speech.Speak "please select"
但有的电脑没问题，有的有问题，求解决
第1个回答 2013-02-08
1004是个通用错误提示。看不出任何问题。根据你的情况看，是缺个插件或者控件。你那个Speech是个控件吗？得每台机器上都有。追问
Application.Speech.Speak是VBA自带的把语言读出来的语句，电脑公司统一安装的，插件和控件都是一样的
另，VBA中的引用也都是一样的
第2个回答 2020-09-27
sub
timer
内的两句话同时执行，因为都是
（00:00:02）时执行；
所以在save的同时，timer也在执行，时间间隔太短，文档未保存成功所以报错；
一个很小的文件是可以的
timer
内的两句话同时执行，因为都是
（00:00:02）时执行；
所以在save的同时，timer也在执行，时间间隔太短，文档未保存成功所以报错；
一个很小的文件是可以的
第3个回答 2013-02-08
查一查Office的版本追问
OFFICE版本都是一套软件装的，是2003中文版，公司统一安装的
第4个回答 2013-02-08
从描述上看不出任何问题。
可能是引用的问题。不只可否看看部分源码。追问
可能是引用的问题。不只可否看看部分源码。追问
引用没有问题，可用和不可用的引用都是一样的
Application.Speech.Speak "please select"
ans = MsgBox("是否需要清除数据？", vbOKCancel + vbQuestion + vbDefaultButton1, "入力完成")
If ans = vbOK Then
clear_enter
End If
之前的代码是完成一个工作
这里的代码是完成工作后提示你选择是否需要清空数据的。
Application.Speech.Speak "please select"
显示出错的是这段代码
