[joe2604]

Здравствуйте, друзья!
Нужно прочитать шаблон, по которому создан открытый документ.
По названию шаблона делать ветвление программы.
Подскажите метод чтения шаблона, пожалуйста.
В самом Word нажимаем "Свойства" и там вкладку "Документ" и внизу видим "Шаблон". Вот его мне и надо сосчитать из программы.
Спасибо.

WA:=CreateOleObject('Word.Application');
WA.Documents.Add("c:\aaa.doc")
?

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

Если вы создаете новый документ, то всегда по умолчанию используется шаблон нормал. Если же вы создаете документ с помощью иного шаблона, то имя шаблона вы и так знаете. Возможно вы что-то другое хотите?

[joe2604]

Сообщение от Страдалецъ

Если вы создаете новый документ, то всегда по умолчанию используется шаблон нормал. Если же вы создаете документ с помощью иного шаблона, то имя шаблона вы и так знаете. Возможно вы что-то другое хотите?

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

[Kailon]

А сколько входных шаблонов? Если их не так уж и много, то можно прописать все жестко.

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

Сообщение от 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;