Funkcja GetObject powoduje error

Article View: pl.comp.bazy-danych.msaccess

Article #137590

Back to pl.comp.bazy-danych.msaccess Previous Next

#137590

From: kocinosbobi
Date: Sun, 08 Apr 2018 22:18

13 lines
2204 bytes

Potrzebuję przenieść fragment tekstu z .doc (Word) do kodu vba.
Mam taką procedurę w Accessie 2003 (oczywiście to tylko fragment):
Dim MyDoc As Word.Document
Dim TT As String

FullPath = "F:\Chwilowy\Test_Worda.doc"
Set MyDoc = GetObject(FullPath)
TT = MyDoc.Content
MsgBox TT

Na kompach z XP, Win7 działa w porządku, a na jednym z systemem Win 10 za czorta nie chce. W narzędziach jest zaznaczony "Microsoft Word 11.0 Object Library", a ciągle wyskakuje komunikat, że brakuje mu odpowiedniej biblioteki DLL. A przecież ma dołączoną (...)Program Files (x86)\Microsoft Office\OFFICE11\MSWORD.OLB tak samo, jak na innych kompach. Co tu jest nie tak?
Ścieżka do pliku jest na 100% OK, procedura wywala się dokładnie na funkcji GetObject.
Myślałem, że plik "MSWORD.OLB" jest uszkodzony, zamieniłem go na plik z działających kompów i dalej to samo. Na wszystkich kompach jest ten sam office 2003, żeby nie było, że "przedobrzyłem" ...

Technical Details

Message-ID: <61577e30-be4a-4f2b-abae-f857c489fe6a@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!k3no1739310qtm.1!news-out.google.com!f13ni129qtj.0!nntp.google.com!g18no1746925qtk.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 10.237.54.231 with SMTP id f94mr23224322qtb.34.1523225881120;        Sun, 08 Apr 2018 15:18:01 -0700 (PDT)
X-Received: by 10.31.199.67 with SMTP id x64mr4301156vkf.7.1523225880875; Sun, 08 Apr 2018 15:18:00 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!k3no1739310qtm.1!news-out.google.com!f13ni129qtj.0!nntp.google.com!g18no1746925qtk.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sun, 8 Apr 2018 15:18:00 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=78.10.210.96; posting-account=GyWjggoAAAAd4j5WMhm2bnVyz5WNXnpk
NNTP-Posting-Host: 78.10.210.96
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <61577e30-be4a-4f2b-abae-f857c489fe6a@googlegroups.com>
Subject: Funkcja GetObject powoduje error
From: kocinosbobi@gmail.com
Injection-Date: Sun, 08 Apr 2018 22:18:01 +0000
Lines: 23
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit