Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c