Word文書から個々のページを抽出する2つの簡単な方法

本日の記事では、Word文書から個々のページを抽出する2つの簡単な方法をご紹介します。

Word文書では、各ページに表などのまったく独立したコンテンツが含まれている場合があります。 そして、あなたはおそらく異なる人々に異なるテーブルを送る必要があるでしょう。 次に、各ページである各テーブルを個別のファイルとして保存する必要があります。

私たちの頭に浮かぶ最初のアイデアは、古典的なコピーアンドペーストです。 それでも、選択を伴うものは、時には煩わしいことがあります。ドラッグして選択すると、選択がまったくなくても簡単に一方の端を作ることができるからです。 このため、マクロを使用して作業を行う2つの簡単な方法をお勧めします。

方法1：現在のページを抽出して新しいドキュメントとして保存する

1. まず最初に、抽出したいページにカーソルを合わせてください。
2. [開発者]タブをクリックし、[VisualBasic]をクリックしてVBAエディターを呼び出します。 「開発者」がアクティブになっていない場合は、代わりに「Alt + F11」を押してください。
3. 次に、「通常」プロジェクトをクリックして移動します。
4. 次に、「挿入」タブをクリックし、「モジュール」を選択します。
5. 新しいモジュールをダブルクリックして、編集領域を開きます。
6. 次に、次のコードをそこに貼り付けます。

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. 最後に、「実行」ボタンをクリックします。

これで、2つの入力ボックスができます。 新しいドキュメントを保存するパスを最初の入力ボックスに入力します。 そして、XNUMX番目のドキュメント名に新しいドキュメント名を入力します。

方法2：各ページを抽出して新しいドキュメントとして保存する

次のマクロを使用すると、ドキュメントの個々のページを抽出できます。

1. まず、「Ctrl + Home」を押して、ドキュメントの最初に移動します。
2. 次に、方法1と同じ手順に従って、マクロをインストールして実行します。
3. 今回は、マクロを次のマクロに置き換えます。

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

単語の問題に対処する

Wordには様々な問題があり、今後も発生し続けるでしょう。重要なのは、それらを適切に解決する方法を学ぶことです。最も推奨される方法は、もちろん、高度な 単語の回復 ツール。 手遅れになる前にデータを回復するために毎分をつかむ必要があります。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したxlsx (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com