vba运行时错误432自动化（Automation）操作时文件名或类名未找到。运行到SetWdapp=NewWord.Application这里时候出错，引用word程序... 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
前几天运行还没有问题的，我把文件拷到别的电脑，也能运行，为什么呢，问题原因到底是什么，急急急急急急！！！！！

试试这个

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

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

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

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

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

本回答被网友采纳