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

Question

this guy 似乎和我有同样的问题，但 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。

Answer 1

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

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