WinWord & VBA
Работаю с Word
Word= Variant::CreateObject("Word.Application");
После вставки картинки
Word.OlePropertyGet("ActiveDocument").OlePropertyGet("Shapes").OleProcedure("AddPicture","123.wmf" , false, true, 0, 0);
пытаюсь эту картинку переместить на другой лист документа (листов в документе достаточно).
Макрос в VBA пишется так:
ActiveDocument.Shapes("Picture 2").Select
Selection.ShapeRange.IncrementLeft 9#
Пишу соответственно в Builder так:
Word.OlePropertyGet("Selection").OleProcedure("InsertBreak", "9#");
а так ничего не получается пишется ошибка несовпадение типов. Судя по всему должен быть целый тип. Но если он целый, то невозможно перенести картинку на новую страницу!!!
Word= Variant::CreateObject("Word.Application");
После вставки картинки
Word.OlePropertyGet("ActiveDocument").OlePropertyGet("Shapes").OleProcedure("AddPicture","123.wmf" , false, true, 0, 0);
пытаюсь эту картинку переместить на другой лист документа (листов в документе достаточно).
Макрос в VBA пишется так:
ActiveDocument.Shapes("Picture 2").Select
Selection.ShapeRange.IncrementLeft 9#
Пишу соответственно в Builder так:
Word.OlePropertyGet("Selection").OleProcedure("InsertBreak", "9#");
а так ничего не получается пишется ошибка несовпадение типов. Судя по всему должен быть целый тип. Но если он целый, то невозможно перенести картинку на новую страницу!!!
Цитата:
Originally posted by OS17
Работаю с Word
Word= Variant::CreateObject("Word.Application");
После вставки картинки
Word.OlePropertyGet("ActiveDocument").OlePropertyGet("Shapes").OleProcedure("AddPicture","123.wmf" , false, true, 0, 0);
пытаюсь эту картинку переместить на другой лист документа (листов в документе достаточно).
Макрос в VBA пишется так:
ActiveDocument.Shapes("Picture 2").Select
Selection.ShapeRange.IncrementLeft 9#
Пишу соответственно в Builder так:
Word.OlePropertyGet("Selection").OleProcedure("InsertBreak", "9#");
а так ничего не получается пишется ошибка несовпадение типов. Судя по всему должен быть целый тип. Но если он целый, то невозможно перенести картинку на новую страницу!!!
Работаю с Word
Word= Variant::CreateObject("Word.Application");
После вставки картинки
Word.OlePropertyGet("ActiveDocument").OlePropertyGet("Shapes").OleProcedure("AddPicture","123.wmf" , false, true, 0, 0);
пытаюсь эту картинку переместить на другой лист документа (листов в документе достаточно).
Макрос в VBA пишется так:
ActiveDocument.Shapes("Picture 2").Select
Selection.ShapeRange.IncrementLeft 9#
Пишу соответственно в Builder так:
Word.OlePropertyGet("Selection").OleProcedure("InsertBreak", "9#");
а так ничего не получается пишется ошибка несовпадение типов. Судя по всему должен быть целый тип. Но если он целый, то невозможно перенести картинку на новую страницу!!!
А ты как рисунок как часть текста или нет , если вставляешь как текста, то проблем нет должно быть, а если как объект,то там могут быть такие глюки, которые возникают от того какое обтекание и т. д.
Как нормально вставить рисунок, чтобы его можно было поместить на нужную страницу без проблем?
Цитата:
Originally posted by OS17
Как нормально вставить рисунок, чтобы его можно было поместить на нужную страницу без проблем?
Как нормально вставить рисунок, чтобы его можно было поместить на нужную страницу без проблем?
НЕт ты меня не понял, рисунок можно вставить как символ текста, а можно как объект и это принципиально, если ты с этим не разбирешбся, то твоя прога будет глючить....;)
Рисунок вствляется как объект. Как вставить его по другому я не знаю. Может подскажите?