#contents *Excel関連情報 **サンプルコード ***各シートをブックに保存する Sub Sheet2Book() Dim i Dim nCount Dim strBookName strBookName = "E:\home\edu\excel\sheet2book\test_" nCount = Sheets.Count Dim strSheetName For i = 1 To nCount strSheetName = Sheets(i).Name Sheets(i).Select Sheets(i).Copy ActiveWorkbook.SaveAs Filename:=strBookName & strSheetName & ".xls" ActiveWindow.Close Next End Sub *Word関連情報 **サンプルコード ***各ページを文書に保存する Sub page2doc() Dim i Dim nCount Dim strDocName strDocName = "E:\home\edu\word\test\test_page_" nCount = ActiveDocument.Content.Information(wdNumberOfPagesInDocument) For i = 1 To nCount Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i Selection.GoTo What:=wdGoToBookmark, Name:="\page" Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend ActiveDocument.SaveAs FileName:=strDocName & i ActiveWindow.Close Next End Sub #comment