我在word文档里用VBA设置了几个按钮用于点击后打印指定页码，但是在用邮件合并生成的文档里按钮却不能用了

请问如何设置，（按钮还在，按钮里面的VBA代码也没了。）
例如点击CommandButton4的代码
Private Sub CommandButton4_Click()
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="2-3", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

关键是邮件合并后生成的新文档里按钮的代码全没了。

相关了解……