Problem mit Automatisierung von Word

[Baulli]

Ich versuche schon länger und zwar Erfolglos Parameter wie z.B. wdSaveChanges zu nutzen:
Word.ActiveDocument.Close(wdSaveChanges, EmptyParam, EmptyParam); Mehr als die Fehlermeldung: "Undeclared Identifier: 'wdSaveChanges'" ist nicht drin...
ComObj ist eingebunden.

Wie wird es mir also gelingen die wd... Parameter zu Nutzen um Word problemlos fernzusteuern?

Danke
Baulli

[Grolle]

Hi,

probiers mal so:

Delphi-Quellcode:

var 
  SaveChanges: OleVariant
...
...
SaveChanges := wdSaveChanges;
word.Quit(SaveChanges, EmptyParam, EmptyParam);
//bzw. Word.ActiveDocument.Close(SaveChanges, EmptyParam, EmptyParam);
...
...

Viele Grüße ...

[Baulli]

gleiches problem wd... ist undefiniert...

[Grolle]

Hi,

Delphi-Quellcode:

const
  wdSaveChanges = $FFFFFFFF;

dann sollte es aber ...

[Baulli]

Ja das Funktioniert, allerdings habe ich das Problem bei alle wd... Paramatern und kann somit nicht z.b. keine seitenzahl herausfinden

[Grolle]

Hi,

alles was ich zu bieten habe

Delphi-Quellcode:

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;

Viele Grüße ...

[ele]

Das wird nicht funktionieren wenn die Konstante wdSaveChanges nicht definiert ist.

Ob der Wert $FFFFFFFF korrekt ist weiss ich jetzt nicht, aber ein Blick in die Hilfe lässt mich vermuten, dass Word.WdSaveOptions.wdSaveChanges das richtige liefert.

[Baulli]

Danke =)

Allerdings besteht mein Problem weiterhin da es sehr viel mehr gibt und ich brauche z.b. noch wdActiveEndAdjustedPageNumber um mein Program vollfunktionsfähig zu machen.
Muss ich Eventuell irgendeine Libary noch in Delphi angeben oder sowas? Aber eig. is OLE doch vorinstalliert. ComObj lässt sich aj auch ohne Probleme einbinden.

[Grolle]

Google bringt mich z. B. hierhin: http://www.delphidunyasi.net/ms-ofis...9/delphi-word/

[ele]

Alternativ lässt man sich die Unit Word_TLB.pas über Import Component/Type Library von Delphi generieren... Dann hat man sogar eine Unit, die mit dem installierten Word kompatibel ist.