word работа с макросами.

[Небесный]

Ребята, подскажите реально ли с помощью макроса преобразовать объект-рисунок в просто рисунок. Вот например копируем объект в буфер, потом из буфера в paint из paint обратно в word. И если можно пните где-то почитать, посмотреть как сие сделать, от программирования не далек, от от OVB немного далек. )))
Заранее благодарю.

[Казанский]

Запишите в макрос действия: скопировать, спец. вставка - как точечный рисунок (или рисунок (PNG) - это зависит от того, какого рода объект).

[Небесный]

Ну, это могут быть диаграмы, формулы, фигуры. Тоесть грубо говоря полный набор объектов, которые есть в word.

Для начала чтобы их можно было сделать картинками, нужно их выделить.

Sub selectAllShapes()
     ActiveDocument.Shapes.SelectAll
End Sub

Хотя не уверен, что все объекты будут Shapes, или это общий класс для всех объектов? Извините конечно за тупые вопросы, мало знаком с бейсиком, да еще и в офисе.

[Небесный]

Подскажите, что здесь не так.

Sub object()
'
' object Ìàêðîñ
'
'
Dim i As Integer, CountObject As Integer

CountObject = ActiveDocument.Shapes.Count

For i = 1 To CountObject
    ActiveDocument.Shapes(i).Select
    Selection.Copy
    Selection.PasteSpecial Link:=False, DataType:=15, Placement:=wdInLine, _
        DisplayAsIcon:=False
Next i

End Sub

[Казанский]

А что "не так"? Код компилируется и работает без ошибок (попробовал на одной автофигуре).
Наверно, результат получается не такой, как хотите - но тогда приложите свой файл, на котором можно попробовать.
В документе Word есть две отдельные коллекции объектов - Shapes и InlineShapes. Вы берете объекты из Shapes, а вставляете в текст (Placement:=wdInLine).

[Sasha_Smirnov]

ActiveDocument.Shapes(k).Duplicate.ConvertToInlineShape.Select

Но только для точечного рисунка (k-го в документе); автофигуры сей код не переваривает.

Действующий пример: http://programmersforum.ru/showthread.php?t=54187#4

[Небесный]

Ну, я так понял, что

ActiveDocument.Shapes(k).Duplicate.ConvertToInlineShape.Select

это не для всех объектов, как еще можно описать оставшиеся, которые не попали выше приведенный код?