Процедура поиска закладок и перехода по ним




// процедура поиска закладок и перехода по ней
procedure WordGotoBookmark(rBookmark: string);
var
Whatr: OLEVariant;
// OleEnum;
// OLEVariant;
// What :TWordDocument;
Which: OLEVariant;
Count: OLEVariant;
Name: OLEVariant;
begin
Whatr := wdGoToBookmark;
Which := unAssigned;
Count := unAssigned;
Name := rBookmark;
Form1.WrdApp.Selection.GoTo_(Whatr, Which, Count, Name);
end;


Далее: Работа с EXCEL »»