Word-Dokument via COM speichern

[Glombi]

*** ERLEDIGT ***


Ich möchte gerne via COM in LotusScript ein Word-Dokument speichern. Folgenden Code habe ich, aber das Speichern geht nicht:

Set application = CreateObject("Word.Application")
Call application.documents.add( filePath  )   
Set ActiveDocument = application.activedocument
...
ActiveDocument.Save   'Das geht nicht. es wird nicht gespeichert

Das geht auch nicht:
ActiveDocument.SaveAs filePath   'Das geht - danke Jens

Ich suche nich verzweifelt nach einer Doku der COM-Klassen...

Andreas

[Semeaphoros]

Oeffne Word
Gehe unter Extras - Marko
Rufe den Visual-Basic Editor auf
Rufe dort die Hilfe auf

Dadrin findest Du die Angaben.

Um Deine Anforderung zu finden, suche nach dem Document - Object

Dort findest Du die SaveAS Methode, die Du hier offenbar benutzen möchtest.

[koehlerbv]

SaveAs muss es heissen, Andreas.

Und die Doku der Klassen findet sich in der Hilfe des jeweiligen VBA-Editors.

HTH,
Bernhard

[koehlerbv]

Wer behauptet eigentlich immer den Blödsinn, die Berner wären so langsam ? 

[Glombi]

Danke Jens,

ich war hier gelandet, aber das Save funktioniert nicht.
http://www.vba-programmer.com/Word_Code/File_Save_Variations.txt

Aber mit SaveAs geht es ja.

Andreas

[Glombi]

Danke Bernhard,
ja der Jens war extrem schnell. Sorry, dass ich Euch mit Banalitäten belästige! Irgendwie stand ich gerade auf dem Schlauch...

Andreas

[Semeaphoros]

No Problem, Andreas, you are welcome

Save sollte eigentlich auch tun, aber nicht mit einem neuen Namen, sondern nur bei bestehender Datei, so wie unter Word "Speichern" und "Speichern unter", aber das war Dir ja klar, das steht hier mehr für andere ....

[Glombi]

Was dem ganzen die Krone aufsetzen würde: Ich speichere jetzt also das Worddokument schließe es und hänge es in ein Notes-Dokument.
Wie kann ich Notes jetzt dazu bringen, dass er das Attachment automatisch bearbeitet, nicht öffnet (also @Command([AttachmentLaunch]). 
Dieses neue R6 Feature wird programmseitig weder durch @Formel noch durch Script unterstützt, oder?

Andreas

[Semeaphoros]

Wenn da nix neues dazu gekommen ist, dann ist das so, wie Du sagst, kein programmatischer Zugriff

[Glombi]

No Problem, Andreas, you are welcome

Save sollte eigentlich auch tun, aber nicht mit einem neuen Namen, sondern nur bei bestehender Datei, so wie unter Word "Speichern" und "Speichern unter", aber das war Dir ja klar, das steht hier mehr für andere ....

Nun eigentlich ist die Datei ja schon, da wegen

Set object = templ_doc.GetAttachment( attachmentName )
   If object Is Nothing Then
      Msgbox "Es ist kein Dateianhang vorhanden!",0+16,"Abbruch"   
      Goto Ende
   End If
   Call object.ExtractFile( filePath )

Aber egal...

Wegen Goto: bitte nicht hauen 

Andreas

[Glombi]

Hier habe ich was gefunden
http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/f2eaabc9b6c049dd85256e90004f64ca?OpenDocument

Sieht nach Hacking aus, oder? Wie soll ich denn den Fokus bekommen?

Andreas

[Semeaphoros]

Dann sollte es aber auch funktionieren, wenn Du keine Parameter übergibst. Deine Klammer ist es wohl, die das verhindert

edit: das bezieht sich auf das Posting zu Save

[Semeaphoros]

Dieser LDD-Workaround ist ein Hack, Tastatureingabe imitiert und damit von der Sprachversion des Clients abhängig.