Word首次运行VBA宏触发Error 445（对象不支持该操作）问题求助

• 你代码中使用的DataObject对象依赖Microsoft Forms 2.0 Object Library，该库不属于Word启动时默认预加载的核心组件，只有在首次触发相关功能调用后才会完成COM组件的注册挂载。首次运行宏执行Set MyData = New DataObject时，该库还未完成初始化，无法响应对象实例化请求，因此抛出错误445。
• 第二次运行宏时，首次调用已经触发了Forms 2.0库的加载逻辑，组件已经完成注册可以正常使用，因此错误自动消失。

如果需要消除首次运行的报错，可以选用以下任意一种方案：

• 改用后期绑定方式创建DataObject，无需提前引用库也可规避初始化问题，修改后代码如下：

Sub SelectedURLtoHyperlink()
    Dim MyData As Object
    Dim strClip As String

    ' 用CLSID直接创建DataObject，规避预加载问题
    Set MyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    Selection.Copy
    MyData.GetFromClipboard
    strClip = MyData.GetText

    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=strClip, SubAddress:="", ScreenTip:="", TextToDisplay:=Selection.Range 
End Sub

• 手动添加库引用：打开VBA编辑器，点击「工具」-「引用」，在列表中勾选「Microsoft Forms 2.0 Object Library」后保存即可。该方案不适合宏分发场景，不同设备的库路径可能存在差异。

内容的提问来源于stack exchange，提问作者brauer-t