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