Note: The other languages of the website are Google-translated. Back to English

Word文書を5ページまたはnページごとに別々のファイルに分割するにはどうすればよいですか?

数百ページを含む大きなWord文書があり、今、この文書を10ページまたはnページごとに別々のファイルに分割したいとします。 ページをXNUMXつずつコピーして貼り付けることなく、このジョブをすばやく簡単に解決する方法はありますか?

Word文書をVBAコードで10ページまたはnページごとに別々のファイルに分割する

驚くべき機能を備えたWord文書を10ページまたはnページごとに別々のファイルに分割する


Word文書をVBAコードで10ページまたはnページごとに別々のファイルに分割する

大きなドキュメントを10ページまたはnページごとに別々のファイルに分割するには、次のVBAコードを使用すると便利です。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。

VBAコード:ドキュメントを10ページまたはnページごとに個別のファイルに分割します。

Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub

3。 上記のコードを貼り付けた後、まだ アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください 工具 > リファレンス、そして飛び出した 参考資料-プロジェクト ダイアログボックス、チェック MicrosoftVBScript正規表現5.5 内のオプション 利用可能な参考文献 リストボックス、スクリーンショットを参照:

4。 次に、をクリックします OK ボタンをクリックし、を押します F5 このコードを実行するためのキー、および フォルダを参照 ダイアログボックスが表示されます。分割ファイルを配置するフォルダを選択してください。スクリーンショットを参照してください。

5。 次に、をクリックします OK ボタンをクリックすると、別のプロンプトボックスが表示され、分割するページ数を入力するように促されます。スクリーンショットを参照してください。

6。 そして、 OK ボタンをクリックすると、アクティブなWord文書が10ページごとに個別のファイルに分割され、指定したフォルダーに移動して結果を確認できます。


驚くべき機能を備えたWord文書を10ページまたはnページごとに別々のファイルに分割する

Kutools for Word 強力な機能が含まれています- スプリット このユーティリティを使用すると、大きなWord文書を、見出し1、改ページ、セクション区切り、およびページに基づいて、複数の個別のファイルにすばやく分割できます。

ヒント:これを適用する スプリット 機能、まず、ダウンロードする必要があります Kutools for Word、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Word、次のようにしてください。

1に設定します。 OK をクリックします。 クツールズプラス > スプリット、スクリーンショットを参照してください:

2。 ポップアウトされたダイアログボックスで、必要に応じて次の操作を設定してください。スクリーンショットを参照してください。

3。 設定終了後、をクリックしてください OK、およびドキュメント全体が各ページに基づいて複数のファイルに分割されます。スクリーンショットを参照してください。

クリックしてKutoolsfor Wordと無料トライアルを今すぐダウンロードしてください!


推奨される単語生産性ツール

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...