Вопрос № 172170: Создание документа WordXP из Delphi 7. При попытке с помощью Paste вставить текст из буфера обмена(ClipBoard) в выделенный участок WordDocument1.Range(a,b).Select, затем WordDocument1.Range(a,b).Paste получаю сообщение, что ClipBoard пуст или т...
Вопрос № 172170:
Создание документа WordXP из Delphi 7. При попытке с помощью Paste вставить текст из буфера обмена(ClipBoard) в выделенный участок WordDocument1.Range(a,b).Select, затем WordDocument1.Range(a,b).Paste получаю сообщение, что ClipBoard пуст или там что-то не то. WordApplication1.Selection.Paste то же самое. WordDocument1.Range(a,b).InsertAfter(ClipBoard.AsText) делает все правильно. То же самое пыталась сделать из Delphi 5, то же сообщение и в ClipBoard'е текстовая строка. Может быть, нужно
сделать какие-то настройки. Если кто знает, подскажите, пожалуйста. Мучаюсь с этим потому, что нужно вставить рисунок в ячейку таблицы Word. не получилось это, тогда уж я стала проверять на текстовой строке.
Отвечает Шичко Игорь, Практикант :
Здравствуйте, titkova TN. Все правильно Вам отвечает программа. Для записи в буфер используем: WordApplication1.Selection.Copy; Для чтения из буфера используем: WordApplication1.Selection.Paste;
Вставка картинки происходит примерно так: var left_, height_, top_, width_, link_, save_: Olevariant; ... begin ... left_:= 10; top_:= 10; height_:= 10; width_:= 10; link_:= False; save_:= True; range:= WordApplication1.Selection.Range; {задаем
диапазон для вставки} WordApplication1.ActiveDocument.Shapes.AddPicture(filename, Link_, save_, left_, top_, width, height_, range); ... end;
Для копирования картинки в буфер используем: WordApplication1.ActiveDocument.Shapes.Item(index_).Select(EmptyParam); {index_ - Номер картинки, OleVariant} WordApplication1.Selection.Copy;
Будут вопросы - пишите в форум. Удачи.
Ответ отправил: Шичко Игорь, Практикант
Ответ отправлен: 14.09.2009, 15:47
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 254174
на номер 1151 (Россия) |
Еще номера »
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.