Cum de a deschide un document delphi ms-cuvânt și du-te la k-l

Ca și în Delphi pentru a deschide un document MS-Word și du-te la SUCCESIUNEA Fila?

Cine știe cum să deschidă un document din Delphi MS-Word, mergeți la fila corespunzătoare în linia de documente și vstavitt în acest moment, scrie, pls.

Nu este un exemplu foarte bun de codul de mai jos, cred că va înțelege
utilizează ComObj;
Procedura TestWord;
var
MSWord, MSDoc, MSTable: variantă;
începe
MSWord: = CreateOleObject ( "Word.Application");
MSDoc: = MSWord.Documents.Add;
MSWord.Selection.Range.Text: = "Introducerea string"; MsTable: = MSWord.Selection.Tables.Add (MSWord.Selection.Range, 2,2);
MSTable.Cell (1,1) .Range.Text: = "test";
MSWord.Visible: = true;
se încheie;

Toate obiectele și metodele lor și proprietățile server de aplicații msword pot fi găsite în Ajutor pentru Visual Basic să-l.

Am uitat să spun prin semne de carte, aveți pentru a ajuta la aspectul familial al Marcaje tip de proprietate, sau ceva de genul asta, dar nu este greu. Desigur, puteți importa în continuare o bibliotecă de tip Word și pentru a face acest modul pentru Delphi cravată, atunci va fi posibil să se utilizeze mai devreme de legare

Inițiază un cuvânt, deschideți documentul pe care doriți, începeți înregistrarea macro, face totul de mână ceea ce ai nevoie, opriți înregistrarea macro, codul macro ivytsn uite ootuda tot ceea ce ai nevoie în prog dvs. (tradus din BWA în Delphi). asta e tot.

folosește. Word97, ComObj;

Procedura TForm1.Button1Click (Expeditor: TObject);
var
wordApp,
vWhat, vName,
vText,
vFileName,
vFileFormat. varianta;
începe
Screen.Cursor: = crHourGlass;
vFileName: = "C: \ TEMP \ doc1.doc";
vWhat: = wdGoToBookmark;
vName: = "bookmark1";
vText: = "NewText";

wordApp: = CreateOleObject ( "Word.Application");
încerca
wordApp.WindowState: = wdWindowStateMaximize;
wordApp.Visible: = true; // false;
wordApp.Documents.Add (vFileName);

wordApp.Selection.GoTo (vWhat, emptyParam, emptyParam, vName); // trecere la marcaj
wordApp.Selection.TypeText (vText); // se inserează textul

vFileName: = "C: \ TEMP \ doc2.doc";
wordApp.ActiveDocument.SaveAs (vFileName);
în cele din urmă
wordApp.ActiveDocument.Close;
wordApp.Quit;
Screen.Cursor: = crDefault;
se încheie;
se încheie;

Memorie: 0.72 MB
Timpul: 0,036 c