Withbutt.Caption=“提取”.Style=msoButtonCaption.OnAction=“tq”EndWith上述代码段的功能是：在工具栏上添加“提取”按钮，为按钮指定要执行的过程为tq