В документ MS Word записывать одно и то же значение в целую группу закладок

case StrToInt(Copy(WD.Bookmarks.Item(i).Name, 2, 1)) of

if <Имя_закладки> = 'Это_первая_закладка' then .. ;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses
  ComObj;
 
//Функция записывает новый текст для закладки с именем aBmName.
//Функция возвращает значение True, если закладка найдена и её текст изменён
//и False - если закладка не найдена.
//Переустановка текста закладки выплоняется так:
//- Получаем ссылку на объект-диапазон, который содержит текст закладки.
//- Удаляем закладку.
//- Устанавливаем новый текст для объекта-диапазона.
//- Создаём новую закладку с диапазоном, который содержит новый текст.
function SetBmText(var aBms : Variant; const aBmName, aText : String) : Boolean;
var
  Bm, Rng : Variant;
begin
  //Проверяем - существует ли закладка с заданным именем.
  Result := aBms.Exists(aBmName);
  //Если закладка не найдена - выходим.
  if not Result then Exit;
 
  //Ссылка на закладку.
  Bm := aBms.Item(aBmName);
  //Ссылка на диапазон, связанный с закладкой.
  Rng := Bm.Range;
  //Удаление закладки.
  Bm.Delete;
  //Заменяем текст в диапазоне.
  Rng.Text := aText;
  //Добавляем новую закладку с таким же именем.
  aBms.Add(aBmName, Rng);
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc, wdBms : Variant;
  Od : TOpenDialog;
  i : Integer;
begin
  Od := OpenDialog1;
 
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( Application.ExeName )
  ;
  Od.Title := 'Выберите шаблон, на основе которого будет создан новый документ';
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;
 
  //Делаем видимым окно MS Word.
  wdApp.Visible := True;
  //Ссылка на коллекцию документов.
  wdDocs := wdApp.Documents;
  //Попытка открыть выбранный файл.
  wdDoc := wdDocs.Open(FileName:=Od.FileName);
  //Подключаемся к коллекции закладок.
  wdBms := wdDoc.Bookmarks;
  //Ищем закладки с нужными именами и изменяем их текст, в соответствие
  //с данными, введёнными на форме.
  SetBmText(wdBms, 'N_DOCz1', Edit1.Text);
  //SetBmText(wdBms, 'DATA_CREATEz2', Edit2.Text);
  //SetBmText(wdBms, 'N_TABz3', Edit3.Text);
  SetBmText(wdBms, 'FIOz4', Edit4.Text);
 
 
  //Записываем информацию во все одинаковые закладки
     for i := 1 to wdDoc.Bookmarks.Count do
              case StrToInt(Copy(wdDoc.Bookmarks.Item(i).Name, 2, 1)) of
                  1: wdDoc.Bookmarks.Item(i).Range.Text := Edit1.Text;
                  4: wdDoc.Bookmarks.Item(i).Range.Text := Edit4.Text;
             end;
 
  //Сохранять документ следует под другим именем, чтобы не перезаписать шаблон.
  //wdApp.DisplayAlerts := False; //Отключаем режим показа предупреждений.
  //wdDoc.SaveAs(FileName:=...);
  //wdApp.DisplayAlerts := True; //Включаем режим показа предупреждений.
  //Закрываем документ.
  //wdDoc.Close;
  //Закрываем MS Word.
  //wdApp.Quit;
end;
 
end.

case StrToInt(Copy(wdDoc.Bookmarks.Item(i).Name, 2, 1)) of

case StrToInt(Copy(wdDoc.Bookmarks.Item(i).Name, 5, 1)) of

//Делаем видимым окно MS Word.
  wdApp.Visible := True;
  //Ссылка на коллекцию документов.
  wdDocs := wdApp.Documents;
  //Попытка открыть выбранный файл.
  wdDoc := wdDocs.Open(FileName:=Od.FileName);
  //Подключаемся к коллекции закладок.
  wdBms := wdDoc.Bookmarks;
  //Ищем закладки с нужными именами и изменяем их текст, в соответствие
  //с данными, введёнными на форме.
  SetBmText(wdBms, 'z1_N_DOC', Edit1.Text);
  SetBmText(wdBms, 'z4_FIO', Edit4.Text);
 
  //Записываем информацию во все одинаковые закладки
     for i := 1 to wdDoc.Bookmarks.Count do
              case StrToInt(Copy(wdDoc.Bookmarks.Item(i).Name, 2, 1)) of
                  1: wdDoc.Bookmarks.Item(i).Range.Text := Edit1.Text;
                  4: wdDoc.Bookmarks.Item(i).Range.Text := Edit4.Text;
             end;

function SetBmText(var aBms : Variant; const aBmName, aText : String) : Boolean;
var
  Bm, Rng : Variant;
begin
  //Проверяем - существует ли закладка с заданным именем.
  Result := aBms.Exists(aBmName);
  //Если закладка не найдена - выходим.
  if not Result then Exit;
 
  //Ссылка на закладку.
  Bm := aBms.Item(aBmName);
  //Ссылка на диапазон, связанный с закладкой.
  Rng := Bm.Range;
  //Удаление закладки.
  Bm.Delete;
  //Заменяем текст в диапазоне.
  Rng.Text := aText;
  //Добавляем новую закладку с таким же именем.
  aBms.Add(aBmName, Rng);
end;

//Ищем закладки с нужными именами и изменяем их текст, в соответствие
  //с данными, введёнными на форме.
  SetBmText(wdBms, 'z11_N_DOC', Edit1.Text);
  SetBmText(wdBms, 'z12_DATA_CREATE', Edit2.Text);
  SetBmText(wdBms, 'z13_N_TAB', Edit3.Text);
  SetBmText(wdBms, 'z14_FIO', Edit4.Text);
 
  //Записываем информацию во все одинаковые закладки
     for i := 1 to wdDoc.Bookmarks.Count do
              case StrToInt(Copy(wdDoc.Bookmarks.Item(i).Name, 3, 2)) of
                  11: wdDoc.Bookmarks.Item(i).Range.Text := Edit1.Text;
                  12: wdDoc.Bookmarks.Item(i).Range.Text := Edit2.Text;
                  13: wdDoc.Bookmarks.Item(i).Range.Text := Edit3.Text;
                  14: wdDoc.Bookmarks.Item(i).Range.Text := Edit4.Text;
             end;

case StrToInt(Copy(wdDoc.Bookmarks.Item(i).Name, 3, 2)) of