VBA将多行文字从Word paste复制到Excel单元格中

我的目标是使用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

这将产生以下结果：

我希望有以下资料：

你知道我如何处理这个或任何输入吗？

而不是

…

选择。复制

.Cells（1，1）.paste特殊XLPaste值

…

代码

---

.Cells（1,1）.Value=Selection.text

最后一行代码将是

ActiveSheet.Cells（1,1）.Value=Txt1&&&Txt2

。但在那之前你所拥有的一切与你所需要的相差甚远。首先决定是从Excel工作表还是从Word文档运行代码。谷歌搜索类似“如何在Excel中打开Word文档”之类的内容（或者反过来说。你会找到可以构建的基本代码。不，不，不！我有一个word文件。我有一个word宏。这个宏复制标题和标题后的第一个表之间的文本。我的问题是，这两个表之间的文本是多行的。我的目标是：将此文本放入一个excel单元格。我的当前状态。每一行都在word，在excel中的一个单元格中…@Variatus如果您需要，我会通过消息将代码发送给您，它相当长。。。