0
私の目標は、WordからExcelワークシートに複数行の書式設定されたテキストをVBAマクロを使用して1つのセルにコピーすることです。VBA Wordの貼り付けからExcelセルに複数行のテキストをコピー
これで、2つのセルが必要な複数行のテキストが得られました。
これは私の現在のコードです：
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
これは以下を作成します。 
私は次のことを持っているしたいと思います： 
私はこれを処理することができますどのように任意のアイデアや任意の入力？
コードの最後の行は 'ActiveSheet.Cells（1、1）.Valueの= TXT1＆ "" であろう＆Txt2'。しかし、その前にあなたが持っているものは、あなたが必要とするものから非常に遠いです。まず、ExcelワークシートまたはWord文書からコードを実行するかどうかを決定します。 Googleの「Word文書をExcelで開く方法」（またはその逆の方法）のようなものがあります。 – Variatus
いいえ、いいえ、いいえ！私には単語ファイルがあります。このマクロは、見出しとこの見出しの後の最初の表の間のテキストをコピーします。私の問題は、この2つの間のテキストが複数行であることです。言葉では、1つのセルにExcelの.... – Markus
@Variatusあなたがメッセージを介してコードを送信したい場合、それはかなり長いです... – Markus