Как в 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]

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

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;

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