Jerry通常需要处理较长的文档（可能是30页）

他需要颠倒文档中各段的顺序。

他想知道是否有一种方法可以轻松地颠倒所有段落的顺序，以使最后一个为第一，最后一个为后。

如果只需要执行一两次，则最简单的方法是对段落进行排序。您需要做的就是确保每个段落都以一个三位数的数字开头。然后，选择所有段落并对它们进行排序，就像通​​常按降序对段落进行排序一样，您便会准备就绪。

与这种方法类似，您可以利用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_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

链接：/ wordribbon-WordTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（4803）适用于Microsoft Word 2007、2010、2013和2016。