Wordből adott szavakat követő tartalom Excelbe kigyűjtése

Wordből adott szavakat követő tartalom Excelbe kigyűjtése
2013-08-14T11:11:34+02:00
2013-08-14T19:05:54+02:00
2022-11-29T14:30:42+01:00
kidmennn
Sziasztok!

Munkahelyen azt a feladatot kaptam, hogy a mindig ugyanúgy kinéző elküldött leveleinket (word) nyilván kéne tartani, a fájlnevek mint hiperhivatkozások szerepeljenek egy Exceltáblában, és mellette legyenek szerepeltetve a word levél pár kulcs kifejezése után írt dolgok, konkrétan: Címzett, Tárgy, Küldő, Dátum.
Sajnos VBA ismeretek híján fogalmam sincs hogy oldjam meg, csak a rettentően időigényes manuális CtrlC - CtrlV marad.
Kérem, ha valaki tud, segítsen. Mintaprogrammal, vagy hogy hol milyen irodalomban tudok utánanézni.

A mintalevél, amiből sok van,, és nyilván kéne tartani, elérhető itt: http://mail.albafunk.hu/albafunk/pdf/mintalevel_nyilvantartas_peldah..
a nyilvántartás, amit nekem kéne megcsinálni elérhető itt: http://mail.albafunk.hu/albafunk/pdf/minta_levelnyilv.xls
Tudom, hogy annak, aki ért hozzá, valszeg megoldható feladat , de nekem momentán programozási ismeretek híján nem az.
Köszönöm előre is, ha valaki tudna némi útmutatással vagy konkrét ötlettel szolgálni
Mutasd a teljes hozzászólást!
VBA programozási ismeret nélkül maximum úgy, hogy megíratod valakivel

Egyébként "viszonylag" egyszerű.
A fájlokat (ha egy mappában vannak), a dir() függvénnyel lehet lekérdezni a mappából.
Utána meg kell nyitni
(documents.open()), és kiolvasni a cellák tartalmát:
activedocument.Tables(1).Cell(1,2).Range.Text ' 1. táblázat 1. sorának 2. oszlopa

Majd
activedocument.close false 'bezárja mentés nélkül

Ehhez nem árt vagy a Word Object Librari bekapcsolása, vagy egy set w=createobject("Word.application")
És akkor verziófüggetlen lesz.

Utána már "csak" az Excel celláiba kell beleírni.

pl:
cells(sor,oszlop)=activedocument.Tables(1).Cell(1,2).Range.Text
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd