Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Laufzeitfehler 429

Begonnen von putzjakob, Februar 26, 2016, 17:13:07

⏪ vorheriges - nächstes ⏩

putzjakob

Hallo zusammen!
Ich will von Access VBA auf das Word-Objekt zugreifen, hab dazu die entsprechende Library angehackt, bei den Verweisen.
Ich bekomme die Fehlermeldung: Laufzeitfehler 429: Objekterstellung durch ActiveX-Komponente nicht möglich.

Ich hab dann das Objekt ausgehackt, Access neu gestartet und wieder eingehackt - ohne Erfolgt

Die Version ist Office 2013.

Der verwendete Code:
  pfadedt.SetFocus
  Word.Documents.Open pfadedt.text
  Word.Documents.Add
  Word.Documents(1).Activate
  aktparagraph = 1
  If Word.ActiveDocument.Footnotes.Count = 0 Then
     MsgBox "Keine Fussnoten vorhanden", vbCritical
     
  End If
  For X = 1 To Word.ActiveDocument.Paragraphs.Count
      fussnote = Word.ActiveDocument.Paragraphs(X).Range.text
      Word.ActiveDocument.Paragraphs(X).Range.text = ""
      Word.Documents(2).Activate
      Word.ActiveDocument.Paragraphs.Add
      Word.ActiveDocument.Paragraphs(aktparagraph).Range = fussnote
      Word.Documents(1).Activate
  Next X

Wie kann ich das lösen?

DANKE!!!
LG Jakob

MaggieMay

Hallo,

von dem "angehackten" Word habe ich doch neulich schon etwas gelesen - fragt sich nur wo, und was ist daraus geworden?!

Was den Codeauszug betrifft, so ist er offensichtlich unvollständig.
Wo wird das Objekt "Word" deklariert und initialisiert?
Und in welcher Codezeile der Fehler auftritt solltest du uns auch nicht vorenthalten.
Freundliche Grüße
MaggieMay

putzjakob

Hallo MaggieMay!
DANKE f. d. rasche Reaktion.
Ich habe das Objekt über Verweise geladen.  Ist das zuwenig?

Der Fehler kommt in der Zeile
Word.Documents.Open pfadedt.text

Klammere ich diese aus, kommt der Fehler eine Zeile später usw., d. h. betrifft alle word.....-Ansprüche...

DANKE!!!
LG Jakob


putzjakob

Ergänzung: Deklariere ich das Object mit
Dim word As Object
Set word = CreateObject("Microsoft Word")

im Prinzip nochmals (da ich es vorher über die Verweise bereits angehackt habe), kommt der gleiche Fehler...;-(

DF6GL

#4
Hallo,

<<gelöscht>>

Crossposting:  http://www.office-loesung.de/p/viewtopic.php?f=167&t=713810
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access

MaggieMay

#5
ZitatIch habe das Objekt über Verweise geladen.  Ist das zuwenig?
Damit schaltest du lediglich die Word-Objektbibliothek hinzu, was die Code-Eingabe durch Intellisense erleichtert und die Word-Konstanten zur Verfügung stellt. Benötigte Objekte müssen weiter deklariert und initialisiert werden.

Das wäre ja sonst im Prinzip genauso als würdest du einfach in die Luft greifen, wenn du dich im Bus festhalten willst. Weil, es sind ja Haltestangen da. Nur dummerweise nicht da wo du gerade stehst. Naja, vielleicht etwas schief der Vergleich... ;-)

Als nächstes solltest du dir die Verwendung von CreateObject in der Access-Hilfe anschauen und auch die Beispiele dazu. Du kannst nicht einfach mit ein paar aufgeschnappten Begriffen ins Blaue hinein programmieren.
Freundliche Grüße
MaggieMay