как работать с буфером обмена ?

[Okkkks]

Ребята! Помогите разобраться с буфером обмена. Задача выглядит так:
1. Выделить содержимое документа.
2. Скопировать содержимое документа в буфер обмена.
3. Закрыть текущий документ.
4. Создать новый документ.
5. Вставить в него текст и объекты из буфера обмена.
6. Сохранить документ под прежним именем

всё бы ничего, но 5 пункт не работает! Не могу понять почему...=((

Делаю так:

Sub Perenos()
    Selection.WholeStory
     Selection.Range.Copy
    NameD = ThisDocument.Name
 Set WordApp = New Word.Application
WordApp.Visible = True
Set DocWord = WordApp.Documents.Add
DocWord.Activate
 Selection.WholeStory
DocWord.SaveAs NameD
Selection.Range.Paste
ThisDocument.Close True
End Sub
 
Помогите найти ошибку!

[baldr]

Я думаю, не работает потому, что данные сохраняются где-то локально в пределах Workbook...
Вот посмотри эти две ссылки (первая пример, вторая - русский MSDN):
http://word.mvps.org/FAQs/MacrosVBA/ManipulateClipboard.htm
http://msdn.microsoft.com/ru-ru/library/ebwdx8yh.aspx

[Okkkks]

Я тоже так думала (Что данные хранятся локально), но когда в новом, создавшемся документе жмёшь ctrl+v всё прекрасно вставляется. А программно не хочет. Методы GetText и SetText работают только с текстом, а мне нужно, чтобы и объекты, например рисунки, таблицы...,  копировались... =(( Что придумать ещё не знаю.... =((

[baldr]

Okkkks, вот так заработало:

Код: (Text)

Sub Perenos()
    Selection.WholeStory
     Selection.Range.Copy
    Dim MyData As DataObject
    Set MyData = New DataObject
    NameD = ThisDocument.Name
    Set WordApp = New Word.Application
    WordApp.Visible = True
    Set DocWord = WordApp.Documents.Add
    DocWord.Activate
    DocWord.Application.Selection.Range.Paste
    DocWord.SaveAs NameD
    ThisDocument.Close True
End Sub

Добавил 'DocWord.Application.Selection.Range.Paste'

У тебя, видимо, Selection использовался в контексте первого документа и в него же вставлял, заменяя старое значение.

[Okkkks]

 ) baldr, огромнейшее спасибо!!! Здорово выручил... Теперь всё работает и жизнь налаживается =)) 

[Ципихович Эндрю]

честно говоря при такой задаче проще пользоваться просто сохранить как и всё, а то если в документе была таблица Ворд, как она корректно вставиться сам ВБА знает