title image


Smiley Re: Ne Frage zu Delphi + Word-Dateien ?
Hi,



Hier mal etwas Code, wie du einzelne Dokumenteigenschaften

eines Worddokumentes ändern kannst.

Der Rest ist dann nicht mehr schwierig.



uses

  ComObj;



procedure TForm1.Button1Click(Sender: TObject);

const

  wdPropertyTitle = $00000001;

  wdPropertySubject = $00000002;

  wdPropertyAuthor = $00000003;

  wdPropertyKeywords = $00000004;

  wdPropertyComments = $00000005;

  wdPropertyTemplate = $00000006;

  wdPropertyLastAuthor = $00000007;

  wdPropertyRevision = $00000008;

  wdPropertyAppName = $00000009;

  wdPropertyTimeLastPrinted = $0000000A;

  wdPropertyTimeCreated = $0000000B;

  wdPropertyTimeLastSaved = $0000000C;

  wdPropertyVBATotalEdit = $0000000D;

  wdPropertyPages = $0000000E;

  wdPropertyWords = $0000000F;

  wdPropertyCharacters = $00000010;

  wdPropertySecurity = $00000011;

  wdPropertyCategory = $00000012;

  wdPropertyFormat = $00000013;

  wdPropertyManager = $00000014;

  wdPropertyCompany = $00000015;

  wdPropertyBytes = $00000016;

  wdPropertyLines = $00000017;

  wdPropertyParas = $00000018;

  wdPropertySlides = $00000019;

  wdPropertyNotes = $0000001A;

  wdPropertyHiddenSlides = $0000001B;

  wdPropertyMMClips = $0000001C;

  wdPropertyHyperlinkBase = $0000001D;

  wdPropertyCharsWSpaces = $0000001E;

const

  AWordDoc = 'C:\Test.doc';

  wdSaveChanges = $FFFFFFFF;

var

  WordApp: OLEVariant;

  SaveChanges: OleVariant;

begin

  try

    WordApp := CreateOleObject('Word.Application');

  except

    // Error....

    Exit;

  end;

  try

    WordApp.Visible := False;

    WordApp.Documents.Open(AWordDoc);

    WordApp.ActiveDocument.BuiltInDocumentProperties[wdPropertyTitle].Value := 'Title';

    WordApp.ActiveDocument.BuiltInDocumentProperties[wdPropertySubject].Value := 'Subject';

  finally

    SaveChanges := wdSaveChanges;

    WordApp.Quit(SaveChanges, EmptyParam, EmptyParam);

  end;

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: