word中将合并后的多行拆分为原先的行数

**Word 中将合并后的多行拆分为原先的行数**

在 Word 中，合并多行可以方便地减少文档的行数，但是当需要恢复到原来的行数时，可能会感到困扰。好在有解决方案，可以使用 VBA 脚本来实现这一功能。

**步骤一：创建一个新模块**

首先，我们需要创建一个新模块来存放我们的脚本。在 Word 中，按下 Alt + F11 打开 Visual Basic 编辑器，然后点击 "插入" -> "模块"（Insert -> Module）。

**步骤二：编写脚本**

在新模块中，粘贴以下代码：

vbSub 分割合并行()
 Dim doc As Document Set doc = ActiveDocument ' 获取选区的起始和结束位置 Dim start As Long, end As Long start = Selection.Start end = Selection.End ' 将选区转换为 Range 对象 Dim rng As Range Set rng = doc.Range(start, end)
 ' 将合并行拆分为原先的行数 rng.Split numSplit:=-1, NumLines:=True '重新定位选区到最后一行 Selection.Start = rng.EndEnd Sub

**步骤三：保存脚本**

保存这个模块，命名为 "分割合并行"（Split Merged Lines）。

**步骤四：运行脚本**

在 Word 中，按下 Alt + F8 打开宏列表，然后选择 "分割合并行" 脚本，并点击 "运行"。

**效果**

当你选中一个合并的多行区域时，脚本会将其拆分为原先的行数。重新定位选区到最后一行后，你就可以看到每个单独的行了。

**注意事项**

* 这个脚本只适用于 Word2010 或更高版本。
* 如果你有多个合并行区域，脚本会将所有区域都拆分为原先的行数。
* 如果你需要保留某些合并行区域不被拆分，请在脚本中添加条件判断来排除这些区域。

**代码注释**

* `Dim doc As Document`：声明一个 Document 对象，用于存放当前文档。
* `Set doc = ActiveDocument`：将当前文档赋值给 Document 对象。
* `start = Selection.Start` 和 `end = Selection.End`：获取选区的起始和结束位置。
* `Set rng = doc.Range(start, end)`：将选区转换为 Range 对象。
* `rng.Split numSplit:=-1, NumLines:=True`：将合并行拆分为原先的行数。
* `Selection.Start = rng.End`：重新定位选区到最后一行。

以上就是如何在 Word 中将合并后的多行拆分为原先的行数的步骤和代码示例。