Помогите пожалуйста
Я копирую данные с помощью из Word в Excel. Данных много и я сделал макрос, написал цикл. Дело в том что я не могу вставить данные в Excel из буфера.... Clipboard.GetText не забирает почему то...... подскажите плз переменную в которую созраняются данные либо как извлечь в переменную!

Antonariy, можно попобробней о ActiveSheet.Paste ? я так понимаю эт процедура а мне надо в конкретную ячейку вставлять.......(

Antonariy,
Dim i As Integer

Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Add
Set Sheet = Excel.Workbooks(1).WorkSheets(1)
i = 1

Do While i = 100000

Selection.Find.ClearFormatting
With Selection.Find
.Text = "íàçâàíèå êðàòêîå"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut

Sheet.Range(1, i) = ActiveSheet.Paste

Selection.Find.ClearFormatting
With Selection.Find
.Text = "ÈÍÍ"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut

Sheet.Cell(2, i) = ActiveSheet.Paste

Selection.Find.ClearFormatting
With Selection.Find
.Text = "Àäðåñ"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Extend
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Cut

Sheet.Cell(3, i) = ActiveSheet.Paste

Selection.Find.ClearFormatting
With Selection.Find
.Text = "ðóêîâîäèòåëü"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut

Sheet.Cell(4, i) = ActiveSheet.Paste


Selection.Find.ClearFormatting
With Selection.Find
.Text = "ñòàòóñ"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut

Sheet.Cell(5, i) = ActiveSheet.Paste
i = i + 1
Loop
Excel.Visible = 1

Excel.Workbooks(1).SaveAs ("C:\test\123.Xls")
Excel.Quit

все равно не работает(((((( если не влом скажите что не так....

Antonariy,
про Эксель не понял) у меня открывается книга новая но ничего туда не сохраняется, и я пытаюсь вытащить текст из ворда и вставить в Эксель.......
В ссмысле не правильно оформлен код?