見出し1 ごとにWord 文書を複数のファイルに分割する方法（ステップ・バイ・ステップガイド）

レポート、教科書、マニュアル、プロジェクト文書など、長いWord 文書を扱う際、ファイルを章ごとの小さなファイルに分割したくなることがあります。すでに文書内で「見出し1」が主要セクションのタイトルとして使われていれば、その分割作業は驚くほど簡単になります。以下では、その効率的な方法を詳しくご紹介します。

• Word 文書を準備する
• 方法 1: アウトライン機能で見出し1 ごとにWord 文書を分割
• 方法 2: VBA コードで見出し 1 ごとにWord 文書を分割
• 方法 3: Kutools for Word で見出し 1 ごとにWord 文書を分割
• まとめ

Word 文書を準備する

いずれかの方法を適用する前に、文書が適切に構造化されていることを確認してください。Word は「見出し 1」スタイルが正しく適用されている場合にのみ、分割ポイントを認識します。

スタイルの適用：

見出しスタイルは一貫して適用し、レベル1 の見出しには「見出し1」スタイルを、レベル2 の見出しには「見出し2」スタイルをそれぞれご使用ください。

タイトルを選択し、[ホーム]タブに移動して、[スタイル]ギャラリーから「見出し1」をクリックします。

ファイルのバックアップ：

分割を実行する前に、必ず元の文書のコピーを保存してください。アウトラインビューなど一部の方法は、取り消しが困難な場合があります。

方法1：アウトライン機能で見出し1 ごとにWord 文書を分割

実は、Word に内蔵されたアウトラインビューを使えば、この作業が驚くほど簡単になります。見出し1 のセクションを自動で検出し、文書構造を整理して各章を個別のファイルとしてエクスポート可能。アドインも複雑な手順も一切不要です。

1. Word 文書を開き、表示タブに移動して、アウトラインをクリックしてください（下図参照）。
   
2. 表示されたアウトラインタブで、表示レベルドロップダウンをレベル1に設定すると、見出し1 以外のすべてが自動的に折りたたまれます。
   
3. 次に、Ctrl + Aを押してすべてのテキストを選択し、その後、ドキュメントの表示をマスタードキュメントグループ内でクリックします。
   
4. 続けて、作成ボタンをクリックすると、Word が各セクションを細い枠で囲みます。
   
5. ファイル > 名前を付けて保存に移動し、新しいフォルダを選択してください。Word は自動的に見出し1 ごとに個別の.docxファイルを生成し、ファイル名にはその見出しテキストが使用されます。さらに、分割されたすべてのファイルへのハイパーリンクをまとめたインデックス文書も自動作成されるため、ワンクリックで任意のドキュメントをすぐに開けます！
   

方法2：VBA コードで見出し1 ごとにWord 文書を分割

非常に長い文書では、アウトライン方式による処理で書式に問題が生じることがあります。その場合は、VBA スクリプトをご利用いただくことで、よりクリーンかつ高速に処理できます。

1. Alt + F11を押して、Visual Basic for Applicationsウィンドウを開きましょう。
2. クリックして挿入>標準モジュールを選択します。以下のコードを空のモジュールにコピー＆ペーストしてください：
   

   Sub SplitDocByHeading1()
       Dim StrTmplt As String
       Dim StrPath As String
       Dim StrFlNm As String
       Dim Rng As Range
       Dim i As Long
       Dim Doc As Document
       Dim fDialog As FileDialog
       Const StrNoChr As String = """*./\:?|"
       Application.ScreenUpdating = False
       Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
       With fDialog
           .Title = "Select a folder to save the split documents"
           .AllowMultiSelect = False
           If .Show <> -1 Then
               MsgBox "Operation cancelled.", vbInformation, "Split by Heading 1"
               Application.ScreenUpdating = True
               Exit Sub
           End If
           StrPath = .SelectedItems(1)
       End With
       If Right(StrPath, 1) <> "\" Then
           StrPath = StrPath & "\"
       End If
       With ActiveDocument
           StrTmplt = .AttachedTemplate.FullName
           With .Range
               With .Find
                   .ClearFormatting
                   .Replacement.ClearFormatting
                   .Text = ""
                   .Replacement.Text = ""
                   .Style = wdStyleHeading1
                   .Format = True
                   .Forward = True
                   .Wrap = wdFindStop
                   .Execute
               End With
               Do While .Find.Found
                   Set Rng = .Duplicate
                   StrFlNm = Split(Rng.Paragraphs(1).Range.Text, vbCr)(0)
                   For i = 1 To Len(StrNoChr)
                       StrFlNm = Replace(StrFlNm, Mid(StrNoChr, i, 1), "_")
                   Next i
                   StrFlNm = StrFlNm & ".docx"
                   Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
                   Set Doc = Documents.Add(Template:=StrTmplt, Visible:=False)
                   With Doc
                       .Range.FormattedText = Rng.FormattedText
                       .SaveAs2 FileName:=StrPath & StrFlNm, _
                                FileFormat:=wdFormatXMLDocument, _
                                AddToRecentFiles:=False
                       .Close SaveChanges:=False
                   End With
                   .Collapse wdCollapseEnd
                   .Find.Execute
               Loop
           End With
       End With
       Set Doc = Nothing
       Set Rng = Nothing
       Application.ScreenUpdating = True
       MsgBox "Split completed successfully.", vbInformation, "Split by Heading 1"
   End Sub
   

3. F5を押すか、実行をクリックしてコードを実行すると、分割ファイルの保存先フォルダーを選択するウィンドウが表示されます（下図参照）。
   
4. クリックしてOKを押すと、Word がすぐに見出し1 のセクションごとに.docx ファイルを作成します。出力フォルダーを開いて、結果をご確認ください。
   

方法3：Kutools for Word で見出し1 ごとにWord 文書を分割

Word の標準機能や VBA でも文書分割は可能ですが、複数の手順や技術的なスキルが必要で、書式が失われるリスクもあります。Kutools for Word なら、よりクリーンで効率的なソリューションを実現します。「文書の分割」機能を使えば、見出し1、改ページ、セクション区切り、ページなどに基づき、ワンクリックでファイルを分割可能。コーディングも手作業も不要で、書式が一切損なわれることはありません。スタイル、レイアウト、画像、ヘッダー、フッターまで完全に保持するため、大規模な文書を扱うすべてのユーザーに最適です。

Kutools for Word をダウンロードしてインストールした後、以下の手順に従ってください：

1. KUTOOLS PLUS > 分割。
   
2. 次の文書の分割ダイアログボックスで、以下のオプションを指定します：

   2.1を選択します。見出し 1を分割基準ドロップダウンから選択してください。（そのほかにも、「改ページ」「セクション区切り」「ページ」「n ページごと」など、さまざまな分割ルールをご利用いただけます。）

   2.2 分割後のファイルを保存するフォルダーを指定します。

   2.3OKボタンをクリックします。

   ヒント：分割後の各ファイル名にプレフィックスを追加するには、文書の接頭辞ボックスにテキストを入力してください。

   
   

結果：
Kutools が見出し1 の構造に基づいて複数のWord ファイルを即座に生成し、ヘッダーとフッターを完全に保持します。

まとめ

関連記事：