ティムはWord文書の項目のリストを持っています。各項目は、テーブルではなく、独自の段落（最後に入力）にあります。一部の項目（段落）には、強調表示が適用されています。ティムは、強調表示された段落が一緒になるように段落を並べ替える方法があるかどうか疑問に思います。つまり、主要な並べ替えキーとしてハイライトで並べ替える必要があります。

Wordはさまざまな方法で並べ替えることができますが、強調表示による並べ替えはその1つではありません。ただし、検索と置換ではハイライトを検索できます。 1つの方法は、検索と置換を使用して強調表示された各段落の前に一意のキーワードを付け、もう一度検索と置換を実行して強調表示されていない段落の前に別のキーワードを付け、最初の単語を最初のキーとして使用してドキュメントを並べ替え、強調表示されるようにすることです。段落は一緒です。その後、Find＆Replaceを実行して、2つの特別なキーワードを削除します。明らかに、この方法は設定が難しく、いくつかの手順が必要です。

もう1つのアプローチは、強調表示に関係なく、すべての段落を単純に並べ替えることです。それが完了したら、マクロを使用して、強調表示された段落をドキュメントの先頭に移動できます。強調表示された段落は、ドキュメント内の並べ替えられた順序で表示されます。

Sub MoveHighlightedParas()

Dim paraMax As Long     Dim paraStart As Long     Dim j As Long     Dim r As Range

With ActiveDocument         paraMax = .Paragraphs.Count         paraStart = 0         j = paraMax         Do While j > paraStart             If .Paragraphs(j).Range.HighlightColorIndex <> wdNoHighlight Then                 .Paragraphs(j).Range.Cut                 Set r = .Content                 r.Collapse                 r.Paste                 paraStart = paraStart + 1             Else                 j = j - 1             End If         Loop     End With End Sub

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13272）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。