第一次尝试时VBA失败错误5479

它似乎和我有同样的问题，但vbModeless似乎不起作用

我正在创建一个简单的外接程序，我希望VBA打开一个word文件，复制整个内容并将其粘贴到原始文档中

在VBA编辑器中执行时，甚至在第一次运行调试后，它都能正常工作，但是第一次打开Word实例并尝试从外接程序执行代码似乎是个问题

代码如下：

Sub insertFigureFrame(control As IRibbonControl)
 StandardFrames.StartUpPosition = 0
 StandardFrames.Top = Application.Top + (Application.Height - StandardFrames.Height) * 0.5
 StandardFrames.Left = Application.Left + (Application.Width - StandardFrames.Width) * 0.5
 StandardFrames.Show
End Sub

Sub Standard()

Dim OriginalDocument As String
Dim SaveChanges As Boolean
Dim doc As Document

On Error GoTo err:
Application.DisplayAlerts = wdAlertsNone
Application.ScreenUpdating = False


OriginalDocument = ActiveDocument.Path
Documents.Open MyTemplate

Selection.WholeStory
Selection.Copy
Documents("MyTemplate").Close (SaveChanges = False)

Documents.Open (OriginalDocument)
Selection.PasteAndFormat wdPasteDefault

Exit Sub
err:
Call errHandling

End Sub

StandardFrames用户表单调用子标准

知道是什么导致了这个问题吗

编辑：

---

我正在使用Word 2007和Windows XP。

在打开文档之前，请尝试隐藏您的用户表单：

Sub Standard()
StandardFrames.Hide
'The rest of your code
End Sub

---

为了澄清，你的问题与链接中给出的问题相同，对吗？执行代码时出现运行时错误5479？没错。对不起，不清楚！