Форум: "Основная";
Текущий архив: 2003.03.24;
Скачать: [xml.tar.bz2];

Вниз

Как в Delphi открыть документ MS-Word и перейти к к.-л. закладке?   Найти похожие ветки 

← →
Ricky-Ticky-Tavy   (2003-03-12 09:02) [0]

Кто знает как из Delphi открыть документ MS-Word, перейти к нужной закладке в этом документе и вставитьт строку в этом месте, напишите, pls.

---

← →
antoniz   (2003-03-12 09:28) [1]

Не большой пример кода далее я думаю сам поймешь
uses ComObj;
procedure TestWord;
var
MSWord, MSDoc, MSTable: variant;
begin
MSWord:=CreateOleObject("Word.Application");
MSDoc:=MSWord.Documents.Add;
MSWord.Selection.Range.Text:="Inserting string"; MsTable:=MSWord.Selection.Tables.Add(MSWord.Selection.Range,2,2);
MSTable.Cell(1,1).Range.Text:="test";
MSWord.Visible:=true;
end;

Все объекты и их методы и свойства сервера приложений MSWord можно почитать в справке по Visual Basic к нему.

---

← →
antoniz   (2003-03-12 09:30) [2]

Забыл на счет закладки сказать, надо в справке смотреть семейство объекто типа Bookmarks или нечто подобное, но это все не сложно. Можно еще конечно импорт type library ворда сделать и этот модуль к делфям привязать, тогда можно будет использовать раннее связывание

---

← →
tv   (2003-03-12 10:30) [3]

запусти ворду, открой нужный документ, запусти запись макроса, сделай все вручную что тебе надо, останови запись макроса, посмотри код макроса ивыцнь оотуда все что тебе надо в свою прогу (с переводом из ВБА в Делфи). вот и все.

---

← →
Севостьянов Игорь   (2003-03-12 21:33) [4]

uses ..., Word97, ComObj;

...

procedure TForm1.Button1Click(Sender: TObject);
var
wordApp,
vWhat, vName,
vText,
vFileName,
vFileFormat : Variant;
begin
Screen.Cursor := crHourGlass;
vFileName := "C:\TEMP\doc1.doc";
vWhat := wdGoToBookmark;
vName := "bookmark1";
vText := "NewText";

wordApp := CreateOleObject("Word.Application");
try
wordApp.WindowState := wdWindowStateMaximize;
wordApp.Visible := True;//False;
wordApp.Documents.Add(vFileName);

wordApp.Selection.GoTo(vWhat, emptyParam, emptyParam, vName);// переход на закладку
wordApp.Selection.TypeText(vText); // вставка текста

vFileName := "C:\TEMP\doc2.doc";
wordApp.ActiveDocument.SaveAs(vFileName);
finally
wordApp.ActiveDocument.Close;
wordApp.Quit;
Screen.Cursor := crDefault;
end;
end;

---

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

Форум: "Основная";
Текущий архив: 2003.03.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c