Как да отворите документ, Delphi мс дума и отидете в к-л

Както и в Делфи, за да отворите документ, MS-Word и да преминете към наследяване раздел?

Кой знае как да отворите документ от Delphi MS-Word, идете на съответния раздел в линията на документ и vstavitt в този момент, пише, АД.

Не е чудесен пример за кода по-долу, аз мисля, че той ще разбере
използва ComObj;
процедура TestWord;
Var
MSWord, MSDoc, MSTable: вариант;
започвам
MSWord: = CreateOleObject ( "Word.Application");
MSDoc: = MSWord.Documents.Add;
MSWord.Selection.Range.Text: = "Поставяне на низ"; MsTable: = MSWord.Selection.Tables.Add (MSWord.Selection.Range, 2,2);
MSTable.Cell (1,1) .Range.Text: = "тест";
MSWord.Visible: = вярно;
приключи;

Всички предмети и техните методи и свойства MSWord сървър на приложения може да се намери в Помощ за Visual Basic към него.

Забравих да кажа чрез отметки, ще трябва да помогне на семейството вид на отметките, за тип имот, или нещо подобно, но това не е трудно. Разбира се, все още можете да импортирате тип Word библиотека и да направи този модул до Делфи вратовръзка, а след това ще бъде възможно да се използва в началото на свързване

Започнете Word, отворете документа, който искате, започнете да записвате макрос, направете всичко на ръка, което ви трябва, спрете записа на макроса, макро код ivytsn изглежда ootuda всичко, което ви трябва в прог (в превод от БУА в Делфи). това е всичко.

използва. Word97, ComObj;

процедура TForm1.Button1Click (Sender: TObject);
Var
wordApp,
vWhat, vName,
vText,
vFileName,
vFileFormat. Вариант;
започвам
Screen.Cursor: = crHourGlass;
vFileName: = "C: \ TEMP \ doc1.doc";
vWhat: = wdGoToBookmark;
vName: = "bookmark1";
vText: = "NewText";

wordApp: = CreateOleObject ( "Word.Application");
опитвам
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);
накрая
wordApp.ActiveDocument.Close;
wordApp.Quit;
Screen.Cursor: = crDefault;
приключи;
приключи;

Памет: 0.72 MB
Време: 0,036 гр