Чтение закладок из Word

void FillPatient(String OutPath)
{
Variant vVarApp, vVarDocs, vVarDoc, vSelection , vVarBookmarks, vVarBookmark;
vVarApp = CreateOleObject("Word.Application");
vVarDoc = vVarApp.OlePropertyGet("Documents").OleFunction("Open", WideString(OutPath));
vSelection = vVarApp.OlePropertyGet("Selection");
vSelection.OleProcedure("GoTo", (int)-1,0,0, WideString("Adress"));//Adress это имя закладки
String Adress = vSelection.OlePropertyGet("/*Что здесь должно быть*/");
PatientOne.SetAdress(Adress);
}

void __fastcall TForm1::ReadExcelFile()
{
   Excel=CreateOleObject("Excel.Application");     
 try   {
 
    Book=Excel.OlePropertyGet("Workbooks").OlePropertyGet("Open",OpenDialog1->FileName.c_str());
    Sheet=Book.OlePropertyGet("Worksheets", shit);
  //. ASheet.Range['A1', EmptyParam].SpecialCells(xlCellTypeLastCell, EmptyParam);
 // Rows =  ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
 
  //Columns = Excel.ActiveSheet.UsedRange.Columns.Count;
   for(int i=2;i<StringGrid1->RowCount;i++)
   for(int j=1;j<StringGrid1->ColCount;j++)
 
       {
       StringGrid1->Cells[j-1][i-1]=Sheet.OlePropertyGet("Cells",i,j);
       }
   if (!Excel.IsEmpty())
   {
     Excel.OleProcedure("Quit");
     Excel.Clear();
   }
      }
catch(...)
{
MessageBox(0," Файл невозможно открыть! Файл испорчен или \n возможно был выбран номер шита которго нет в открываемом файле! " , "Ошибка при считывании excel файла", MB_OK|MB_ICONERROR);
Edit1->Text = "1"; shit=1;
}
// MessageBox ("Файл успешно считан!", "Считывания excel файла");
//catch (Exception ex) { MessageBox.Show("Ошибка: " + ex.Message, "Ошибка при считывании excel файла"); }
//Для корректного завершения работы с Excel, нужно выполнить следующие:
//Закрытие книгу Excel.
Book.Clear();
//Закрытие приложения Excel.
Excel.Clear();
//Обнуляем созданые объекты
Book  = NULL;
Sheet = NULL;
Excel = NULL;
//Вызываем сборщик мусора для их уничтожения и освобождения памяти
//GC.Collect();
 
}

shit=1;// задаю номер шита

// запись в закладку:
   Variant MyBookmark = ActiveDocument.OlePropertyGet("Bookmarks");
   MyBookmark.OleFunction("Item", 1).OleProcedure("Select"); // обращение к закладке по индексу, не по имени
   Variant Sel = WordApplication1.OlePropertyGet("Selection");
 
   // следующие 2 строки - чтобы не терять закладку после записи в нее,
   // в пустую закладку нужно вписывать 2 пробела, чтобы при программной очистке
   // ее текст не оставался пустым, а хоть что-то содержал
   Sel.OleProcedure("MoveStart", wdCharacter, 1); // wdCharacter = 1
   Sel.OleProcedure("MoveEnd", wdCharacter, -1);
 
   Sel.OlePropertySet("Text", WideString(L"Нужный текст")); // записал в закладку

WideString Address = Sel.OlePropertyGet("Text");