这个报错很典型，问题出在你的VBA项目没有识别Word对象的类型定义——你用了Word.Application、Word.Document这类特定类型，但编译器找不到对应的对象库引用。下面给你两种靠谱的解决方式：

方法一：早期绑定（引用Word对象库） #

这种方式适合固定环境开发，能享受VBA的智能提示：

• 打开VBA编辑器（按下Alt+F11）
• 点击顶部菜单栏的【工具】→【引用】
• 在弹出的引用对话框里，找到并勾选Microsoft Word xx.x Object Library（xx.x是你的Office版本号，比如16.0对应Office 2019/365）
• 点击【确定】，重新运行宏即可

方法二：晚期绑定（无需引用，兼容性更强） #

如果你的宏需要在不同Office版本的电脑上运行，推荐用这种方式——不用提前引用库，通过动态创建对象实现：
只需要修改代码里的变量声明部分，把具体的Word.xxx类型换成通用的Object，同时手动定义Word内置常量（晚期绑定无法直接识别这些常量）：

Sub tupdate() 
    Dim wdApp As Object 
    Dim wdDoc As Object 
    Dim wdRng As Object 
    Set wdApp = CreateObject("word.application") 
    wdApp.Visible = True 
    Set wdDoc = wdApp.Documents.Open("C:\Users\dineshkumar.s\Documents\UiPath\PMS_Project\Template\Band 3\PMS_2019_Increment & Promotion Letter - Band 3 - Copy.docx") 
    ' 手动定义Word内置常量（晚期绑定无法直接调用）
    Const wdFindContinue = 1
    Const wdReplaceAll = 2
    For Each wdRng In wdDoc.StoryRanges 
        With wdRng.Find 
            .Text = "Emp Code" 
            .Replacement.Text = "0001" 
            .Wrap = wdFindContinue 
            .Execute Replace:=wdReplaceAll 
        End With 
    Next wdRng 
    Set wdApp = Nothing: Set wdDoc = Nothing: Set wdRng = Nothing 
End Sub

两种方法的小对比 #

• 早期绑定：有代码智能提示，开发效率高，但如果目标电脑的Office版本和你的不一致，可能出现引用失效的问题
• 晚期绑定：没有智能提示，但兼容性拉满，不用考虑对方的Office版本差异

内容的提问来源于stack exchange，提问作者Dinesh Shakyawar