[AKBAMAPUH]

по пункту 1 мне вот что подсказали

Код:

'отключение крестика на UserForm1
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = -1
End Sub

но хотелось бы решить данный вопрос используя пример, представленный в файле Forma


А вот как сделал по пункту 2

Код:

 
    'Распечатываем. Ждём окончания процесса печати. 
    'А то не будет распечатываться ничего, сразу закроется всё.
     ActiveDocument.PrintOut Background:=False
        
    'закрываем приложение Word без сохранения изменений и без возможности выбора
    Application.Quit SaveChanges:=wdDoNotSaveChanges