Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Как заменить значение переменных для текста MS Word?

Автор: Pakshin A. S. 10.11.2004, 20:12

Код


uses 
  Office97; {or Office2000, OfficeXP, Office_TLB} 

var 
  VDoc, PropName, DocName: OleVariant; 
  VDoc := Word.ActiveDocument; 
  { ... } 

{ Set a document property } 
PropName := 'MyOpinionOfThisDocument'; 
VDoc.CustomDocumentProperties.Add(PropName, False, msoPropertyTypeString, 
  'Utter drivel', EmptyParam); 
{ Read a document property } 
Caption := VDoc.CustomDocumentProperties[PropName].Value; 
{ ... }