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 Userform调用子标准。

知道可能导致问题的原因吗？

编辑：

我正在使用Word 2007和Windows XP。

Answer 1

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

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

首次尝试错误5479时VBA失败

1 个答案: