VBA从Word复制多行文本粘贴到Excel单元格

Question

我的目标是使用VBA宏将Word中的多行格式文本复制到Excel工作表中的单个单元格中。

现在，我有一个多行文本，需要两个单元格。

这是我当前的代码：

With oWB.Worksheets("EPICS")           
    ' Insert DESCRIPTION - todo
    '
    ' HEADING xyz is selected, move one down and go to Pos1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine

    ' Save current line number (BEGIN)
    BeginText = Selection.Range.Information(wdFirstCharacterLineNumber)

    ' Go to the first table and one move up
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.MoveUp Unit:=wdLine, Count:=1

    ' Save current line number (END)
    EndText = Selection.Range.Information(wdFirstCharacterLineNumber)
    RangeToSelect = EndText - BeginText

    Selection.MoveUp Unit:=wdLine, Count:=RangeToSelect, Extend:=wdExtend
    Selection.Copy

    .Cells(1, 1).PasteSpecial xlPasteValues
End With

这将创建以下内容：

我想要以下内容：

关于如何处理此问题或任何输入的任何想法？

Answer 1

代替
...
Selection.Copy
.Cells(1, 1).PasteSpecial xlPasteValues
...
码
.Cells(1, 1).Value=Selection.text