Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

вставка текста в MS Word через OleContainer   Найти похожие ветки 

 
Михаил   (2014-02-28 10:50) [0]

Вот простой пример вставки текста в Документ Word:


procedure TForm1.Button1Click(Sender: TObject);
var
 Doc: Variant;
begin
 if not (OleContainer1.State = osRunning) then OleContainer1.Run;

 Doc := OleContainer1.OleObject;
 Doc.Range.Text := "123";
end;


При вызове Doc.Range.Text := "123"; сотрется весь документ и вставится только этот текст. Еще можно создавать параграфы, но тогда новый текст будет вставляться только с новой строки(параграфа).

Можно ли вставлять текст от каретки, по нажатию кнопки (подобно копировать\вставить)


 
clickmaker ©   (2014-02-28 11:04) [1]

Doc.Selection.Text ?


 
Михаил   (2014-02-28 11:20) [2]


> clickmaker ©   (28.02.14 11:04) [1]


---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleError with message "Method "Selection" not supported by automation object". Process stopped. Use Step or Run to continue.
---------------------------
OK   Help  
---------------------------


 
sniknik ©   (2014-02-28 11:33) [3]

Sub Макрос1()
"
" Макрос1 Макрос
" Макрос записан 28.02.2014 ws-131
"
   Selection.PasteAndFormat (wdPasteDefault)
End Sub


 
Михаил   (2014-02-28 11:55) [4]


> sniknik ©   (28.02.14 11:33) [3]

вызов - Doc.Application.Run("Макрос1");

А без макроса можно?

Ну текст вообще нужно вставлять из переменной.
Можно конечно ее пихать в буфер, но это как то не удобно.

И я, так понимаю, макрос должен быть предварительно записан вручную на каждой машине? Как в таком случае распостранять EXE? C оговоркой, что запишите его сами?


 
clickmaker ©   (2014-02-28 11:56) [5]

Doc.Application.Selection.Text ?


 
Михаил   (2014-02-28 12:15) [6]


> clickmaker ©   (28.02.14 11:56) [5]

О спасибо!
Как же я смотрел, что не мог нагуглить(



Страницы: 1 вся ветка

Текущий архив: 2015.09.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.063 c
2-1392837011
alexdn
2014-02-19 23:10
2015.09.10
Узнать ip


15-1415898451
полвторого
2014-11-13 20:07
2015.09.10
Ega23, а я песню Вам нашёл!


2-1393339999
Ден99
2014-02-25 18:53
2015.09.10
7 zip.dll


11-1260465918
tippa
2009-12-10 20:25
2015.09.10
горячие клавиши в KOL


15-1411762264
MsGuns
2014-09-27 00:11
2015.09.10
Тризна по Книге