[Страдалецъ]

Сообщение от joe2604

Спасибо за участие. У меня программа обработки документа Word. Если входной документ создан по "Шаблону1.dot", то надо обработать его одним способом. Если же документ создан по "Шаблону2.dot", то обработать другим способом. Поэтому нужно достать имя шаблона входного документа Word.

Понятно. Тогда вот так:

Код:

procedure TForm9.Button1Click(Sender: TObject);
var
 WordApp, Doc, DocProperty: OleVariant;
begin
 try
  WordApp := GetActiveOleObject('Word.Application');
 except
  try
   WordApp := CreateOleObject('Word.Application');
  except on E: Exception
  do begin
     ShowMessage('Не удалось запустить Word!'#13#10 + E.Message);
     Exit;
     end;
  end;
 end;

 Doc := WordApp.Documents.Add('H:\Downloads\Chat\Other Stuff\Data Readme.doc');
 DocProperty := Doc.BuiltInDocumentProperties.Item[6];
 Memo1.Lines.Add(VarToStr(DocProperty.Name) + ' = ' + VarToStr(DocProperty.Value));
 WordApp := Unassigned;
end;