Attribute VB_Name = "NewMacros" Sub 作文稿纸() Attribute 作文稿纸.VB_Description = "宏在 2006-12-9 由 dafan 录制" Attribute 作文稿纸.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.作文稿纸" UserForm1.CommandButton1.Enabled = True UserForm1.Show End Sub