Question

vba运行时错误432 自动化（Automation）操作时文件名或类名未找到。

vba运行时错误432 自动化（Automation）操作时文件名或类名未找到。
运行到Set Wdapp = New Word.Application这里时候出错，引用word程序已经勾选。到底是什么原因，高手给个解答，谢谢。重谢！
Dim Wdapp As Word.Application
Dim WdDocument As Word.Document
Dim UserFile As String
Dim a$
Dim b$
Sub 按钮1_Click()
Dim Mypath As String

Set Wdapp = New Word.Application
Mypath = ActiveWorkbook.Path & "\合同模板.doc"
Set WdDocument = Wdapp.Documents.Open(Mypath)
Wdapp.Visible = True
For k = 2 To 100
a = Cells(k, 2) 'B列査找串
b = Cells(k, 3) 'C列替换串

If a = "" And b = "" Then Exit For

With WdDocument.Range.Find
.ClearFormatting
.Text = a
.Replacement.ClearFormatting
.Replacement.Text = b
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
Next
Wdapp.Quit
End Sub
前几天运行还没有问题的，我把文件拷到别的电脑，也能运行，为什么呢，问题原因到底是什么，急急急急急急！！！！！

Answer 1

vba运行时出现错误432并提示操作时文件名或类名未找到，这是因为vb软件文件丢失崩溃造成的，具体的解决方法如下：

1、首先，在电脑上启动vb的安装程序，然后在欢迎界面中点击下一步：

2、之后，进入到选择许可协议时，点击我同意然后下一步：

3、接下来，输入产品的序列号，之后点击下一步：

4、然后选择要安装vb软件的系统盘符路径：

5、然后vb软件就会自动开始安装了，安装完成之后就会出现一个对话框提示用户已经安装完成，这样就可以正常使用vb软件而不会出现错误了：

Answer 2

这是因为电脑少了库，

在VBA菜单中，找到“引用”
将Microsoft word 12.0 Object Library
或者类似字样的库，打上勾即可。

如果没有上述库，说明office安装的不是完整版，装个完整版即可解决。

追问

我已经说过了，引用word程序已经勾选。我的电脑用到的是Microsoft word 14.0 Object Library，已经勾选了。

追答

试试这个

原因：C:\Windows\System32 （win7+系统是在其他文件夹，注意一下）文件夹下的scrrun.dll文件版本不对引起的；

网上搜索下载scrrun.dll文件，粘贴到system32文件夹下面，然后手动注册下；
注册步骤：点击开始>运行，在运行输入框中输入regsvr32 C:\Windows\System32\scrrun.dll，点击确定；

追问

已经替换，注册，但是不管用。

追答

那就很可能是高版本的office，兼容性有问题。
估计你装的是office2010+
如果条件允许，建议你使用office2007降一下级。
当然最好还是在其他电脑上测试一下，排除是vba程序自身代码有瑕疵的原因

追问

期待高手解答，另有分送。

Answer 3

查一下是不是鼠标右键新建没有Excel,添加Excel快捷键就可以了，我的就是这样解决的，别人的电脑运行没有错误，我的就是提示432错误

Answer 4

看路径和文件名之间有没有间隔符号“\”,
如：GetObject(ThisWorkbook.Path & "\" & FileName)

Answer 5

可能是EXCEL安装默认值不对

是右键新建中没有Word、Excel、PPT等怎么办http//xinzhi.wenda.so.com/a/1520937552615246

至于excel和PPT，按照同样的方法，进入注册表寻找“xlsx”的位置，并将（默认）改为Excel.Sheet.12；然后寻找“pptx”，将（默认）改为PowerPoint.Show.12。