ドキュメント内のすべての段落を逆にする(Microsoft Word)
ジェリーは日常的に長いドキュメント(おそらく30ページ)を処理する必要があります
ここで、彼はドキュメント内の段落の順序を逆にする必要があります。
彼は、最後が最初で最初が最後になるように、すべての段落の順序を簡単に逆にする方法があるかどうか疑問に思います。
これを1〜2回だけ実行する必要がある場合、最も簡単な方法は段落を並べ替えることです。あなたがする必要があるのは、各段落が順番に3桁の数字で始まることを確認することです。次に、すべての段落を選択し、通常のように段落を降順で並べ替えると、すべて設定されます。
このアプローチと同様に、Excelを使用して並べ替えを行うことができます。これは、段落がかなり短い場合にうまく機能します:
。 WordとExcelの両方が開いていることを確認してください。 Wordには、段落を並べ替えるドキュメントが含まれている必要があり、Excelには空白のワークシートが含まれている必要があります。
。 Wordで、Ctrl + Aを押してドキュメント全体を選択します。
。 Ctrl + Cを押します。これにより、段落がクリップボードにコピーされます。
。 Excelで、セルB1を選択します。
。 Ctrl + Vを押します。これにより、すべての段落が列Bに貼り付けられます。
。必要な数の行について、列Aに一連の連番を入力します。 Excelには、これを簡単に行うためのいくつかの方法があります。列Aに数式ではなく実際の値が含まれていることを確認してください。
。セルA1を選択します。
。リボンの[データ]タブを表示します。
。並べ替えツールの横にある下矢印をクリックしてから、[降順]をクリックします。
Excelは列AとBを並べ替えます。段落の順序が逆になりました。
。セルB1を選択します。
。 Shift + Ctrl +下矢印を押します。これで、すべての段落が選択されます。
。 Ctrl + Cを押します。これにより、段落がクリップボードにコピーされます。
。 Wordに戻ります。ドキュメント内のすべての段落を選択する必要があります。
。 [形式を選択して貼り付け]を使用して、テキストのみを貼り付けることを選択します。 (これを行わないと、ドキュメントにExcelテーブルが含まれることになります。)
このアプローチの欠点は、テキストのフォーマットを保持しないことです。 ExcelとWordの間の翻訳では失われます。書式設定を保持する場合は、(前述のように)Wordで並べ替えを行うか、マクロを使用して並べ替えを行う必要があります。
この種のドキュメント処理を定期的に行う必要がある場合は、マクロアプローチもお勧めします。
Sub ReveresParagraphs() Dim J As Long Dim Source As Document Set Source = ActiveDocument Documents.Add With Source For J = .Paragraphs.Count To 1 Step -1 .Paragraphs(J).Range.Copy Selection.Paste Next J End With End Sub
このマクロは、新しいドキュメントを作成してから、各段落を元のドキュメントから新しいドキュメントに逆の順序でコピーします。ソースドキュメントに存在するフォーマットもすべて、新しいドキュメントにコピーする必要があります。
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(4803)は、Microsoft Word 2007、2010、2013、および2016に適用されます。