Как заменить значение переменных для текста MS Word?

Previous  Top  Next

    
 

 

 

Code:

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;

{ ... }

©Drkb::04421

Взято с Delphi Knowledge Base: http://www.baltsoft.com/