Не удается установить пользовательскую форму в качестве надстройки в Excel и Word

Question

Я создал пользовательскую форму vba, которая появится, когда я хочу напечатать что-то из exel или word. Но мне сложно установить его как надстройку (так что это применимо ко всем офисным документам, которые я пытаюсь распечатать).

Этот вопрос возник из stackoverflow.com Вопрос по Unknown Ответ Я нашел аналогичный вопрос и употребил код для установки, упомянутый здесь, но он дает мне ошибку.

Вот ссылка: How to create a macro that will open a userform from an Add-in without opening the workbook

Здесь ошибка:

An unexpected error has occured, please contact CSC DM

Design with the bellow error details.

Module = UserfulGeneric Code

Procedure = CreateMMMacroMenu

Line = 0

Error Code = 91

Error Text = Object veriable or With block variable not set

Что я могу сделать, чтобы решить, что? Я новичок в vba, и любая помощь будет высоко оценена.

Answer 1

Это оказывается довольно простым для Excel:

Чтобы продемонстрировать, файл TestAddIn.xlam создается с ThisWorkbook.IsAddin = True, в UserForm и коды в ThisWorkbook модуле.

---

Коды в ThisWorkbook Модуль:

Option Explicit 

Private WithEvents App As Application 

Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean) 
    'Debug.Print Now & " " & "App_WorkbookBeforePrint: " & Wb.FullName 
    UserForm1.Show 
End Sub 

Private Sub Workbook_Open() 
    Set App = Application 
    'Debug.Print Now & " " & "Loading " & ThisWorkbook.FullName 
End Sub 

---

UserForm1:

Код:

Option Explicit 

Private Sub UserForm_Initialize() 
    Me.TextBox1.Text = ActiveWorkbook.FullName 
End Sub 

---

Теперь убедитесь, что вы добавляете этот AddIn обычно через Excel UI, или использовать VBA для установки в Excel. Но после этого вам нужно перезапустить Excel.

При печати новой книги: пользовательская форма отображается до ее фактической печати.