Auf Winword schreiben

[pippo]

Hallo,

kann mir bitte jemand sagen wie ich von Notes auf Word schreiben kann

objDoc ist mein Worddocument

möchte einfach Text einfügen, aber nicht über Zwischenablage

objDoc.Range.InsertAfter "Test" ...liefert den Fehler, dass Range keine Eigenschaft ist..

Grüße, Pippo

[Semeaphoros]

objDoc.Selection.TypeText("Dein Text")

[pippo]

Hallo,

es kommt die Fehlermeldung, dass "Selection" kein member ist...

muß man wohl auch definieren

Grüße, Pippo

[Semeaphoros]

Dann steht in objDoc kein Word-Dokument drin (oder ist gar nicht initialisiert). Schau mal im Debugger, was denn in der Var drinsteht. Wenn die Var definiert ist, dann ist Word ohne Dokument gestartet, da müsste man dann wohl erst mal ein neues Dok aufmachen (sorry, weiss grad nicht auswendig wie, aber das siehst Du rasch im VBA-Editor)

[pippo]

Hallo,

doch, objDoc ist ein Worddocument, wie Du siehtst


Call  wordApp.Documents.Add
Set objDoc = wordApp.activedocument

stelle fest, dass Notes mit Winword etwas sensibel ist

Grüße, Pippo

[pippo]

Hallo,

habe es gefunden; man muß das Range definieren!

objDoc.Range(0,0).InsertAfter("Test")

Grüße, Pippo

[Semeaphoros]

Sorry, aber die Sensibilität liegt nicht im Notes, sondern im Winword, alles, was hinter objDoc steht, wird unbesehen an Word übergeben (sofern das Mitglied denn innerhalb des Objektes existiert/definiert ist).

Offenbar war bei Dir der Cursor im Word-Dokument in dem Moment gerade irgendwo im Nirvana, könnte ein Versions-spezifisches Problem im Word sein (ein word-Problem ist es definitiv, hat wirklich gar nix mit Notes zu tun)

[Axel]

Hi,

ich hab mir mal 'ne Klasse geschrieben, mit der man Word fernsteuren kann. Da sind u. a. Methoden enthalten, mit denen man in Formularfelder schreiben kann und Text an Textmarken einfügen kann. Serienbriefe lassen sich ebenfalls erstellen.

Die läßt sich problemlos in jade Notes-DB einfügen. Du brauchst nur eine Script-Bibliothek einbinden.

Ich stelle die Klasse mit einer kurzen Doku Anfang nächster Woche im Netz zur Verfügung. Vielleicht kannst du damit was anfangen.

Axel

[Semeaphoros]

Axel: Das ist ein Wort! Dafür sind Klassen natürlich klasse geeignet. Ich freu mich schon. Danke schon jetzt.

[eknori]

auch freu, obwohl ich da eigentlich auch schon was habe...

[eknori]

@pippo:

objDoc.Range(0,0).InsertAfter("Test")

das ist doch Excel, oder ??

[eknori]

hier wäre was

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/7a66e11e63affdf000256c0e00313d0f?OpenDocument&Highlight=0,word

oder

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/c58841ba70811b5685256a2a004b496c?OpenDocument&Highlight=0,word

oder

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/86a9c89f2bf406a185256b6e004f7a29?OpenDocument&Highlight=0,word  

eknori

[Semeaphoros]

Ulrich:
Das sieht zwar sehr Excel-lent aus, das gibts aber auch in Word, wobei bestimmt Selection das üblichere wäre. Hier ein Ausschnitt aus der Hilfe für Range unter WW2K

Beispiel zur Range-Methode

In diesem Beispiel wird den ersten zehn Zeichen im aktiven Dokument Fettformatierung zugewiesen.

ActiveDocument.Range(Start:=0, End:=10).Bold = True

[Axel]

Hi,

hier die versprochenen Klassen.

http://www.atnotes.de/index.php?board=9;action=display;threadid=11741

Die sind natürlich noch ausbaufähig. Das kommt so wie ich die Funktionen brauche.

Axel

[Semeaphoros]

Danke, werde es schtuddieren ... :-)

[pippo]

Hallo,

nun habe ich den Ausdruck auf Word (einfach geil)!

Dankeschön an alle, welche mir wertvolle Tips gegeben haben!

Schönen Tag, Pippo