Word从Excel的选定内容中粘贴了所有行而不是仅选定的内容。

可以使用以下代码片段将选定区域中的每行内容逐一粘贴到Word文档中：

Sub CopyExcelSelectionToWord()

    '将选定的数据从Excel复制到剪贴板
    Selection.Copy

    '将Word文档设置为活动文档
    Dim WordDoc As Object
    Set WordDoc = GetObject(, "Word.Application").ActiveDocument

    '将Word光标移动到文档末尾，插入选定数据
    WordDoc.Range.End = WordDoc.Range.End - 1
    WordDoc.Range.PasteExcelTable False, False, False

End Sub

通过这个代码，我们可以确保只粘贴选定的内容，并且每行都单独粘贴，避免出现行间距不正确的情况。