Domino 9 und frühere Versionen > ND6: Entwicklung

Text aus MS Word in Notes Kopieren per Script

<< < (2/3) > >>

zhermann:
Hallo MrJingels,

hier ein Auszug um auf Word Dokumente zuzugreifen.

dim wordObj as Variant
dim wordDoc As Variant

set wordObj = createobject("Word.Application")
set wordDoc = wordObj.open ("C:\Worddocument.doc")

......

set worddoc = Nothing
wordObj.Quit
Set wordObj = Nothing


in der Zeile set wordDoc = ... mußt Du natürlich dein den Pfad un den Dateinamen von deinem Word-Doc angeben.

MrJingels:
@zherman:

soweit war ich schon - danke.
mein problem liegt beim markieren - kopieren und einfügen. diese befehle kenn ich nicht, bzw. weiß nicht wo nachsehen.

animate:
Nachsehen für Word-Klassen: in Word -> Alt+F11 -> F1 (falls Hilfe für VBA installiert)
Nachsehen für Notes-Klassen: im NotesDesigner -> F1
 ;)

zhermann:
Hallo,

so sollte es gehen. Habe immer nur von LN nach Word transferiert.

wordDoc.SelectAll
uidoc.FieldAppandText("myRichtext", worddoc.Selection)

maxx:
Hallo,

bei mir ist das schon 2 Jahre her das ich mal mit script auf Word zugeriffen habe. Ich musste aber nur aus vielen Worddokumenten ein Worddokument erstellen und einiges kopieren. Am besten ist du zeichnest dir in Word ein Makro auf und siehtst es dir dann den Code an, wenn du VBA hast. Dann haste schon mal die Befehle. Ich habe einen neuen Rechner und da sind die Makros weg. Aber ein bisschen habe ich aus dem Script noch gelesen.

so war es in der Kopfzeile wenn ich es noch richtig weiss
markieren der Zeile
ObjWord.Selection.MoveDown, 5 ' geht man nach unten in Word  5 Anzahl der zeilen
ObjWord.Selection.MoveDown, 2,1    2 Zeilen nach unten und eins nach rechts glaub ich

ObjWord.Selection.MoveUp, 1 nach oben eine Zeile

ObjWord.Selection.Copy   kopieren der Markierung

ObjWord.Selection.Paste   wieder in Word an einer Stelle einfügen

sel_title$ =  ObjWord.Selection.Text  text in eine Stringvariable schreiben

Call ObjWord.Selection.GoTo (1) wechsle zur nächsten WordSeite im Dokument

Call ObjWord.Selection.HomeKey  (6)  springe zum anfang des Dokuments

Ich hoffe ich konnte einwenig helfen, aber lege mich nicht genau mehr fest ist halt scho zu lange her.

Gruß

Johannes

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete