Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNe...

sub 合并当前目录下所有工作簿的全部工作表() dim mypath, myname, awbname dim wb as workbook,...