大量のページがあるMicrosoft wordのファイルを、好きなところで区切っていくつかのファイルに分割する簡単な方法を探しています。同じように、多くのシートがあるMicrosoft Excelのファイルを、シートごとに一つずつのファイルにする方法が知りたいです。

Excelはシートを新規ブックに移動して名前を付ければ１シートずつに分かれます。

Wordは今から考えます。すみません。

どうぞ

Excelの場合は、シートの移動またはコピーで、移動先ブック名のところで(新しいブック)をクリックすれば、分けられます。

Ctrlキーを使って複数選択すれば便利です。

各シートをブックに保存するサンプルコードを書いてみました。

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

エクセル変割野郎

エクセルのシートを分割してくれます

ワードの分割方法はわかりませんでした

すいません．

私は，元ファイルのコピーをいくつか作成しておいて

それぞれ，削っていく方法で分割しています．

これもコピペとおなじくらい手間ですね．

すいません

（ＵＲＬ＝参考コラム）

　後半の質問について [ Excel 2002 ] 。

＞Excelのファイルを、シートごとに一つずつのファイルにする方法＜

1.あらかじめ、移動先のファイルを、必要なだけ新規作成しておく。

　空シートを一つづつ残して、文書名を決める。

　元 [ Excel Sheet.0〜Sheet.9 ] → 先 [ Excel File.0〜File.9 ]

2.移動元のシート上にカーソルを置いて右クリック、移動先のシートを

　選択してから「移動」をクリックする。そのあと上書き保存する。

3.すべてのシートを移動し終わると、移動元のファイルが消えるので、

　最終確認（しばらくバックアップ用に保管）して照合後、削除する。

※同じ手順で、複数のシートをコピーまたは移動できる。

　複数の画面を並べて、各シートをドラッグ移動できる。

（はじめての場合は、万一のために予備のファイルを残しておくこと）

Word VBA Q&A掲示板 / 「章ごとにファイル作成」

Word VBA Q&A掲示板 / 「ページを分ける」

URL はダミーです。

Word ファイルの区切り方ですが、

どのように区切るのをご希望でしょうか？

・ページ単位？

・ページ指定（1,2-3,4...みたいな感じ？）

・章単位？

・マウスで範囲指定？