Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: putzjakob am Februar 26, 2016, 17:13:07

Titel: Laufzeitfehler 429
Beitrag von: putzjakob am Februar 26, 2016, 17:13:07
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
Titel: Re: Laufzeitfehler 429
Beitrag von: MaggieMay am Februar 26, 2016, 17:51:56
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.
Titel: Re: Laufzeitfehler 429
Beitrag von: putzjakob am Februar 26, 2016, 18:54:26
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

Titel: Re: Laufzeitfehler 429
Beitrag von: putzjakob am Februar 26, 2016, 19:10:27
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...;-(
Titel: Re: Laufzeitfehler 429
Beitrag von: DF6GL am Februar 26, 2016, 19:14:19
Hallo,

<<gelöscht>>

Crossposting:  http://www.office-loesung.de/p/viewtopic.php?f=167&t=713810
Titel: Re: Laufzeitfehler 429
Beitrag von: MaggieMay am Februar 26, 2016, 20:18:43
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.