замена обзаца в word из excel

[pooli]

Подскажите как выполнить такую процедуру?

из excel открываю файл worda для копирования данных, но прежде чем скопировать в ворде нужно убрать абзацы!
макрос записанный в ворде

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFor matting

With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Visible = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

в экселе не проходит.

[doober]

Sub Replace_Text_Word()
Set wd = CreateObject("Word.Application")
Set W_Doc = wd.Documents.Open("C:\2.doc")
Dim Text_Word As String

Text_Word = Replace(W_Doc.Range.Text, Chr(13), "") 'Получаем текс5 без абзацев и копировать ничего не надо



W_Doc.Range.Text = Replace(W_Doc.Range.Text, Chr(13), "") 'в ворде  убираем  абзацы
'..............................................

End Sub

[viter.alex]

doober, зачем же так сурово? Ведь это избавит не только от абзацев, но и от форматирования
pooli, воспользуйтесь примером doober, приняв во внимание, что объект Selection является дочерним по отношению к объекту Word.Application

[pooli]

не не не
че то не то,
не то совсем.

я в соседней ветке вопросик с примером подымал,но ни кто не ответил.
пример оригинала, и без обзацев